[General]
Description=Զʱػ
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content====ճӦ===.
˵.
Զʱػ.
ʱʽΪ24Сʱ -- 0000~2359.
Χڻᱨû~~ .
.
ʹ˵.
ֵõʱԶػȼΪ<F10>ֹȼΪ<F12>.
.
.
߽ܡ.
ר Jimmyzs.
.
ڡ.
<2006-7-13>

[Script]
//*********************************   ˵   *****************************************
//ʱʽΪ24Сʱ -- 0000~2359
//Χڻᱨû~~ 
//*********************************   Դ   *****************************************
dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")
//á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 -- õǰʱ
    If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime)
        //Hour -- Сʱ Minute -- ÷
        VBS Obj.Run "shutdown /f /s /t 0"
        //shutdown /f--ǿйرӦóѣ /s--رռҪĻĳ/r[]/t time--timeǰռ
    EndIf 
    Delay 30000
    Goto Start
EndIf
