Script Script Komputer Untuk Jahil

Cara gunainnya seperti biasa lewat Notepad, Untuk melihatnya Baca Postingan sebelumnya

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

2. Tombol Enter Terus-terusan Aktif

Code:

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

3. 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

4. Iseng Dengan Membuka Calculator Terus Menerus
Code:

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

5. Iseng Dengan Shutdown Komputer
Code:

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

 Semoga Bermanfaat buat Balas Dendam.. hehe