[SHARE] Kumpulan script2 notepad iseng

[JagoOnline]

Ini dia gan,, script2 iseng pake notepad,, hasil blogwalking...,, cuma dapet 7..,,

CEKIDOT===>>>




[/quote][quote]





1. Iseng Mengeject CD-Drive Terus Menerus



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 >>> croz.vbs

2. Iseng Dengan Tombol Enter Terus Menerus



Set wshShell = wscript.CreateObject(”WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop



Kemudian save dengan >>> croz.vbs



3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”



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 >>> croz.vbs

4. Iseng Dengan Backspace



MsgBox “Maaf, Anda Harus Mengulang Kembali”

Set wshShell =wscript.CreateObject(”WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{bs}”

loop



Kemudian save dengan >>> croz.vbs

5. Iseng Dengan Membuka Calculator Terus Menerus



@ECHO off

:top

START %SystemRoot%\system32\cacl.exe

GOTO top



Kemudian save dengan >>> croz.vbs

6. Iseng Dengan Keyboard



Set wshShell = wscript.CreateObject(”WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”

loop



Kemudian save dengan >>> croz.vbs

7. Iseng Dengan Shutdown Computer



@echo off

msg * Komputer Anda Terinfeksi Virus

shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0



Kemudian save dengan >>> croz.vbs

Jangan Coba-Coba di komputer Sendiri yah.....hehehhehe







</div>