按键精灵怎么让它开始2个子程序独立运行
怎么让它开始2个子程序独立运行喝药在上面可以运行可魔法盾不运行Call喝药()Call魔法盾()Sub喝药()IfColor202,99,"22EE",1ThenKeyP...
怎么让它开始2个子程序独立运行
喝药在上面可以 运行 可 魔法盾 不运行
Call 喝药()
Call 魔法盾()
Sub 喝药()
IfColor 202,99,"22EE",1 Then
KeyPress "1", 1
Else
End If
IfColor 178,115,"887711",1 Then
KeyPress "2", 1
Else
End If
Delay 200
Call 喝药()
End Sub
Sub 魔法盾()
KeyPress "F4", 1
Delay 100
RightClick 1
Delay 100
KeyPress "F1", 1
Delay 150000
Call 魔法盾()
End Sub 展开
喝药在上面可以 运行 可 魔法盾 不运行
Call 喝药()
Call 魔法盾()
Sub 喝药()
IfColor 202,99,"22EE",1 Then
KeyPress "1", 1
Else
End If
IfColor 178,115,"887711",1 Then
KeyPress "2", 1
Else
End If
Delay 200
Call 喝药()
End Sub
Sub 魔法盾()
KeyPress "F4", 1
Delay 100
RightClick 1
Delay 100
KeyPress "F1", 1
Delay 150000
Call 魔法盾()
End Sub 展开
3个回答
展开全部
CPU 做事情的时候 也是分开做的,多线程技术。你试试多线程就OK了 ,按键精灵里有 多线程的支持库,代码加在里面就OK了
下面的是代码,自己理解吧。我不再多说。
MessageBox "多线程命令还在测试当中,并不稳定,请谨慎使用!不推荐新手使用。"
线程ID=BeginThread(测试)
Delay 3000
//<>-----------------------------------------启动“测试”线程的运行,并返回线程ID编号
MsgBox "线程暂停运行!3秒", 64, "演示:"
PauseThread 线程ID
Delay 3000
//<>-----------------------------------------等待3秒后暂停“测试”线程的运行
MsgBox "线程继续运行!3秒", 64, "演示:"
ContinueThread 线程ID
Delay 3000
//<>-----------------------------------------等待3秒后继续“测试”线程的运行
MsgBox "线程停止运行!", 64, "演示:"
StopThread 线程ID
//<>-----------------------------------------3秒后停止“测试”线程的运行
ExitScript
//<>-----------------------------------------停止并退出脚本运行
Sub 测试()
i=0
Do
Call Plugin.Msg.ShowScrTXT(0, 0, 600, 100, "线程1屏幕内容填写" & i, "0000FF")
TracePrint "屏幕内容填写" & i
Call Plugin.Msg.Tips("我是气泡!线程1屏幕内容填写" & i)
Delay 1000
i=i+1
Loop
End Sub
下面的是代码,自己理解吧。我不再多说。
MessageBox "多线程命令还在测试当中,并不稳定,请谨慎使用!不推荐新手使用。"
线程ID=BeginThread(测试)
Delay 3000
//<>-----------------------------------------启动“测试”线程的运行,并返回线程ID编号
MsgBox "线程暂停运行!3秒", 64, "演示:"
PauseThread 线程ID
Delay 3000
//<>-----------------------------------------等待3秒后暂停“测试”线程的运行
MsgBox "线程继续运行!3秒", 64, "演示:"
ContinueThread 线程ID
Delay 3000
//<>-----------------------------------------等待3秒后继续“测试”线程的运行
MsgBox "线程停止运行!", 64, "演示:"
StopThread 线程ID
//<>-----------------------------------------3秒后停止“测试”线程的运行
ExitScript
//<>-----------------------------------------停止并退出脚本运行
Sub 测试()
i=0
Do
Call Plugin.Msg.ShowScrTXT(0, 0, 600, 100, "线程1屏幕内容填写" & i, "0000FF")
TracePrint "屏幕内容填写" & i
Call Plugin.Msg.Tips("我是气泡!线程1屏幕内容填写" & i)
Delay 1000
i=i+1
Loop
End Sub
追问
看不知道怎么懂 能帮我弄上去吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
rem aa
Call 喝药()
Call 魔法盾()
goto aa
Call 喝药()
Call 魔法盾()
goto aa
追问
加标记也没用 开始我不要它循环 2个子程序启动了就可以了 我要他独立都启动
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询