1.     条件结束
  2.     延时200毫秒
  3. 子程序结束,回到调用处
  4. 子程序 定时关机
  5.     如果表达式 (ZC=1) 为真,则
  6.         //********************************* 说明 *****************************************
  7.         //时间格式为24小时制 -- 00：00~23：59
  8.         //当不在这个范围内会报错并返回让用户重新输入~~ ：）
  9.         //********************************* 源代码 *****************************************
  10.         dim Obj,UserName,NowTime,LenS,Num
  11.         set Obj = createobject("WScript.Shell")
  12.         //调用“Wscript.Shell”
  13.         UserName=Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
  14.         // RegRead -- 读取注册表
  15.         YN=Obj.Popup(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)
  16.         //Popup--弹出对话框
  17.         如果表达式 (YN=6) 为真,则
  18.             //标记 输入时间
  19.             标记 InputTime
  20.             调用外部VBScript子程序 SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")
  21.             //*********************************** 判断时间格式 ****************************************************
  22.             LenS=Len(SWTime)
  23.             //Len--获得字符串的长度
  24.             Num=Instr(SWTime,":")
  25.             //Instr--获得":"所在字符串中的位置
  26.             如果表达式 (Num=0) 为真,则
  27.                 Num=Instr(SWTime,"：")
  28.             条件结束
  29.             如果表达式 (Num=0) 为真,则
  30.                 Call Obj.Popup("间隔符错误！请用“ : ”或者“ ： ”",5,"时间格式错误！",48)
  31.                 //跳到 输入时间
  32.                 跳转到标记 InputTime
  33.             条件结束
  34.             如果表达式 (left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0) 为真,则
  35.                 //left--取字符串左边Num-1个长度的字符
  36.                 Call Obj.Popup("小时格式输入错误！",5,"时间格式错误！",48)
  37.                 跳转到标记 InputTime
  38.             条件结束
  39.             如果表达式 (Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0) 为真,则
  40.                 //Right--取字符串右边LenS-Num个长度的字符
  41.                 Call Obj.Popup("分钟格式输入错误！",5,"时间格式错误！",48)
  42.                 //跳到 输入时间
  43.                 跳转到标记 InputTime
  44.             条件结束
  45.             //*********************************** 判断时间格式 ****************************************************
  46.             Call Obj.Popup("系统将在"&SWTime&"关机！！",5,"自动关机！",48)
  47.             跳转到标记 开始
  48.             标记 Start
  49.             NowTime=Time
  50.             //Time -- 获得当前时间
  51.             如果表达式 (Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime)) 为真,则
  52.                 //Hour -- 获得小时， Minute -- 获得分钟
  53.                 Obj.Run "shutdown /f /s /t 0"
  54.                 //调用shutdown命令。 /f--强行关闭应用程序而不提醒， /s--关闭计算机（要重启的话，请把这改成/r[重启计算机]），/t time--在time秒后前闭计算机。
  55.             条件结束
  56.             延时1000毫秒
  57.             跳转到标记 1
  58.         条件结束
  59.     条件结束
  60. 子程序结束,回到调用处
  61. 子程序 是否开好友
  62.     调用插件命令 XY = BkgndColor.FindColor(Hwnd,928,95,930,97, "34A018")
  63.     MyArray = Split(XY, "|")
  64.     X = Clng(MyArray(0)): Y = Clng(MyArray(1))
  65.     如果表达式 (X>0 and Y>0) 为真,则
  66.         跳转到标记 3
  67.     条件结束
  68.     调用插件命令 Bkgnd.LeftClick(Hwnd,937,248)
  69.     延时1000毫秒
  70. 子程序结束,回到调用处