Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- WScript.Sleep 18000
- WScript.Sleep 1000
- do
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.Run "notepad"
- WScript.Sleep 100
- WshShell.AppActivate "Notepad"
- WScript.Sleep 500
- WshShell.SendKeys "K"
- WScript.Sleep 500
- WshShell.SendKeys "u"
- WScript.Sleep 500
- WshShell.SendKeys "n"
- WScript.Sleep 500
- WshShell.SendKeys "j"
- WScript.Sleep 500
- WshShell.SendKeys "u"
- WScript.Sleep 500
- WshShell.SendKeys "n"
- WScript.Sleep 500
- WshShell.SendKeys "g"
- WScript.Sleep 500
- WshShell.SendKeys "i"
- WScript.Sleep 500
- WshShell.SendKeys " "
- WScript.Sleep 500
- WshShell.SendKeys "b"
- WScript.Sleep 500
- WshShell.SendKeys "l"
- WScript.Sleep 500
- WshShell.SendKeys "o"
- WScript.Sleep 500
- WshShell.SendKeys "g"
- WScript.Sleep 500
- WshShell.SendKeys "s"
- WScript.Sleep 500
- WshShell.SendKeys "4"
- WScript.Sleep 500
- WshShell.SendKeys "r"
- WScript.Sleep 500
- WshShell.SendKeys "t"
- WScript.Sleep 500
- WshShell.SendKeys "."
- WScript.Sleep 500
- WshShell.SendKeys "b"
- WScript.Sleep 500
- WshShell.SendKeys "l"
- WScript.Sleep 500
- WshShell.SendKeys "o"
- WScript.Sleep 500
- WshShell.SendKeys "g"
- WScript.Sleep 500
- WshShell.SendKeys "s"
- WScript.Sleep 500
- WshShell.SendKeys "p"
- WScript.Sleep 500
- WshShell.SendKeys "o"
- WScript.Sleep 500
- WshShell.SendKeys "t"
- WScript.Sleep 500
- WshShell.SendKeys "."
- WScript.Sleep 500
- WshShell.SendKeys "c"
- WScript.Sleep 500
- WshShell.SendKeys "o"
- WScript.Sleep 500
- WshShell.SendKeys "m"
- WScript.Sleep 500
- wscript.sleep 5000
- loop
- ==========================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement