按键精灵:如何给自己的脚本加上一个如aotujs一样的悬浮窗日志附源代码

好多朋友玩很久按键精灵但是比较羡慕别的脚本有一个悬浮窗日志窗口,看上去好像很高大上一样。其实按键精灵也可以实现,按键精灵有强大的界面控件命令库,今天给大家分享一个按键精灵做的日志悬浮窗口

先看看效果:

 

按键精灵:如何给自己的脚本加上一个如aotujs一样的悬浮窗日志附源代码

就是长这个样子>>>其实按键精灵做悬浮日志的话是有点麻烦的,要利用线程来实现:

按键精灵:如何给自己的脚本加上一个如aotujs一样的悬浮窗日志附源代码

下面我们把代码贴上来给大家参考下:

//按键日志
Import "shanhai.lua"


//设置浮窗信息窗口
FW.NewFWindow "浮窗名1", 0, 50, 300, 50
FW.Opacity "浮窗名1", 50
FW.SetBackColor("浮窗名1", "000000")
FW.AddTextView "浮窗名1", "文字1", " 日志窗口", 0, 10, 300, 25
FW.SetTextColor("文字1","ffffff")
FW.SetTextSize "文字1", 8
FW.Show("浮窗名1")
FW.NewFWindow "浮窗名", 0, 50, 300, 300
FW.Opacity "浮窗名", 50
FW.SetBackColor("浮窗名", "000000")
FW.AddTextView "浮窗名", "文字", "", 0, 50, 300, 500
FW.SetTextColor("文字","00FF00")//日志文字的颜色
FW.SetTextSize "文字", 9



Dim arr()
Thread.Start 主线程//启动主线程


Do
  	//获取共享变量的值
    dim 共享变量=Thread.GetShareVar ("显示内容")
    Call 显示(共享变量)
    Delay 100
Loop
Function 主线程()
    For i = 1 To 100
        Thread.SetShareVar "显示内容", " 运行>" &" 当前(i)等于>>"&i
        Delay 1000
    Next
End Function
Function 显示(共享变量)
    If 共享变量 <> arr(UBOUND(arr)) Then
        //显示在日志窗口的行数11
        If ubound(arr) > 11 Then
            arr= shanhai.Remove(arr,0)
        End If
        arr(UBOUND(arr)+1)=共享变量
    End If
    FW.SetTextView "文字", Join(arr, "\n"), 0, 50, 300, 500
    FW.Show("浮窗名")
End Function

如果大家有什么其他的方法实现也可以分享出来

给TA打赏
共{{data.count}}人
人已打赏
按键精灵脚本开发

按键精灵安卓版多线程的作用

2022-10-29 22:08:59

EasyClick脚本开发

EasyClick免root开发系列教程【小白快速上手到精通】手机脚本、引流脚本开发

2022-11-24 9:16:47

重要声明

本站脚本,源代码,工具,等资源仅供交流学习使用,禁止用于其他任何用途,如有侵犯你的权益请联系管理员QQ:24445818,我们会第一时间进行审核删除。站内资源为网友个人学习或测试研究使用,未经原版权作者许可,禁止用于任何商业途径!请在下载24小时内删除!


如果遇到付费才可观看的文章,建议升级会员或者成为认证用户。全站所有资源任意下免费看”。本站资源少部分采用7z压缩,为防止有人压缩软件不支持7z格式,7z解压,建议下载7-zip,zip、rar解压,建议下载WinRAR

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索