按键精灵获取系统时间定时点击

'==========以下是按键精灵录制的内容 author:chzeze ==========
dim h,m,s
Rem [wait]
h=Hour(time)
m = Minute(time)
s = Second(time)
UserVar HH=0 "时(时)"
UserVar MM=0 "分(分)"
UserVar SS=0 "秒(秒)"
UserVar inter=6500 "第二次提交间隔(毫秒)"

If h = HH and m = MM and s=SS

MoveTo 85, 40
Delay 0
LeftDown 1
Delay 0
LeftClick 1
Delay 0
LeftUp 1

Delay inter
LeftDown 1
Delay 0
LeftClick 1
Delay 0
LeftUp 1

Else 
Delay 200
Goto [wait] 
EndIf

'==========以上是按键精灵录制的内容==========
posted @ 2016-05-16 20:29  陈泽泽  阅读(18542)  评论(0编辑  收藏  举报