Begini caranya…
copas script berikut ke notepad :
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 “p”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “r”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “l”
WScript.Sleep 500
WshShell.SendKeys “k”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “u”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “s”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys “y”
WScript.Sleep 500
WshShell.SendKeys “a”
WScript.Sleep 500
WshShell.SendKeys ” “
WScript.Sleep 500
WshShell.SendKeys “D”
WScript.Sleep 500
WshShell.SendKeys “e”
WScript.Sleep 500
WshShell.SendKeys “n”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “S”
WScript.Sleep 500
WshShell.SendKeys “t”
WScript.Sleep 500
WshShell.SendKeys “u”
WScript.Sleep 500
WshShell.SendKeys “p”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “d”
WScript.Sleep 500
WshShell.SendKeys “i”
WScript.Sleep 500
WshShell.SendKeys “t”
WScript.Sleep 500
WshShell.SendKeys “y”
lalu save as dgn ekstensi .vbs
klik file tsb, dan liat keajaiban pun terjadi
Good Luck..
