Jl. Sumur Batu Utara No. 2 Kemayoran - Jakarta Pusat . Telpon (021) 42801219 , Email : ralov13@gmail.com

Senin, 06 Mei 2013

OBAT HAVE FUN DIKALA GALAU

Oke sobat, kali ini saya ingin berbagi cara tentang 10 cara mudah membuat pesan iseng menggunakan notepad di komputer orang. Cuma buat sekedar have fun, namun tidak merusak kok ^_^ dan satu lagi, resiko ditanggung anda sendiri yaa.

CARANYA : COPYKAN KODE-KODE BERIKUT DALAM NOTEPAD LALU SIMPAN DENGAN EKSTENSI .BAT ATAU VBS (sudah dicantumkan)

Contoh >> restart.bat (bukan restart.txt)

1. Pesan Restart : ( save dalam ektensi .BAT )

@ECHO off
:Begin
msg * WARNING !
msg * Komputer anda error
msg * Tidak ada cara lain
msg * Harus diinstall ulang
GOTO BEGIN

2. Pesan Shutdown : ( save dalam ektensi .BAT )

Quote:
@echo off
msg * Komputer anda hank
msg * Tidak ada jalan lain
msg * Harus dishutdown

3. Tombol Caps Lock hidup terus : ( save dalam ektensi .VBS )

Quote:
Set wshShell =wscript.CreateObject("WScript.Shell") do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}" loop

4. Terkena Virus : ( save dalam ektensi .HTML )

<html>
<head>
<script type
="text/javascript">
function display_alert()
{
alert("Komputer dalam ranjau virus !!")
var b = true
while (b == true){
alert("Virus Trojan 5 !!")
}}
script>
head>
<body><input type="button" onclick="display_alert()"
value="Submit" />body>
html>center>

5. Menekan Enter Terus Menerus : ( save dalam ektensi .VBS )

Quote:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

6. Muncul Pesan Secara otomatis : ( save dalam ektensi .VBS )

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"

7. Backspace Jalan Terus-Menerus : ( save dalam ektensi .VBS )

Quote:

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop


8. Korban Harus Mengetik "You are crazy" Secara Terus-Menerus : ( save dalam ektensi .VBS )

Quote:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are crazy"
loop

9. Buka Notepad Terus-Menerus : ( save dalam ektensi .BAT )

Quote:

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

10. 5 (lima) Pesan Buat Korban : ( save dalam ektensi .BAT )

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 H5N1
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
Diposting oleh