Baru ponya ide nee tadi malem untuk gabungin script²
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..
Tidak ada komentar:
Posting Komentar