Pesen berjalan di notepad

Baru ponya ide nee tadi malem untuk gabungin script² iseng buat kompi/ PC or tenktop..
Sebenernya ga gitu penting si.. tapi lumayan neh buat iseng ato buat kasi peringatan di PC or plesdis..


Cara kerjanya sederhana banget kok..
cuma tinggal diedit ajah dr script yg saiah kasi inih..


untuk contoh file-nya bisa didonwload  diSINI 


Ada baiknya kalian liat dulu contohnya.. tenang aja ga usah kaget apa yang ada dalem file itu..
itu hanya semata-mata iseng belaka..
Untuk script-nya kalian copy aja yang dibawah ini...


Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "H"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 200
wshshell.sendkeys "I"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "m"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "S"
wscript.sleep 100
wshshell.sendkeys "U"
wscript.sleep 100
wshshell.sendkeys "K"
wscript.sleep 100
wshshell.sendkeys "M"
wscript.sleep 100
wshshell.sendkeys "A"
lol = msgbox("PESAN_KAMU")


Edit yang saia kasi warna merah,, lalu save dengan format .vbs, misalnya "klik aja.vbs"   ...itu juga bisa kalian kembangun lagi.. silakan ajah dirombak sesuka ati..

Artikel Terkait