bearbear12345

CAPS LOCK (&NUM LOCK) RAVE

Mar 25th, 2014
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Toggles caps lock on and off -> looks cool if you have a caps lock indicator light, also does it to the num lock
  2. 'Otherwise, it makes YouR TeXT LoOk LikE THis
  3.  
  4. 'Leave this part
  5. Set b=wscript.CreateObject("WScript.Shell")
  6. Dim a
  7. a = 0
  8. 'Change the number below for the amount of times the message is sent
  9. do while a < 6
  10. 'Change the message here, leave {ENTER}
  11. b.sendkeys "IGUTSWAG{ENTER}"
  12. 'If you want to change the sleep time
  13. wscript.sleep 1000
  14. a = a+1
  15. loop
  16.  
  17. 'CAPS LOCK AND NUMLOCK SPAM [Numlock is more for the indicator on my PC]
  18. Dim bearsaysyolo
  19. bearsaysyolo = 0
  20. do while num < 2
  21. bearsaysyolo = bearsaysyolo+1
  22. bearsaysyolo = bearsaysyolo-1
  23. wscript.sleep 50
  24. b.sendkeys "{CAPSLOCK}"
  25. wscript.sleep 50
  26. b.sendkeys "{NUMLOCK}"
  27. loop
Advertisement
Add Comment
Please, Sign In to add comment