求高手帮我把这个按键精灵脚本弄成无限循环

答案:3 悬赏:20 手机版

解决时间 2021-08-21 01:58

提问者网友：山高云阔
2021-08-20 10:38

[General]
SyntaxVersion=1
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=0
EnableWindow=
MacroID=7a70b911-6b45-43b1-8708-2fcca358a975
Description=哈哈
Enable=0
AutoRun=1
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1024,746)
Call Plugin.Web.Go(" http://mtsj.37wan.com/game_login.php?server=S57")
Call Plugin.Web.ScrollTo(0,0)
Delay 1312
Call Plugin.Web.LeftClick(915,196)
Delay 1266
Call Plugin.Web.LeftClick(484,394)
Delay 12516
Call Plugin.Web.LeftClick(541,435)
Delay 4031
Call Plugin.Web.LeftClick(583,407)
Delay 2328
Call Plugin.Web.LeftClick(592,116)
Delay 781
Call Plugin.Web.LeftClick(605,134)
Delay 1766
Call Plugin.Web.LeftClick(948,44)
Delay 1500
Call Plugin.Web.LeftClick(907,191)
Delay 922
Call Plugin.Web.LeftDown(482,394)
Delay 140
Call Plugin.Web.LeftUp(480,394)
Delay 11328
Call Plugin.Web.LeftClick(545,438)
Delay 1375
Call Plugin.Web.LeftClick(585,411)
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub

最佳答案

五星知识达人网友：归鹤鸣
2021-08-20 11:05

请问楼主，是这段全部都无限循环吗？

如果是的

在开头加上：

Rem ab

在结尾加上：

Goto ab

全部回答

1楼网友：忘川信使
2021-08-20 12:00

Rem aa

ProcessID=Plugin.Web.Bind("wqm.exe")//找到这段，在上面加上Rem aa
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1024,746)
Call Plugin.Web.Go(" http://mtsj.37wan.com/game_login.php?server=S57")
Call Plugin.Web.ScrollTo(0,0)
Delay 1312
Call Plugin.Web.LeftClick(915,196)
Delay 1266
Call Plugin.Web.LeftClick(484,394)
Delay 12516
Call Plugin.Web.LeftClick(541,435)
Delay 4031
Call Plugin.Web.LeftClick(583,407)
Delay 2328
Call Plugin.Web.LeftClick(592,116)
Delay 781
Call Plugin.Web.LeftClick(605,134)
Delay 1766
Call Plugin.Web.LeftClick(948,44)
Delay 1500
Call Plugin.Web.LeftClick(907,191)
Delay 922
Call Plugin.Web.LeftDown(482,394)
Delay 140
Call Plugin.Web.LeftUp(480,394)
Delay 11328
Call Plugin.Web.LeftClick(545,438)
Delay 1375
Call Plugin.Web.LeftClick(585,411)
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub//这下面加上Goto aa

Goto aa

2楼网友：三千妖杀
2021-08-20 11:24

Rem BEGINDelay 1000For 179 KeyPress 50,1EndFor Delay 1000 KeyPress 49,1 Goto BEGIN

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息