Advertisement
FlyFar

RandomTyping.vbs

Aug 19th, 2023
1,590
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 0.42 KB | Cybersecurity | 0 0
  1. set shellobj = CreateObject("WScript.Shell")
  2. shellobj.run "cmd"
  3.  
  4. do
  5.  
  6. shellobj.sendkeys "F"
  7. wscript.sleep 200
  8. Shellobj.sendkeys "u "
  9. Shellobj.sendkeys "c "
  10. Shellobj.sendkeys "k "
  11. Shellobj.sendkeys "i "
  12. Shellobj.sendkeys "n "
  13. Shellobj.sendkeys "g "
  14. Shellobj.sendkeys "b "
  15. Shellobj.sendkeys "i "
  16. Shellobj.sendkeys "t "
  17. Shellobj.sendkeys "c "
  18. Shellobj.sendkeys "h "
  19. Shellobj.sendkeys "{ENTER}"
  20. wscript.sleep 200
  21.  
  22. loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement