Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim objResult
- Set objShell = WScript.CreateObject("WScript.Shell")
- Do While True
- objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
- Wscript.Sleep (30000)
- Loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement