Duh dah lama banget nggak posting blog, maklum mang dasar akunya yang pemalas..ho..ho.. buka-buka isi HD eh nemu tulisan lama yang belum sempat posting, yach buat refresh aja kok mainan notepad bikin script iseng-iseng.
INGGAT kata bapak Te Be : jangan coba-coba ini di komputer komputer sendiri, kalau dicoba berarti kamu iseng sama diri kamu sendiri dan dapat dibilang kamu melakukan tindakan yang aneh.. (udah tahu script iseng masih di coba-coba..ha..ha..senjata makan tuan kalee).
Lets begin! Pastikan kamu ngetik dengan benar Script berikut ini. Copas 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 “Iseng-Iseng.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 “Iseng-Iseng.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 “Iseng-Iseng.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 “Iseng-Iseng.vbs”)
5. Iseng Dengan Membuka Calculator Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
(Kemudian save dengan “Iseng-Iseng.bat”)
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 “Iseng-Iseng.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 “Iseng-Iseng.bat”)
Oke dech... itu dulu yach... kapan-kapan sambung lagi. Aku tidak bertanggung jawab atas tindakan yang kamu lakukan. ^_^
Judul :
Iseng Modal Notepad : Support XP
Deskripsi : Duh dah lama banget nggak posting blog, maklum mang dasar akunya yang pemalas..ho..ho.. buka-buka isi HD eh nemu tulisan lama yang belum sem...
Ditulis oleh :
Ahma Indraki,
Saturday 18 December 2010 - Rating:
4.5
Artikel Terkait Iseng Modal Notepad : Support XP: