Buat yang udah penasaran gimana cara buatnya, langsung aja deh!
1. Siapkan laptop/PC anda.
2. Ke kamar mandi dulu kalo kebelet pipis (eek juga gak papa).
3. Buka Notepad.
4. Copy kode berikut ini (yang warna merah).
WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop
5. Simpan dengan nama sesuka anda, pada bagian Save As Type, pilih All Files. Untuk contoh, simpan dengan nama iseng.vbs.
6. Klik 2x file tersebut, lalu secara otomatis notepad akan terbuka dan menulis kata kata gak jelas secara terus menerus.
7. Kalo udah selesai jangan lupa bekas pipisnya disiram (bekas eek juga).
6. Klik 2x file tersebut, lalu secara otomatis notepad akan terbuka dan menulis kata kata gak jelas secara terus menerus.
7. Kalo udah selesai jangan lupa bekas pipisnya disiram (bekas eek juga).