8.0版本
[Script]
'=========定义启动时间(小时)==========
h = 21
'=========定义启动时间(分)==========
m = 50
'=========定义启动时间(秒)==========
s = 30
Dim hnow,mnow,snow
hnow = Hour(Now)
mnow = Minute(Now)
snow = Second(Now)
If hnow=h and mnow=m and snow=s Then
'==========以下是按键精灵录制的内容==========
'==========定义鼠标移动到的位置坐标==========
MoveTo 123, 202
'==========定义鼠标移动到位置坐标后等待时间(毫秒)==========
Delay 1
'==========点击左键一次==========
LeftClick 1
'==========以上是按键精灵录制的内容==========
End If
7.3的脚本
/RunTime是希望执行脚本的时间,比如晚上0:0:15.TimeNow是系统当前时间.
Dim RunTime,TimeNow,ShowStr
RunTime=CDate("12:35:30")
ShowStr = "您当前设置为" + CStr(RunTime) + "开始运行脚本"
VBSCall Call MessageBox(ShowStr)
//开始判断时间
Rem CheckTime
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer = DateDiff("s",TimeNow,RunTime)
If MyVer<60
Goto Main
Else
Delay 50000
Goto CheckTime
EndIf
//时间到了,开始执行正式的脚本内容
Rem Main
MoveTo 903,371
LeftClick 1