Jumat, 18 Desember 2009

Memainkan Temanmu Menggunakan script vbs

Wah..wah..sudah lama neh g nulis blog..
selain g ada waktu..males..yang paling mendasar adalah karena koneksinya yang lambet..
trus lupa account untuk log in pula..
hahaha

dah..dah..
sekarang langsung aja kita bahas neh..
script ini hanya untuk maen2 aja kok..
g ada maksud untuk ngerusak...
hmm..*tapi klo yang jago bisa aja ngedit neh script trus untuk ngerusak..

caranya cukup buka notepad kalian..trus copy aja script dibawah ini..

WScript.Sleep 180
WScript.Sleep 100
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 "you"
WScript.Sleep 500
WshShell.SendKeys "r sy"
WScript.Sleep 500
WshShell.SendKeys "stem"
WScript.Sleep 500
WshShell.SendKeys "hac"
WScript.Sleep 500
WshShell.SendKeys "ked"
WScript.Sleep 500
WshShell.SendKeys " Ajeet"
WScript.Sleep 500
WshShell.SendKeys "Rock"
WScript.Sleep 500
WshShell.SendKeys "s! "

trus paste ke notepadnya..
sesudah itu save dgn anyname.vbs extension
klo sudah..kirimin deh ke teman kalian..dan lihat apa yang terjadi..


nb: author tidak bertanggung jawab loh klo kena timpuk oleh temen kalian..^^