时间格式为24小时制 -- 00：00~23：59
当不在这个范围内会报错并返回让用户重新输入~~ ：）

//********************************* 说明 *****************************************
本例子应该算是按键的高级应用吧！用到vbscript和wsricpt里的一些函数！在这把源代码贴出来，希望对大家有些帮助! :)
//********************************* 源代码 *****************************************

dim Obj,UserName,NowTime,LenS,Num,SoundPath
VBS SoundPath = "../VoiceTime/"
set Obj = createobject("WScript.Shell")
VBS UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
// RegRead -- 读取注册表
VBS YN=Obj.Popup(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)
//Popup--弹出对话框
If YN=6
Rem InputTime
VBSCall SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
//*********************************** 判断时间格式 ****************************************************
VBS LenS=Len(SWTime)
//Len--获得字符串的长度
VBS Num=Instr(SWTime,":")
//Instr--获得":"所在字符串中的位置
If Num=0
VBS Num=Instr(SWTime,"：")
EndIf
If Num=0
VBSCall Obj.Popup("间隔符错误！请用“ : ”或者“ ： ”",5,"时间格式错误！",48)
Goto InputTime
EndIf
If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0
//left--取字符串左边Num-1个长度的字符
VBSCall Obj.Popup("小时格式输入错误！",5,"时间格式错误！",48)
Goto InputTime
EndIf
If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0
//Right--取字符串右边LenS-Num个长度的字符
VBSCall Obj.Popup("分钟格式输入错误！",5,"时间格式错误！",48)
Goto InputTime
EndIf
//*********************************** 判断时间格式 ****************************************************
VBSCall Obj.Popup("系统将在"&SWTime&"关机！！",5,"自动关机！",48)
Rem Start
VBS NowTime=Time
//Time -- 获得当前时间
Gosub PlaySound
If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime)
//Hour -- 获得小时， Minute -- 获得分钟
VBS Obj.Run "shutdown /f /s /t 0"
EndIf
Delay 50000
Goto Start
EndIf
EndScript
//*********************************************************************************************************
//************************************ 整点报时子程序 *****************************************************
//*********************************************************************************************************
Sub PlaySound
If Minute(NowTime)=0
VBS TimeNow=SoundPath&"TimeNow.wav"
VBS PointPath=SoundPath&"POINT.wav"
VBS NowTime=Time
If Hour(NowTime)>=0 and Hour(NowTime)<6
VBS TimePath=SoundPath&"AM0.wav"
ElseIf Hour(NowTime)>=6 and Hour(NowTime)<=12
VBS TimePath=SoundPath&"AM1.wav"
ElseIf Hour(NowTime)>12 and Hour(NowTime)<18
VBS TimePath=SoundPath&"PM.wav"
ElseIf Hour(NowTime)>=18
VBS TimePath=SoundPath&"EM.wav"
EndIf
If Hour(NowTime)>12
TimeHour=Hour(NowTime)-12
Else
TimeHour=Hour(NowTime)
EndIf
VBS HourPath=SoundPath&"T"&TimeHour&".Wav"
VBS i=1
For 4
If i=1
VBS PlaySound = "sndrec32 /play /close " & chr(34) & TimeNow & chr(34)
ElseIf i=2
VBS PlaySound = "sndrec32 /play /close " & chr(34) & TimePath & chr(34)
ElseIf i=3
VBS PlaySound = "sndrec32 /play /close " & chr(34) & HourPath & chr(34)
ElseIf i=4
VBS PlaySound = "sndrec32 /play /close " & chr(34) & PointPath & chr(34)
EndIf
VBS Obj.Run PlaySound, 0, True
VBS i=i+1
EndFor
EndIf
Return