Question

按键精灵自定义按键和延时？

求这样的脚本
后台按自定义按键1
自定义延时1
后台按自定义按键2
自定义延时2
后台按自定义按键3
自定义延时3
后台按自定义按键4
自定义延时4

以及能指定时间关机 和 能取消关机的脚本

Answer 1

UserVar Var1=0 "自定义按键1"
UserVar Var2=0 "自定义按键2"
UserVar Var3=0 "自定义按键3"
UserVar Var4=0 "自定义按键4"
UserVar VarA=0 "自定义延时1"
UserVar VarB=0 "自定义延时2"
UserVar VarC=0 "自定义延时3"
UserVar VarD=0 "自定义延时4"
UserVar VarX=1 "自定义循环次数"
For VarX
KeyPress Var1, 1
Delay VarA
KeyPress Var2, 2
Delay VarB
KeyPress Var3, 3
Delay VarC
KeyPress Var4, 4
Delay VarD
Next

【以上是自定义按键和延时】
【For VarX……Next 这个是循环次数不要删掉这几个就行】

【其实这个就行设置下，也不麻烦。开始菜单 运行 输入cmd 回车 输入 shutdown -s -t 默认60秒关机，你要定时，只要在t后面空一格然后输入数字(时间单位是秒)，取消定时关机:shutdwon -a】

【如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这里表示60分钟后自动关机，“3600”代表60分钟，取消定时关机:shutdwon -a】

【设置指定时间关机这个是按键里的自带的脚本给你复制下，取消自动关机，关掉脚本就是了】

//********************************* 说明 *****************************************
//时间格式为24小时制 -- 00：00~23：59
//当不在这个范围内会报错并返回让用户重新输入~~ ：）
//********************************* 源代码 *****************************************
dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")
//调用“Wscript.Shell”
UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
// RegRead -- 读取注册表
YN=Obj.Popup(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)
//Popup--弹出对话框
If YN=6 Then
//标记 输入时间
Rem InputTime
SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
//*********************************** 判断时间格式 ****************************************************
LenS=Len(SWTime)
//Len--获得字符串的长度
Num=Instr(SWTime,":")
//Instr--获得":"所在字符串中的位置
If Num=0 Then
Num=Instr(SWTime,"：")
End If
If Num=0 Then
Call Obj.Popup("间隔符错误！请用“ : ”或者“ ： ”",5,"时间格式错误！",48)
//跳到 输入时间
Goto InputTime
End If
If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0 Then
//left--取字符串左边Num-1个长度的字符
Call Obj.Popup("小时格式输入错误！",5,"时间格式错误！",48)
Goto InputTime
End If
If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then
//Right--取字符串右边LenS-Num个长度的字符
Call Obj.Popup("分钟格式输入错误！",5,"时间格式错误！",48)
//跳到 输入时间
Goto InputTime
End If
//*********************************** 判断时间格式 ****************************************************
Call Obj.Popup("系统将在"&SWTime&"关机！！",5,"自动关机！",48)
Rem Start
NowTime=Time
//Time -- 获得当前时间
If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime) Then
//Hour -- 获得小时， Minute -- 获得分钟
Obj.Run "shutdown /f /s /t 0"
//调用shutdown命令。 /f--强行关闭应用程序而不提醒， /s--关闭计算机（要重启的话，请把这改成/r[重启计算机]），/t time--在time秒后前闭计算机。
End If
For 30
Delay 1000
Next
Goto Start
End If