Kumpulan Script Jahil [via notepad]

Kali ini kita buat beberapa script yang berfungsi pada OS windows, scriptnya akan berfungsi sesuai dengan fungsinya

Tidak perlu susah ? karena script hanya di muat di NOTEPAD , type save nya cukup dengan format .VBS atau .bat

Sobat Berikut Source Codenya :

@echo off

msg * Aku tidak suka kamu

shutdown -c ?Error! Kamu jelek sekali? -s

Note : save dengan ekstensi .bat

2). Menyalakan tombol Caps lock secara simultan :

Code:

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

do

wscript.sleep 100

wshshell.sendkeys ?{CAPSLOCK}?

loop

Note : save dengan ekstensi .vbs

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

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

Note : save dengan ekstensi .vbs

4). Tekan Enter secara simultan :

Code:

et wshShell = wscript.CreateObject(?WScript.Shell?)

do

wscript.sleep 100

wshshell.sendkeys ?~(enter)?

loop

Note : save dengan ekstensi.vbs

5). Mengetik pesan kita secara otomatis di notepad :

Code:

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

Note : save dengan Ex.vbs

6). Menjalankan BACKSPACE secara simultan :

Code:

MsgBox ?Let?s go back a few steps?

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

do

wscript.sleep 100

wshshell.sendkeys ?{bs}?

loop

Note : save dengan ex.vbs

7). Buka Notepad secara terus menerus :

Code:

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Note : save dengan type .bat

8). Munculin 5 pilihan yang harus korban pilih :

Code:

@echo off

title The end of the world

cd C:\<$2Fdiv>

: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

Note : save dengan ekstensi .bat

9). Hack keyboard sehingga korban dipaksa mengetik ? You are a gay? secara simultan :

Code:

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

do

wscript.sleep 100

wshshell.sendkeys ?You are a Gay?

loop

Note : save dengan ekstensi.vbs

10). Lampu keyboard kelap-kelip :
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")

 do

 wscript.sleep 100

 wshshell.sendkeys "{CAPSLOCK}"

 wshshell.sendkeys "{NUMLOCK}"

 wshshell.sendkeys "{SCROLLLOCK}"

 loop

Note : save dengan ekstensi .vbs

Catatan:
1. Utk mematikan proses script,cukup buka Task Manager dan kill proses bat atau vbs

Sumber : http://blog.cyber4rt.com/