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

软件版本: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

快捷导航

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

发新话题 回复该主题

[已回复] 循环 [复制链接]

1#
多线程运行怎么写代码更流畅不占用太多资源,有缓冲
For 1
//分解
For 1
Delay 2500
KeyPressS "M", 1
Delay 2500
MoveToS 591, 880
LeftClickS 1
Delay 2500
MoveToS 1077, 594
LeftClickS 3
Delay 2500
KeyPressS "Space", 1
Delay 2500
MoveToS 964, 595
LeftClickS 2
Delay 2500
KeyPressS "A", 1
Delay 2500
MoveToS 846, 696
LeftClickS 1
Delay 5000
KeyPressS "Esc", 1
Delay 2500
KeyPressS "Esc", 1
Delay 2500
MoveToS 931, 858
LeftClickS 1
Delay 2500
KeyPressS "Left", 1
Delay 2500
KeyPressS "Space", 1
Delay 5000
Next
//移动
For 1
KeyDownS "Down", 1
Delay 4000
KeyUpS "Down", 1
KeyPress "N", 1
Delay 2000
MoveToS 940, 496
LeftClickS 2
Delay 4000
KeyPressS "Esc", 1
Delay 4000
MoveToS 1500, 853
RightClickS 1
Delay 2000


Next
BeginThread 子程序1()
BeginThread 子程序2()
BeginThread 子程序3()
BeginThread 子程序4()
BeginThread 子程序5()



Delay 1505000

//切换角色
For 1
Delay 2000
KeyPressS "F12", 1
Delay 6000
MoveToS 1407, 941
LeftClickS 1
Delay 2000
MoveToS 931, 858
LeftClickS 1
Delay 2000
KeyPressS "Left", 1
Delay 2000
KeyPressS "Space", 1
Delay 4000
Next
//Do
//Delay 50
//Loop
//

Next
Function 子程序1()
For 2150

KeyPressS "Space ", 1
Delay 500
Next
End Function
Function 子程序2()
For 2150
KeyPressS "A", 1
Delay 600
Next

End Function


Function 子程序3()
For 2150
KeyPressS "V", 1
Delay 650
Next
End Function

Function 子程序4()
For 2150
KeyPressS "X", 1
Delay 670
Next
End Function

Function 子程序5()
For 2150
KeyPressS "F10", 1

Delay 700
Next
End Function


上面代码怎么修改运行流畅一些
不会导致运行结束后游戏画面鼠标点击没反应,打不开游戏内的背包

本主题由 超级版主 瑞祥幽冥狼 于 2023/11/7 8:31:56 执行 审核主题 操作
2#

,

1. 5个BeginThread参以下写法改为一个主程序运行,若依然存在问题,加大按键的延迟或更好配置更高电脑
  1. 技能 = array(1, 10, 30, 12, 5, 20)//技能CD
  2. Do
  3. If DateDiff("s", t6, time) >= 技能(5) Then'可改为If Plugin.GetSysInfo.GetTime -T6 >= 技能(5) Then
  4. t6 = time
  5. MessageBox "释放技能6:" & 技能(5)
  6. ElseIf DateDiff("s", t5, time) >= 技能(4) Then
  7. t5 = time
  8. MessageBox "释放技能5:" & 技能(4)
  9. ElseIf DateDiff("s", t4, time) >= 技能(3) Then
  10. t4 = time
  11. MessageBox "释放技能4:" & 技能(3)
  12. ElseIf DateDiff("s", t3, time) >= 技能(2) Then
  13. t3 = time
  14. MessageBox "释放技能3:" & 技能(2)
  15. ElseIf DateDiff("s", t2, time) >= 技能(1) Then
  16. t2 = time
  17. MessageBox "释放技能2:" & 技能(1)
  18. ElseIf DateDiff("s", t1, time) >= 技能(0) Then
  19. t1 = time
  20. MessageBox "释放技能1:" & 技能(0)
  21. End If
  22. TracePrint "释放技能1:" & 技能(0)
  23. Delay 1000
  24. Loop
复制代码
2. Delay 1505000改为
  1. For 1505
  2. Dealy 1000
  3. Next
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
发新话题 回复该主题