永发信息网

如何用按键精灵设置定时开关一个程序

答案:3  悬赏:60  手机版
解决时间 2021-05-09 15:25

怎样用按键精灵定时开一个程序和关闭一个程序

最佳答案

有什么问题再补充咯.本来想加入一条智能检测命令,实在是不知返回的是什么类型的,呵呵.



//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★程序配置★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
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

全部回答
如果仅仅是开关一个程序的话,你为什么不用windows自带的计划任务来做呢?简单高效,还不占系统资源。

很好写的,

先设置路径,再确定OK再设置时间,再设置关闭,

这就是思路,具体的你可以自己想想,完成了会有新的感觉的!

之前我也写过很多脚本!

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
为什么我在达州找不到北京烤鸭店呢?
QQ三国推举孝廉答案!
为什么在QQ空间里的应用里点击任何应用,它都
辽宁石油化工大学的篮球馆怎么样?
宽带帐号被盗
在手机网上什么网站上不用注册就能下载的电子
全世界有多少的名字叫卓雨林的
范家社区居委会(欣和路)地址在哪,我要去那里
郑州皇家摄影基地在什么地方啊,我要过去处理
I No 卢广仲 安空间音乐的地址是什么?
善意的谎言,真的善意吗???
一个小孩和他妈妈去河边洗衣服:小孩掉到了河
今天10月15号,阴历多少?
DNF满级号怎么减少COF指数???
武汉哪个动物园最好玩,武汉的博物馆和动物园
推荐资讯
表示对感情迷茫的句子,用诗句来表达下面提示
阿敏布艺地址在哪,我要去那里办事
好听的情话短句,女生对男生说的最好的一百句
盘王节、花山节、火把节、是哪个民族的节日
谁有好看的动作片啊
长庆油田采油三厂
见女生紧张,怎样练胆?
淅溪大桥地址在哪,我要去那里办事
关闭QQ空间后日志、相册、留言还在吗?
对银行开门红会议的祝贺词
飞车里剃刀和星舰哪一只性能更好
什么时候是安全期?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?