按键精灵资讯站

返回资讯列表

[安卓/ios辅助工具]给按键精灵脚本做一个日志悬浮窗

2025-06-04 版权归原作者所有,如有侵权,请联系我们

给大家带来一个按键精灵的日志悬浮窗案例源码。


脚本效果

脚本介绍


这个脚本其实没有太多实用价值,只是给脚本加了一个悬浮窗,用于显示脚本日志,如果非要说一个用处的话,那就是增加脚本的逼格。


另外需要注意,如果你的脚本使用了图色命令,悬浮窗一定要避开找图找色的位置,它对图片有遮盖的影响。

脚本思路

①做两个悬浮窗,标题悬浮窗(文字固定),内容悬浮窗(文字滚动)


②悬浮窗固定显示的原理是使用多线程,其中一个线程用于循环显示悬浮窗,使其一直在屏幕上显示。


③滚动显示的原理是利用一个数组存储每一行要显示的内容,当达到指定条数以后,就删除数组第一个内容,再把新的内容追加到最后一个数组内容。


④内容的来源:当我们需要显示内容的时候,通过共享变量的方式,把内容传递给用于显示的线程。


脚本源码:

Import "shanhai.lua"
Thread.Start 主程序
Dim arr()
FW.NewFWindow "浮窗名1", 0, 50, 300, 50
FW.Opacity "浮窗名1", 50
FW.SetBackColor("浮窗名1", "000000")
FW.AddTextView "浮窗名1", "文字1", " 日志窗口", 0, 10, 300, 45
FW.SetTextColor("文字1","ffffff")
FW.SetTextSize "文字1", 16
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 "文字", 10
Do
dim msg=Thread.GetShareVar ("show")
Call toast(msg)
Delay 100
Loop
Function 主程序()
For i = 1 To 100
Thread.SetShareVar "show", " 脚本运行日志:"&right(DateTime.Format(),8) &" 一大推内容"&i
Delay 1000
Next
End Function


Function toast(msg)
If msg <> arr(UBOUND(arr)) Then
If ubound(arr) > 8 Then
arr= shanhai.Remove(arr,0)
End If
arr(UBOUND(arr)+1)=msg
End If
// ShowMessage Join(arr, "\n"), 1000, 0, 0
FW.SetTextView "文字", Join(arr, "\n"), 0, 50, 300, 500
FW.Show("浮窗名")
End Function




按键精灵是一款专业的自动化智能领域编程软件,专注于电脑/安卓/iOS自动化脚本开发。

按键手机助手下载 按键安卓版下载 按键iOS版下载 按键电脑版下载

声明:本站所有文章均为按键精灵所有,转载请注明出处: http://m.anjian.com/article_26.shtml