按键精灵如何让一个程序循环多次调用子程序然后继续循环?
展开全部
你描述的不是很清楚
按我理解的意思给你个大概思路,你自己改下,要是不行就给我hi
-----------
//之前的代码你自己搞
BT = Plugin.Sys.GetTime() //获得当前系统时间
CT = Plugin.Sys.GetTime() //获得当前系统时间
While CT - BT < 180000 //如果时间差小于3分钟就循环运行
Call 子程序()//如果你的子程序很短下面再加一个“delay ”不然CPU运行会很高,延时多少你自己定
CT = Plugin.Sys.GetTime()
Wend//按键7用Endwhile
//这儿就是超过三分钟后你要执行的代码了
Sub 子程序()
//别忘了子程序的内容放这儿
End Sub
------------------
希望对你有帮助
Rem 开始
Hwnd = Plugin.Window.Foreground()
s = Window.GetClientRect(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 = Plugin.Sys.GetTime()
CT = Plugin.Sys.GetTime()
While CT - BT < 180000
Call aa()
CT = Plugin.Sys.GetTime()
Wend
goto 开始
Sub aa()
KeyDown 105,25
MoveTo 220+sx,433+sy
LeftClick 1
MoveTo 216+sx,389+sy
LeftClick 1
End Sub
//建议你在子程序里面多一些delay不然电脑很卡的~
按我理解的意思给你个大概思路,你自己改下,要是不行就给我hi
-----------
//之前的代码你自己搞
BT = Plugin.Sys.GetTime() //获得当前系统时间
CT = Plugin.Sys.GetTime() //获得当前系统时间
While CT - BT < 180000 //如果时间差小于3分钟就循环运行
Call 子程序()//如果你的子程序很短下面再加一个“delay ”不然CPU运行会很高,延时多少你自己定
CT = Plugin.Sys.GetTime()
Wend//按键7用Endwhile
//这儿就是超过三分钟后你要执行的代码了
Sub 子程序()
//别忘了子程序的内容放这儿
End Sub
------------------
希望对你有帮助
Rem 开始
Hwnd = Plugin.Window.Foreground()
s = Window.GetClientRect(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 = Plugin.Sys.GetTime()
CT = Plugin.Sys.GetTime()
While CT - BT < 180000
Call aa()
CT = Plugin.Sys.GetTime()
Wend
goto 开始
Sub aa()
KeyDown 105,25
MoveTo 220+sx,433+sy
LeftClick 1
MoveTo 216+sx,389+sy
LeftClick 1
End Sub
//建议你在子程序里面多一些delay不然电脑很卡的~
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询