Trik Iseng Dengan Notepad

Sorry, bagi yang udah tau dont comment___

Trik ini berguna untuk membuat temen lo kaget___ ( yang belom tau tentunya )
Caranya :
1. Buka Notepad kemudian ketik / copas kode-kode yang ada di dalam setiap judul.
2. Save file ini dalam format .VBS dan agar menarik perhatian save dgn nama_nama yg lucu dan menarik, misal : miyabi.vbs. Hehehe____
3. Coba buka File tersebut, tunggu sebentar, dan perhatikan apa yang terjadi___
4. Simpan file ini di folder yang mudah dilihat, atau folder yang sering dibuka temen lo itu___

NB :
"File ini bukan berupa Virus dan tidak ada pengaruh sama sekali di Komputer lo"


1. Bikin Warning Virus

lol=msgbox ("Warning a virus has been detected on your PC. Press YES to format your hard disk now or press NO to format your hard disk after system reboot",20,"Warning")

2. 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

3. Iseng Dengan Tombol Enter Terus Menerus

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

4. Iseng Dengan Backspace

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

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

6. Iseng Dengan Shutdown Computer

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

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

Itulah sedikit pemberitahuan dari gue___
Gue hanya memperluas trik iseng ini. Hehehehe____

Please try at home_____