(view source code of lockrand.vbs as plain text)
Set WshShell = CreateObject( "WScript.Shell" )
Randomize
counter = 0
While counter < 150
random = Int( 3 * Rnd + 1 )
Select Case random
Case 1
WshShell.SendKeys "{CAPSLOCK}"
Case 2
WshShell.SendKeys "{SCROLLLOCK}"
Case else
WshShell.SendKeys "{NUMLOCK}"
End Select
WScript.Sleep 100
counter = counter + 1
WEnd
page last modified: 2024-04-16; loaded in 0.0052 seconds