按键精灵脚本A,B。A一直循环执行。B在一定时间执行(B运行时间大概3-5分钟)。奖励分我可以追加

2024-12-26 18:19:25
推荐回答(2个)
回答1:

这个是大概写的,详细可以继续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

回答2:

使用获取系统时间。。
然后加个 到时的判断。
转跳到A过程上。A执行完毕。接着执行B
B执行完毕转跳到判断语句上去就可以了
如果不会写我就帮你写下。