Tulisan Berjalan Pada Program Notepad

 Tulisan ini kita buat pakai Program notepad, dan hasil akan keluar pada program notepad, juga. hehehehe, kenapa bertele gini sih, ya deh langsung pratek nya..
langkah-langkah nya seperti biasa buka program notepad lalu ketikan script ini atau copi paste aja


set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"

WScript.Sleep 500

WshShell.SendKeys "."

WScript.Sleep 500

WshShell.SendKeys "."

WScript.Sleep 500

WshShell.SendKeys "."

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "b"

WScript.Sleep 500

WshShell.SendKeys "e"

WScript.Sleep 500

WshShell.SendKeys "l"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys "j"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys "r"

WScript.Sleep 500

WshShell.SendKeys " "



WshShell.SendKeys " "

WScript.Sleep 500

WScript.Sleep 500

WshShell.SendKeys "y"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys "n"

WScript.Sleep 500

WshShell.SendKeys "g"

WScript.Sleep 500





WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "g"

WScript.Sleep 500

WshShell.SendKeys "i"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys "t"

WScript.Sleep 500

WshShell.SendKeys "y"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 500