
Untuk membuat trick sebegini hanya menggunakan notepad saja. Banyak juga benda yang boleh buat ngan notepad nie kan? ok, aku teruskan. caranya adalah seperti berikut.
1st:-
copy skrip 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
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
then save as sebagai klik.vbs.
siap! senang je kan? apa lagi hantar ke pc kawan korang. dan klik 2 kali ada akan tahu apa yang terjadi. Kalau tak jadi korang boleh komen, aku akan ajar sampai boleh.
Senang je...
Note :
cara nak cancel balik senang juga, tapi kena bagi boleh yang ini dulu la. Jangan lupa promote la blog aku nie kat orang lain sama.. he he he...














