 |
| ekstensi bat |
Membuat Pesan iseng di Komputer .
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
