Event Form1.over.click
Hwnd = Plugin.Window.Find(0, "改编版电脑自动关机程序3代")
    HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Dialog", 0)
    Call Plugin.Window.CloseEx(Hwnd)
End Event
Event Form1.Start. Click

Delay 100

dim Obj,UserName,NowTime,LenS,Num
set Obj = createobject("WScript.Shell")

UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")

YN=Obj.Popup(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)

If YN=6 Then

    Rem InputTime
    SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
  
    LenS=Len(SWTime)

    Num=Instr(SWTime,":")

    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

        Call Obj.Popup("小时格式输入错误！",5,"时间格式错误！",48)
        Goto InputTime
    End If
    If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then

        Call Obj.Popup("分钟格式输入错误！",5,"时间格式错误！",48)

        Goto InputTime
    End If

    Call Obj.Popup("系统将在"&SWTime&"关机！！",5,"自动关机！",48)
    Rem Start
    NowTime=Time

    If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime) Then
 
        Obj.Run "shutdown /f /s /t 0"

    End If
    For 30
    	Delay 1000
    Next
    Goto Start
End If
End Event