Trik ini hanya untuk sekedar iseng saja, jangan dipakai
keseringan nanti teman kita bisa marah. Modalnya cuma
dengan Notepad atau Text Document. Caranya cukup
mudah, anda tulis saja kode-kode berikut pada Notepad
atau Text Document, terus save as pakai ektensi seperti
yang akan dijelaskan di bawah ini.
1. Pesan Restart :
@ECHO off
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN
( save dalam ektensi .BAT )
2. Pesan Shutdown :
Quote:
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )
3. Tombol Caps Lock hidup terus :
Quote:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
( save dalam ektensi .VBS )
4. Terkena Virus :
<span><</span><span>html</span><span>></span>
<span><</span><span>head</span><span>></span>
<span><</span><span>script</span> <span>type</span>
<span>="text/javascript"</span><span>></span>
<span>function</span> display_alert()
{
alert(<span>"Komputer dalam ranjau virus !!"</span>)
<span>var</span> b = <span>true</span>
<span>while</span> (b == <span>true</span>){
alert(<span>"Virus Trojan 5 !!"</span>)
}}
<span></</span><span>script</span><span>></span>
<span></</span><span>head</span><span>></span>
<span><</span><span>body</span><span>><</span><span>input</span> <span>type</span><span>="button"</span> <span>onclick</span><span>="display_alert()"</span>
<span>value</span><span>="Submit"</span> <span>/></</span><span>body</span><span>></span>
<span></</span><span>html</span><span>></</span><span>center</span><span>></span>
( save dalam ektensi .HTML )
5. Menekan Enter Terus Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
( save dalam ektensi .VBS )
6. Muncul Pesan Secara otomatis :
Quote:
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 "Hello"
WScript.Sleep 500
WshShell.SendKeys "how"
WScript.Sleep 500
WshShell.SendKeys "are"
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys " ? "
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys "gho"
WScript.Sleep 500
WshShell.SendKeys " st"
( save dalam ektensi .VBS )
7. Backspace Jalan Terus-Menerus :
Quote:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
( save dalam ektensi .VBS )
8. Korban Harus Mengetik "You are crazy"
Secara Terus-Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop
( save dalam ektensi .VBS )
9. Buka Notepad Terus-Menerus :
Quote:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
( save dalam ektensi .BAT )
10. 5 (lima) Pesan Buat Korban :
Quote:
@echo off
title The end of the world
cd C:\
:menu
cls
echo Oops Tanggung Jawab Yah...
pause
echo Semua Ini Salahmu =P :
echo 1. Semua Data Akan Hilang
echo 2. Komputer Error
echo 3. Komputer Kena Virus H1N5
echo 4. Segera Matikan Komputernya
echo 5. Good bye.....
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
( save dalam ektensi .BAT )
WARNING:
buat temen temen ku sendiri apa lagi temen maen tiap hari
jangan lakukan ini pada laptop saya yaaa....
keseringan nanti teman kita bisa marah. Modalnya cuma
dengan Notepad atau Text Document. Caranya cukup
mudah, anda tulis saja kode-kode berikut pada Notepad
atau Text Document, terus save as pakai ektensi seperti
yang akan dijelaskan di bawah ini.
1. Pesan Restart :
@ECHO off
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN
( save dalam ektensi .BAT )
2. Pesan Shutdown :
Quote:
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown
( save dalam ektensi .BAT )
3. Tombol Caps Lock hidup terus :
Quote:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop
( save dalam ektensi .VBS )
4. Terkena Virus :
<span><</span><span>html</span><span>></span>
<span><</span><span>head</span><span>></span>
<span><</span><span>script</span> <span>type</span>
<span>="text/javascript"</span><span>></span>
<span>function</span> display_alert()
{
alert(<span>"Komputer dalam ranjau virus !!"</span>)
<span>var</span> b = <span>true</span>
<span>while</span> (b == <span>true</span>){
alert(<span>"Virus Trojan 5 !!"</span>)
}}
<span></</span><span>script</span><span>></span>
<span></</span><span>head</span><span>></span>
<span><</span><span>body</span><span>><</span><span>input</span> <span>type</span><span>="button"</span> <span>onclick</span><span>="display_alert()"</span>
<span>value</span><span>="Submit"</span> <span>/></</span><span>body</span><span>></span>
<span></</span><span>html</span><span>></</span><span>center</span><span>></span>
( save dalam ektensi .HTML )
5. Menekan Enter Terus Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
( save dalam ektensi .VBS )
6. Muncul Pesan Secara otomatis :
Quote:
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 "Hello"
WScript.Sleep 500
WshShell.SendKeys "how"
WScript.Sleep 500
WshShell.SendKeys "are"
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys " ? "
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys "gho"
WScript.Sleep 500
WshShell.SendKeys " st"
( save dalam ektensi .VBS )
7. Backspace Jalan Terus-Menerus :
Quote:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
( save dalam ektensi .VBS )
8. Korban Harus Mengetik "You are crazy"
Secara Terus-Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop
( save dalam ektensi .VBS )
9. Buka Notepad Terus-Menerus :
Quote:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
( save dalam ektensi .BAT )
10. 5 (lima) Pesan Buat Korban :
Quote:
@echo off
title The end of the world
cd C:\
:menu
cls
echo Oops Tanggung Jawab Yah...
pause
echo Semua Ini Salahmu =P :
echo 1. Semua Data Akan Hilang
echo 2. Komputer Error
echo 3. Komputer Kena Virus H1N5
echo 4. Segera Matikan Komputernya
echo 5. Good bye.....
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
( save dalam ektensi .BAT )
WARNING:
buat temen temen ku sendiri apa lagi temen maen tiap hari
jangan lakukan ini pada laptop saya yaaa....
Tidak ada komentar:
Posting Komentar