Sang Newbie ingin berbagi....
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 diri 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
By : Rei Gamerz
+ Comment + 2 Comment
yg no 2 itu disimpan dimana
sama bro...di copas ke notepad trus di save dengan ekstensi pada msing2 nomor