1. Event(Form1.over.click)
2. 令 Hwnd = Window.Find(0,"改编版电脑自动关机程序3代")
3. 令 HwndEx = Window.FindEx(Hwnd,0,"Dialog",0)
4. 调用 Window.CloseEx(Hwnd)
5. (语句无法识别，可能有错误): End Event
6. Event(Form1.Start.Click)
7. 延时 100 毫秒
8. 定义变量 Obj, UserName, NowTime, LenS, Num
9. 令 Obj = createobject("WScript.Shell")
10. 令 UserName = Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
11. 令 YN = Obj.Popup(UserName & " 你好，是否使用自动定时关机？",0,"关机？",36)
12. 如果 YN = 6 则
13.     标记 InputTime
14.     令 SWTime = InputBox("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
15.     令 LenS = Len(SWTime)
16.     令 Num = Instr(SWTime,":")
17.     如果 Num = 0 则
18.         令 Num = Instr(SWTime,"：")
19.     条件结束
20.     如果 Num = 0 则
21.         调用 Obj.Popup("间隔符错误！请用“ : ”或者“ ： ”",5,"时间格式错误！",48)
22.         跳转到标记 InputTime
23.     条件结束
24.     如果 left(SWTime,Num - 1) > 23 或者 left(SWTime,Num - 1) < 0 则
25.         调用 Obj.Popup("小时格式输入错误！",5,"时间格式错误！",48)
26.         跳转到标记 InputTime
27.     条件结束
28.     如果 Right(SWTime,LenS - Num) > 59 或者 Right(SWTime,LenS - Num) < 0 则
29.         调用 Obj.Popup("分钟格式输入错误！",5,"时间格式错误！",48)
30.         跳转到标记 InputTime
31.     条件结束
32.     调用 Obj.Popup("系统将在" & SWTime & "关机！！",5,"自动关机！",48)
33.     标记 Start
34.     令 NowTime = Time
35.     如果 Hour(SWTime) = Hour(NowTime) 并且 Minute(SWTime) = Minute(NowTime) 则
36.         Obj.Run("shutdown /f /s /t 0")
37.     条件结束
38.     循环 30 次
39.         延时 1000 毫秒
40.     循环结束
41.     跳转到标记 Start
42. 条件结束
43. (语句无法识别，可能有错误): End Event