Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for locksnak.vbs

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

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

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