MENGETIK PESAN OTOMATIS DI NOTEPAD

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension *.VBS


WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell =
WScript.CreateObject ("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate
"Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500 WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

Posted in: Trik Code