1) memberi pesan dan shutdown komputer.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT
@echo off
msg * Apakah Dona Ganteng
shutdown -c "Error! Dona Memang Ganteng" -s
2) Menyalakan tombol Caps lock secara simultan.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
3) Buka/tutup CD drive secara terus menerus.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
4) Tekan Enter secara simultan.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
5) Mengetik pesan kita secara otomatis di notepad.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "eitss"
WScript.Sleep 500
WshShell.SendKeys "hatad "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "we"
WScript.Sleep 500
WshShell.SendKeys "> "
WScript.Sleep 500
WshShell.SendKeys "o w"
WScript.Sleep 500
WshShell.SendKeys "k tr"
WScript.Sleep 500
WshShell.SendKeys "oon"
WScript.Sleep 500
WshShell.SendKeys " gak negrtoss"
WScript.Sleep 500
WshShell.SendKeys "kakak"
WScript.Sleep 500
WshShell.SendKeys "hihihi! "
6) Menjalankan BACKSPACE secara simultan.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
7) Hack keyboard sehingga korban dipaksa mengetik "You are a gay" secara simultan.
Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a gay"
loop
8) Buka Notepad secara terus menerus.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
9) Munculin 5 pilihan yang harus korban pilih.
Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT
@echo off
title The end of the world
cd C:\
:menu
cls
echo wew ngapain kamu??aku tidak tanggung jawab.....apa yg barusan kamu lakuin saungguh fatal
pause
echo masukkan permintaan terakhir kamu :
echo 1. Buang Komputer..??
echo 2. Format Komputer..??
echo 3. Hapus Partisi..??
echo 4. mau mati pake jalan ini?
echo 5. bye bye...
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
untuk nge save nya,jangan lupa pada bagian save as type.
pilih all files.dan untuk menjalankan program nya
klik 2 kali pada program dan lihat apa yang terjadi.
Selamat Mencoba
