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

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

先看看效果：

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

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

//按键日志
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

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