按键精灵如何设置指定时间执行某一个按键?
发布网友
发布时间：2022-06-04 23:24
共2个回答
热心网友
时间：2022-07-10 04:31
直接复制下面代码
Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, Tittle
Tittle = "[飞龙三少]按键精灵定时器"
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Rem 定时器开始
Gosub SetRunTime
Gosub CheckTime
Rem 定时器结束
EndScript
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Sub SetRunTime
PromptStr = "请设置程序定时运行的时间！" &Chr(13)&Chr(13)& "请务必按文本框内格式进行设定！"
//设定时间格式
RTFormat = Date & " " & Hour(Now) & ":" & Minute(Now)
//设置定时运行时间
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen > 0
RunTime = FormatDateTime(RunTime)
PromptStr = "当前定时时间【" + Runtime + "】" &Chr(13)&Chr(13)& "确认定时设置并启动定时器？"
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定时器结束
EndIf
Else
PromptStr = "您已取消设置定时！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定时器结束
EndIf
Return SetRunTime
Sub CheckTime
//计算当前系统时间与定时时间的时间间隔
//间隔60秒以内，开始执行子程序Main的脚本
//若系统时间超过定时时间60秒，定时器退出
//定时器每隔45秒计算一次时间间隔
DiffDate = DateDiff("s",Now,RunTime)
If Abs(DiffDate) <= 60
Gosub Main
ElseIf DiffDate < -60
PromptStr = "当前系统时间已超过定时时间范围！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Else
Delay 45000
Gosub CheckTime
EndIf
Return CheckTime
Sub Main
KeyPress 83,1
//需要定时运行的脚本入口
Return Main
//复制以上代码.
//打开按键精灵-源文件-粘贴代码-保存退出
//S键已经给你加进去了
//你只需要按F10启动脚本 然后根据弹出的提示框输入你要什么日期什么时间启动 就可以
到指定时间后他会按一下S键
上面的为设置时间后如果弹出窗口 就表示你设置的生效了 然后删除语句:MsgBox("现在时间：" & Now & "，开始执行脚本!")
或者重新复制下面这段.
Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, Tittle
Tittle = "[飞龙三少]按键精灵定时器"
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Rem 定时器开始
Gosub SetRunTime
Gosub CheckTime
Rem 定时器结束
EndScript
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Sub SetRunTime
PromptStr = "请设置程序定时运行的时间！" &Chr(13)&Chr(13)& "请务必按文本框内格式进行设定！"
//设定时间格式
RTFormat = Date & " " & Hour(Now) & ":" & Minute(Now)
//设置定时运行时间
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen > 0
RunTime = FormatDateTime(RunTime)
PromptStr = "当前定时时间【" + Runtime + "】" &Chr(13)&Chr(13)& "确认定时设置并启动定时器？"
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定时器结束
EndIf
Else
PromptStr = "您已取消设置定时！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定时器结束
EndIf
Return SetRunTime
Sub CheckTime
//计算当前系统时间与定时时间的时间间隔
//间隔60秒以内，开始执行子程序Main的脚本
//若系统时间超过定时时间60秒，定时器退出
//定时器每隔45秒计算一次时间间隔
DiffDate = DateDiff("s",Now,RunTime)
If Abs(DiffDate) <= 60
Gosub Main
ElseIf DiffDate < -60
PromptStr = "当前系统时间已超过定时时间范围！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Else
Delay 45000
Gosub CheckTime
EndIf
Return CheckTime
Sub Main
KeyPress 83,1
//需要定时运行的脚本入口
Return Main
不要用8版 要用7以下的版本
热心网友
时间：2022-07-10 04:32
当然要看你要把“A”键发送给哪个应用程序了。
取得程序句柄，直接SendKeys就完了。不行的话PostMessage。
