Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for lockloop.vbs

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

  1. Set WshShell = CreateObject( "WScript.Shell" )
  2. counter = 0
  3. While counter < 25
  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. 	counter = counter + 1
  14. WEnd
  15.  

page last modified: 2024-04-16; loaded in 0.0049 seconds