home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / Reboot.vbs < prev    next >
Text File  |  2002-01-03  |  372b  |  18 lines
  1. set MyShell = CreateObject("Wscript.Shell")
  2. start=timer
  3. do
  4. wscript.sleep 3600000
  5. diff=timer-start
  6. loop  while  diff < 345600
  7. '4 dny (345600 sekund) se Φekß, pak se poΦφtaΦ restartuje
  8.  
  9. do
  10. wscript.sleep 3600000
  11. loop while hour(now) < 3
  12. '╚ekßnφ na p∙lnoc
  13.  
  14. n=MyShell.run("rundll32 shell32,SHExitWindowsEx 2")
  15. do
  16. wscript.sleep 4000
  17. myshell.sendkeys "{a}"
  18. loop