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. heheheh cuba dan beramalkan
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 saya di email.
2 comments:
sensei cm mana nak stop ni..kena kill the proses ker???
yup must kill the process heheh
Post a Comment