Kumpulan Script Notepad..Buat Iseng Dan Jail

Sunday 6 March 2011

Posted by Ndra Warsteiner

Nah....

Karena ada temen gw yang request...

Jadi kali ini gw share berbagai script buat ngejailin temen..
Tapi gw harap ini dijadikan pengetahuan aja yach...
kwkwkwkwkwkwkwkw........

Ingat gan :

Semua script yang ada disini, silahkan copas di notepad komputer korban dengan extension .vbs

1. CD - Drive keluar masuk secara terus menerus.

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 nama yang kamu inginkan.. misal : Ndra.vbs

2. Menekan tombol enter otomatis secara terus menerus.

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

Kemudian save dengan nama yang kamu inginkan.. misal : Ndra.vbs

3. Notepad menulis otomatis kata "Hello, how are you? I am good thanks!".

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 nama yang kamu inginkan.. misal : Ndra.vbs

4. Iseng dengan Backspace

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

Kemudian save dengan nama yang kamu inginkan.. misal : Ndra.vbs

5. Membuka calculator secara terus menerus.

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

Kemudian save dengan nama yang kamu inginkan.. misal : Ndra.vbs

6. Membuat keyboard tidak berfungsi.

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

Kemudian save dengan nama yang kamu inginkan.. misal : Ndra.vbs

7. Komputer akan mati secara otomatis.

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

Kemudian save dengan nama yang kamu inginkan.. misal : Ndra.vbs

Nah...
Jika notepad tersebut di buka..maka script yang telah kamu buat akan berfungsi atau berjalan gan...
untuk menghentikan fungsi script tersebut..caranya gampang..kamu tinggal buka task manager aja kemudian pilih nama yang telah kamu buat terus klik End Process...taaaaarrraaaaaaa....kwkwkwkwkwwkwk
gunakan sebijak mungkin gan...

Sekian dulu dari Ndra Warsteiner
Semoga bermanfaat gan...^_^

Tips dan Trik |

Warsteiner