Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for lockrand.vbs

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

  1. Set WshShell = CreateObject( "WScript.Shell" )
  2. Randomize
  3. counter = 0
  4. While counter < 150
  5. 	random = Int( 3 * Rnd + 1 )
  6. 	Select Case random
  7. 		Case 1
  8. 			WshShell.SendKeys "{CAPSLOCK}"
  9. 		Case 2
  10. 			WshShell.SendKeys "{SCROLLLOCK}"
  11. 		Case else
  12. 			WshShell.SendKeys "{NUMLOCK}"
  13. 	End Select
  14. 	WScript.Sleep 100
  15. 	counter = counter + 1
  16. WEnd
  17.  

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