Arsip untuk Oktober 20th, 2010

Iseng dengan Notepad


notapad

Assalamualaikum,, hello, bosen dengan belajar yak,, skarang waktunya notepad di pake buat ngerjain orang,, :D, tp ga harus pake notepad sih, sebenernya lebih di rekomendasikan pake textpad atau notepad++, soalnya kodingan di bawah ini tidak bisa di copy paste di notepad, karena perbedaan karakter tanda petik (” “) pada notepad. Ayoo kita Mulai …..

Simpan dengan nama iseng.vbs, dan berikan ke teman anda, 😀

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

Baca entri selengkapnya »

, ,

Tinggalkan komentar