Halo Bray, trik kali ini akan mengajak kamu untuk mengetahui gimana cara membuat sebuah kalimat muncul dengan sendirinya pada layar kerja notepad atau pada command prompt.
Kamu tentu akan merasa heran dan panik bila notepad tiba - tiba muncul dan mengetikkan kalimatnya sendiri. hahaha,..
Seperti biasa jalankan aplikasi notepad terlebih dahulu. kemudian ketikan bentuk script berikut ini...
WScript.Sleep 180
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
WScript.Sleep 100
WshShell.SendKeys "H"
WScript.Sleep 100
WshShell.SendKeys "E"
WScript.Sleep 100
WshShell.SendKeys "L"
WScript.Sleep 100
WshShell.SendKeys "L"
WScript.Sleep 100
WshShell.SendKeys "O"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "A"
WScript.Sleep 100
WshShell.SendKeys "P"
WScript.Sleep 100
WshShell.SendKeys "A "
WScript.Sleep 100
WshShell.SendKeys "KA"
WScript.Sleep 100
WshShell.SendKeys "BAR"
WScript.Sleep 100
WshShell.SendKeys "?"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "K"
WScript.Sleep 100
WshShell.SendKeys "O"
WScript.Sleep 100
WshShell.SendKeys "M"
WScript.Sleep 100
WshShell.SendKeys "P"
WScript.Sleep 100
WshShell.SendKeys "U"
WScript.Sleep 100
WshShell.SendKeys "T"
WScript.Sleep 100
WshShell.SendKeys "E"
WScript.Sleep 100
WshShell.SendKeys "R "
WScript.Sleep 100
WshShell.SendKeys "I"
WScript.Sleep 100
WshShell.SendKeys "N"
WScript.Sleep 100
WshShell.SendKeys "I "
WScript.Sleep 300
WshShell.SendKeys "TELAH "
WScript.Sleep 300
WshShell.SendKeys "DI HACK "
WScript.Sleep 300
WshShell.SendKeys "OLEH "
WScript.Sleep 300
WshShell.SendKeys "TULISKAN NAMAMU DI SINI"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
WScript.Sleep 100
WshShell.SendKeys "H"
WScript.Sleep 100
WshShell.SendKeys "E"
WScript.Sleep 100
WshShell.SendKeys "L"
WScript.Sleep 100
WshShell.SendKeys "L"
WScript.Sleep 100
WshShell.SendKeys "O"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "A"
WScript.Sleep 100
WshShell.SendKeys "P"
WScript.Sleep 100
WshShell.SendKeys "A "
WScript.Sleep 100
WshShell.SendKeys "KA"
WScript.Sleep 100
WshShell.SendKeys "BAR"
WScript.Sleep 100
WshShell.SendKeys "?"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "K"
WScript.Sleep 100
WshShell.SendKeys "O"
WScript.Sleep 100
WshShell.SendKeys "M"
WScript.Sleep 100
WshShell.SendKeys "P"
WScript.Sleep 100
WshShell.SendKeys "U"
WScript.Sleep 100
WshShell.SendKeys "T"
WScript.Sleep 100
WshShell.SendKeys "E"
WScript.Sleep 100
WshShell.SendKeys "R "
WScript.Sleep 100
WshShell.SendKeys "I"
WScript.Sleep 100
WshShell.SendKeys "N"
WScript.Sleep 100
WshShell.SendKeys "I "
WScript.Sleep 300
WshShell.SendKeys "TELAH "
WScript.Sleep 300
WshShell.SendKeys "DI HACK "
WScript.Sleep 300
WshShell.SendKeys "OLEH "
WScript.Sleep 300
WshShell.SendKeys "TULISKAN NAMAMU DI SINI"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
Simpan script dalam format file vbscript. klik menu file -> save as... sebagai contoh saya beri nama kalimat hantu.vbs kemudian klik tombol save untuk menyimpan script ini, sebaiknya simpan script ini pada Drive C.
Untuk melihat efek dari trik ini silahkan kamu dobel klik file kalimat hantu.vbs nya.

Komentar
Posting Komentar