Monday, 25 April 2011

BERGURAU SENDA

Hai kawan-kawan yg super awesome.( pnah dngaq x ayat nie? )..haha~
Trimas kerana sudi jadi folower saya walaupun hanya 3 orang.Hebat lar tu..

Pada episod kali ini.saya akan mengajar anda-anda sekalian nak bergurau bersama laptop mahupun desktop kekawan korang.Try lar.Tobat best!!Saya akan mengajar anda bermain dgn cd/dvd-rom anda ataupun kekawan anda.Camna nak buat?
Haa.Ce tengok ce tengok..

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



Haa..Yg di atas ni lah nama dia coding.Salin coding nie.( copy lar tu  ).Pastu paste dalan notepad.Suma org ada notepad kn?Lepas paste tu.Ce try save as.Buboh lar nama pa pn tp blkang dia mesti ada .vbs ..Contoh dia mcm ni lar. (alilubang.vbs ) ..Paham kn kwn2?Yang penting .vbs tuu..Pastu double-click lar kat notepad tadi tu. Taraaa!Tgok lar hasilnya..


Kalau dah bosan tgok.Delete lar notepad yg kita wat tadi.Dan jgan lupa untuk shutdown / restart laptop anda tu.Baru lar ada hasilnya. Acu sharelah kalau berkenan di hati..


Selamat mencuba ya =)

0 comments:

:a: :b: :c: :d: :e: :f: :g: :h: :i: :j: :k: :l: :m: :n:

Post a Comment