[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