• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----悬浮窗FW插件命令例子----被峨眉山猴子暴打... [复制链接]

1#
效果一览:

源码一览:
  1. Dim 线程ID= Thread.Start(日志)
  2. Thread.SetShareVar "环境变量", "脚本开始..."
  3. Delay 1000
  4. Thread.SetShareVar "环境变量", "打怪操作"
  5. Delay 1000
  6. For i = 0 To 10
  7. Thread.SetShareVar "环境变量", "打怪"&i
  8. Delay 1000
  9. Next
  10. Sub 日志()
  11. Dim 主内容(11)
  12. Dim 环境变量,暂存变量,是否有空
  13. 暂存变量=""
  14. FW.NewFWindow "日志", 20, 60, 200, 300
  15. FW.SetBackColor("日志", "000000")
  16. FW.AddTextView("日志", "内容", "开始脚本goto~~~",0,0,200, 300)
  17. FW.SetTextColor "内容", "78E848"
  18. FW.SetTextSize "内容", 10
  19. FW.Opacity "日志", 30
  20. FW.IsTouchMove "日志", 1
  21. FW.Show ("日志")
  22. Do
  23. 环境变量 = Thread.GetShareVar("环境变量")
  24. If 暂存变量 <> 环境变量 Then
  25. 是否有空=False
  26. For i = 0 To 11
  27. If 主内容(i) = null Then
  28. TracePrint i
  29. 主内容(i) = "【"&DateTime.Format("%H:%M:%S")&"】"&环境变量
  30. 暂存变量 = 环境变量
  31. 是否有空 = True
  32. Exit For
  33. End If
  34. Next
  35. If 是否有空 = False Then
  36. For i = 0 To 10
  37. TracePrint i
  38. 主内容(i) = 主内容(i+1)
  39. Next
  40. 主内容(11) = "【"&DateTime.Format("%H:%M:%S")&"】"&环境变量
  41. 暂存变量 = 环境变量
  42. End If
  43. End If
  44. TracePrint join(主内容,"\n")
  45. FW.SetTextView "内容", join(主内容,"\n") , 0, 0, 500, 300
  46. Delay 1000
  47. Loop
  48. End Sub
复制代码
效果一览:


源码一览:
'笑脸为P'按键qq群891058946
showDialog "停"
Dim 开关=1,id
Thread.SetShareVar "开关", 1
Do
开关=Thread.GetShareVar("开关")
dim AJ = FW.GetValue("K_Status")
TracePrint AJ["Text"]
Delay 1000
If AJ["Text"] = "攻" and 开关 = 1 Then
TracePrint "启动多线程"
id =Thread.Start(多线程)
Thread.SetShareVar "开关", 0
Delay 1000
End If
If AJ["Text"] = "停" and 开关 = 0 Then
TracePrint "停止多线程"
Thread.Stop(id)
Thread.SetShareVar "开关", 1
End If
Loop
Sub 多线程()
Do
TracePrint "运行中...."&now()
Delay 1000
Loop
End Sub
Function showDialog(状态)
//创建悬浮窗
FW.NewFWindow("K控制", 10, 250, 160, 50)
//创建按钮控件
FW.AddButton("K控制", "按键停", "停", 0, 0, 50, 50)
FW.AddButton "K控制", "按键攻", "攻", 110, 0, 50, 50
FW.AddTextView("K控制", "PK_Status", 状态, 65, 5, 50, 50)
//设置按钮背景色为红色
FW.SetBackColor "按键停", "0000FF"
FW.SetBackColor "按键攻", "0000FF"
FW.SetOnClick("按键停", EndPK)
FW.SetOnClick("按键攻", StartPK)
//显示悬浮窗
FW.Show("PK控制")
//无限循环等待,脚本停止后,浮窗自动消失
End Function
//无限循环等待,脚本停止后,浮窗自动消失
Dim s
Do
Delay 1000
s = Thread.GetShareVar("s")
TracePrint s
Loop
Function StartPK
TracePrint "攻"
showDialog "攻"
End Function
Function EndPK
TracePrint "停"
showDialog "停"
End Function

最后编辑瑞祥幽冥狼 最后编辑于 2022-03-04 18:08:49
本主题由 超级版主 瑞祥幽冥狼 于 2023/9/26 8:38:54 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

悬浮窗FW插件命令例子

3#

啊实打实大苏打实打实的

4#

学习了,谢谢大佬

5#


6#

看看看看扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩扩

7#

狼哥分享的全是纯纯的干货!支持!

8#

需要学习学习

9#

学习一下大神的思路

接单QQ:16256223。12年信誉保证!组别:〖官方脚本作者

网页,电脑,安卓,模拟器,验证码识别!

自动办公,网页操作,填表投票,账号注册,学习答题,聊天引流,数据监测,操作软件![/co
10#

学习一下

11#

我来看看后面这个

12#

547563540

[黑暗中我跟你走,就别
13#

666666666666

14#

学习一下

15#


16#

浮窗FW插件命令例

17#

Import "zm.luae"//紫猫插件
zm.Init //初始化zm插件

Dim 线程ID= Thread.Start(日志)
Thread.SetShareVar "环境变量", "脚本开始..."//设置一个 共享变量名为"环境变量",内容为"脚本开始"
Delay 1000
Thread.SetShareVar "环境变量", "打怪操作"//// 共享变量名为"环境变量",内容为"打怪操作"
Delay 1000
For i = 0 To 10
Thread.SetShareVar "环境变量", "打怪"&i//// 共享变量名为"环境变量",内容为"打怪"+i
Delay 1000
Next
Sub 日志()
Dim 主内容()//声明一个数组
Dim 环境变量//声明变量
FW.NewFWindow "日志", 10, 10,350,200//新建一个名为日志的悬浮窗,后面是 坐标 起始x,y,大小
FW.SetBackColor("日志", "000000")//设置"日志"的背景颜色 "000000"为黑色
FW.AddTextView("日志", "内容", "开始脚本goto~~~")//在 日志的控件下 创建一个名为 "内容" 文字框控件 作为子控件 初始显示内容:"开始脚本goto~~~" 后面是 控件大小设置
FW.SetTextColor "内容", "78E848"//设置"内容"的文字颜色 "78E848"为蓝色
FW.SetTextSize "内容", 10//设置"内容"的文字大小
FW.Opacity "日志", 30 //设置"日志"的透明度
FW.IsTouchMove "日志", 1//设置"日志"为可拖动
FW.Show ("日志")//将日志控件显示出来
Do
Delay 100
环境变量 = Thread.GetShareVar("环境变量")//设置一个 共享变量名为"环境变量"
If UBOUND(主内容) >= 4 Then
主内容=zm.ArrayRemove(主内容,0)    
End If
zm.ArrayInsert 主内容, "【"&DateTime.Format("%H:%M:%S")&"】"&环境变量
TracePrint join(主内容,"\n")
FW.SetTextView "内容", join(主内容,"\n") ,10, 10,350,200
Delay 900
Loop
End Sub

18#

学习了,谢谢大佬

19#

11111111111111111111

本人QQ:291705414
20#

悬浮窗FW插件命令例子

发新话题 回复该主题