[郭立员] [安卓按键]给按键脚本做一个日志悬浮窗 [复制链接]

大家好，我是3分钟学堂的郭立员，今天给大家带来一个按键精灵的日志悬浮窗案例源码。

2.gif(239.10 K)

2022/2/25 18:15:31

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

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

1.png(330.87 K)

2022/2/25 18:15:31

①做两个悬浮窗，标题悬浮窗（文字固定），内容悬浮窗（文字滚动）

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

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

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

脚本源码：

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