//以下代码,你在普通视图中能看的非常清楚,不需要太多的注释。
jo = Plugin.Sys.GetTime()
Do
ko = Plugin.Sys.GetTime()
//5分钟=300000毫秒,循环代码运行5分钟。
If ko - jo = 300000 Then
Goto po
Else
Call Plugin.Web.LeftClick(1000,597)
Delay 109
End If
Loop
Rem po
//间隔1分钟,1分钟=60000毫秒
Delay 60000
uo = Plugin.Sys.GetTime()
//再运行5分钟,5分钟=300000毫秒。
Do
yo = Plugin.Sys.GetTime()
If yo - uo = 300000 Then
Goto vo
Else
Call Plugin.Web.LeftClick(1000,597)
Delay 109
End If
Loop
Rem vo
//间隔的1分钟
Delay 60000
//等待30秒
Delay 30000
Call Plugin.Web.LeftClick(500,597)
Delay 109
SetSimMode 1
Dim tim1,tim2
//这里加入你自己原来脚本开始的语句
rem 开始
Call Plugin.Web.LeftClick(1000,597)
Delay 109
If DateDiff("s",tim1,now) >= 300 Then
//判断到没到5分钟也就是300秒
delay 30000
//等30钞
tim2=now
rem a1
If DateDiff("s",tim2,now) <30 Then
//判断到没到30秒
Call Plugin.Web.LeftClick(500,597)
Delay 109
goto a1
end if
tim1=now
end if
//继续循环
goto 开始
//8.X版本的
//注意把中止热键改成F12以外的键
Do
KeyPress "F8",1
KeyPress "Enter",1
Delay 300000
KeyPress "F12",1
KeyPress "Enter",1
Delay 1000
Loop