Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for lockkitt.vbs

(view source code of lockkitt.vbs as plain text)

  1. Set WshShell = CreateObject( "WScript.Shell" )
  2. counter = 0
  3. While counter < 18
  4. 	WshShell.SendKeys "{NUMLOCK}"
  5. 	WScript.Sleep 200
  6. 	WshShell.SendKeys "{NUMLOCK}"
  7. 	WshShell.SendKeys "{CAPSLOCK}"
  8. 	WScript.Sleep 200
  9. 	WshShell.SendKeys "{CAPSLOCK}"
  10. 	WshShell.SendKeys "{SCROLLLOCK}"
  11. 	WScript.Sleep 200
  12. 	WshShell.SendKeys "{SCROLLLOCK}"
  13. 	WshShell.SendKeys "{CAPSLOCK}"
  14. 	WScript.Sleep 200
  15. 	WshShell.SendKeys "{CAPSLOCK}"
  16. 	counter = counter + 1
  17. WEnd
  18.  

page last uploaded: 2017-04-06, 13:33