怎样用按键精灵定时开一个程序和关闭一个程序
怎样用按键精灵定时开一个程序和关闭一个程序
有什么问题再补充咯.本来想加入一条智能检测命令,实在是不知返回的是什么类型的,呵呵.
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★程序配置★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
UserVar ys=1200 请输入程序打开后多长时间关闭,单位为秒
UserVar kg=0 是否换新路径(0为上次路径,1为弹窗选择新路径)
Plugin IsFile = File.IsFileExit("D:\路径设置.ini")
If IsFile = True
If kg=0
Plugin wjlj = File.ReadINI("配置", "文件路径", "D:\路径设置.ini")
Else
Goto 弹窗选择新路径并写入配置文件
EndIf
Else
Rem 弹窗选择新路径并写入配置文件
Plugin wjlj=File.SelectFile()
Plugin File.WriteINI("配置", "文件路径", wjlj, "D:\路径设置.ini")
EndIf
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★调用子程序集★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Gosub 判断输入
Gosub 运行延时
If 1=0
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★判断输入★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Sub 判断输入
Rem 开始输入
yxsj=inputbox("请输入程序运行时间,格式如15:00:00,不输入则程序中止运行","定时输入框")
If len(yxsj)=0
EndScript
EndIf
If UBound(split(yxsj,":"))<2
yxsjgs=msgbox("输入格式有误哦,单击确定返回重新输入,点击取消结束定时运行设定",1,"输入格式有误")
If yxsjgs=1
Goto 开始输入
EndIf
If yxsjgs=2
EndScript
EndIf
EndIf
Return 判断输入
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★运行延时★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Sub 运行延时
If Hour(time)<clng(split(yxsj,":")(0))
szsj=msgbox("您输入的程序运行时间是"&yxsj&",而现在时间是"&time&",您是要在今天24点之前运行程序吗?"&vbNewLine&"点击是今天"&gjsj&"运行"&vbNewLine&"点击否明天"&gjsj&"运行"&vbNewLine&"点击取消返回重新输入时间",3,"运行时间确认")
If szsj=6
Delay datediff("s",time,cdate(yxsj))*1000
Gosub 运行程序
EndIf
If szsj=7
Delay (datediff("s",time,"23:59:59")+datediff("s","00:00:00",cdate(yxsj)))*1000+1000
Gosub 运行程序
EndIf
If szsj=2
Goto 程序开始
EndIf
Else
Delay (datediff("s",time,"23:59:59")+datediff("s","00:00:00",cdate(yxsj)))*1000+1000
Gosub 运行程序
EndIf
Return 运行延时
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★运行程序★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Sub 运行程序
Rem 程序循环运行
VBSCall RunApp(wjlj)
Delay 2000
Plugin cxjb=Window.Foreground()
Delay ys*1000-2000
Plugin Window.Close(cxjb)
Delay 1000
Goto 程序循环运行
Return 运行程序
EndIf
很好写的,
先设置路径,再确定OK再设置时间,再设置关闭,
这就是思路,具体的你可以自己想想,完成了会有新的感觉的!
之前我也写过很多脚本!