Notepad Trick

Notepad adalah salah satu item yang membolehkan kita untuk membuat pengaturcaraan yang mudah. Hari ini saya ingin mengajar anda bagaimana untuk membuat satu trick yang mudah serta boleh di buat dalam masa yang singkat. Trick ini akan membolehkan CD-ROM anda terbuka dan tertutup sendiri. Jom cuba main-main di pc orang lain.....

Langkah-langkahnya :-

Buka Notepad anda dan taip pengaturcaraan di bawah:-

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

Save sebagai “cdtray.VBS” dan double klik untuk melihat kesannyer..hehehe

p/s : jika tidak berjaya cuba type sendiri ayat pengaturcaraan pada baris pertama tersebut set owmp = createobject("wmplayer.ocx.7") dengan mengunakan keyboard, jika tidak boleh juga hubungi blogger di bawah...


sumber : http://www.myictrooms.co.cc