Mungkin Untuk Menjahili Teman, Atau Semacamnya. Langsung Aja ( Buat Virus Menggunakan NotePad )
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
0 komentar:
Posting Komentar