这个是大概写的,详细可以继续hi我!! 还要修改!!!!
Dim 小时
Rem 开始 '标记开始
小时 = Hour(time) '取当前小时
If 小时 = 18 or 23 Then '如果是18:00 或者是22:00则运行B
b = BeginThread(B脚本)
StopThread a '停止A脚本
Else '如果不是你要B运行的时间就运行A脚本
a = BeginThread(A脚本)
End If
goto 开始 '跳转到开始
Sub A脚本
RightClick 1
Delay 500
KeyPress "S", 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 83, 1
Delay 50
KeyUp 18, 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 69, 1
Delay 50
KeyUp 18, 1
Delay 1000
End Sub
Sub B脚本
Call Plugin.Sys.SetCLB("剪切板内容")
Delay 1000
MoveTo 135, 30
Delay 500
LeftClick 1
Delay 500
MoveTo 155, 115
Delay 500
LeftClick 1
MoveTo 640, 480
Delay 500
RightClick 1
Delay 500
KeyPress "A", 1
Delay 500
MoveTo 800, 480
Delay 500
LeftClick 1
Delay 500
'B运行完毕
ContinueThread A '开始运行A脚本
End Sub
使用获取系统时间。。
然后加个 到时的判断。
转跳到A过程上。A执行完毕。接着执行B
B执行完毕转跳到判断语句上去就可以了
如果不会写我就帮你写下。