Membuat notepad Hantu….
Apa jadinya ketika anda sedang asyik-asyiknya maen komputer, tiba-tiba notepad terbuka, lalu mengetikan kalimat-kalimat dengan sendrinya..???
Nah,
Trik berikut ini akan membuat notepad mengetikan kalimatnya
sendiri…hhhiiiiii sereeeem……korban anda akan mengira kalo komputernya
sedang kesurupan…..
Oke langsung saja ketikan script berikut ini pada selembar notepad :
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 "HANTU CAKEP"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "MINTA "
WScript.Sleep 100
WshShell.SendKeys "NO "
WScript.Sleep 100
WshShell.SendKeys "HP "
WScript.Sleep 100
WshShell.SendKeys "DONG"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
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 "HANTU CAKEP"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "MINTA "
WScript.Sleep 100
WshShell.SendKeys "NO "
WScript.Sleep 100
WshShell.SendKeys "HP "
WScript.Sleep 100
WshShell.SendKeys "DONG"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "."
WshShell.SendKeys "{ENTER}"
Simpan script diatas dalam format .vbs, lalu aktifkan dengan mendouble
klik, atau masukkan kedalam folder startup korban anda, dan lihat apa
yang terjadi…
Menambah keganasan hantu
Script
“hantu” diatas belum begitu ganas dan menakutkan, untuk menambah
keganasannya, bagaimana jika kita buat teks-teks tersebut muncul secara
berulang-ulang, meskipun korban anda menutup jendela notepadnya…
Menarik bukan…??? lalu bagaimana caranya..?? ikuti langkah berikut ini….
- Pada bagian awal script tambahkan command “do” (tanpa tanda petik)
- Pada akhir script tambahkan command “loop” tanpa tanda petik
- Simpan file dengan format .vbs, udah selesai…??? yupp….!! susah banget kan….???
Yah kalau begitu doang sih, dimana ngefeknya…..eiitssss…..jangan meremehkan tambahan script yang simpel tersebut, coba dulu double klik file .vbs anda, dan lihat efeknya…..:D ,
Cara
nyembuhinnya..?? anda tinggal meng-“end process” entry wscript.exe pada
taskmanager, tapi anda harus cepat ya, kalo nggak bakal kalah sama
“virus hantu” nya …
Komentar
parah