自己写的一个定时关机或重启的vbs脚本

时间:2022-09-21 20:43:06
  1. dim ActionID  
  2. ActionID = 1    '0注销,1关机,2重启,  
  3. ActionTime = "2006-1-4 13:42:30"    '关机或重启时间  
  4.  
  5. function ShutDown()  
  6.     dim objShell  
  7.     Set objShell = WScript.CreateObject("Wscript.Shell")  
  8.  
  9.     dim Application  
  10.     set Application = CreateObject("Shell.Application.1")  
  11.     Application.ShutdownWindows()  
  12.     dim upi  
  13.     for upi = 0 to 4  
  14.         WScript.Sleep(50)  
  15.         objShell.sendKeys("{UP}")  
  16.     next  
  17.     For upi = 1 to ActionID  
  18.         WScript.Sleep(50)  
  19.         objShell.sendKeys("{DOWN}")  
  20.     next  
  21.     '使用时,请把下行的注释符去掉  
  22.     'objShell.sendKeys("{ENTER}")  
  23. end function  
  24.  
  25. While true  
  26.     if DateDiff("s", Now, ActionTime) < 0 then  
  27.         ShutDown()  
  28.     end if  
  29.     WScript.Sleep(5*1000)  
  30. wend  
  31.  
  32.  
  33. '将上面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右键选择以命令提示打开,  
  34. '如果到了你设置重启的时候,系统会出现关机的对话框。  
  35. '直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用时,请去掉注释符。