按键精灵如何让一个程序循环多次调用子程序然后继续循环

你描述的不是很清楚

按我理解的意思给你个大概思路，你自己改下，要是不行就给我hi

－－－－－－－－－－－

//之前的代码你自己搞

BT = PluginSysGetTime() //获得当前系统时间

CT = PluginSysGetTime() //获得当前系统时间

While CT - BT < 180000 //如果时间差小于3分钟就循环运行

Call 子程序()//如果你的子程序很短下面再加一个“delay ”不然CPU运行会很高，延时多少你自己定

CT = PluginSysGetTime()

Wend//按键7用Endwhile

//这儿就是超过三分钟后你要执行的代码了

Sub 子程序()

//别忘了子程序的内容放这儿

End Sub

－－－－－－－－－－－－－－－－－－

希望对你有帮助

Rem 开始

Hwnd = PluginWindowForeground()

s = WindowGetClientRect(hwnd)

MyArray = Split(s, "|", -1, 1)

sx = MyArray(0)

sy = Myarray(1)

FindColor 801+sx,232+sy,1006+sx,593+sy,"A5F7BD",intX,intY

If intX > 0 And intY > 0 Then

MoveTo intX, intY

Delay 200

RightClick 1

End If

BT = PluginSysGetTime()

CT = PluginSysGetTime()

While CT - BT < 180000

Call aa()

CT = PluginSysGetTime()

Wend

goto 开始

Sub aa()

KeyDown 105,25

MoveTo 220+sx,433+sy

LeftClick 1

MoveTo 216+sx,389+sy

LeftClick 1

End Sub

//建议你在子程序里面多一些delay不然电脑很卡的～

Rem d

Key=GetLastKey()

If Key = 50 Then

Call a()

elseIf Key = 51 Then

Call s()

End If

Goto d

Sub a()

Delay 50

KeyPress "M", 1

Delay 200

KeyPress "2", 1

Delay 200

KeyPress "9", 1

Delay 200

KeyPress "9", 1

Delay 200

KeyPress "5", 1

Delay 50

End Sub

Sub s()

Delay 50

KeyPress "M", 1

Delay 200

KeyPress "2", 1

Delay 200

KeyPress "9", 1

Delay 200

KeyPress "9", 1

Delay 200

KeyPress "6", 1

Delay 50

End Sub

注意你子程序中的延时有将近一秒，再加上系统反应的时间，如果再这一秒内按键是不会有任何效果的，帮你优化了下，试试看

EndScipt是退出脚本，为什么要加入它呢

直接

Call Sub1

Call Sub2

Call Sub3

这样不就是执行完子程序1，1结束后执行2,2结束后执行3，如此类推

可以用iF完成啊，

i=1

do

if i=1 then

Gosub 子程序1

ElseIf i=2 then

Gosub 子程序2

ElseIf l=3 then

Gosub 子程序3

End If

loop

以此类推

以上就是关于按键精灵如何让一个程序循环多次调用子程序然后继续循环全部的内容，包括:按键精灵如何让一个程序循环多次调用子程序然后继续循环、按键精灵9判断上次按键选择调用子程序问题！、按键精灵顺序调用两个子程序执行的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！