Advertisement
SH1NU11b1

keyboards

Aug 25th, 2015
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set wshShell =wscript.CreateObject("WScript.Shell")
  2. name=(" Watch the Magic on your Keyboard ")
  3. msgbox(" ") + name
  4. do
  5. wscript.sleep 100
  6. wshshell.sendkeys "{CAPSLOCK}"
  7. wshshell.sendkeys "{NUMLOCK}"
  8. wshshell.sendkeys "{SCROLLLOCK}"
  9. loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement