۲۷-فروردین-۱۳۸۵, ۱۲:۳۰:۳۴
سلام.من امروز به یک کدی برخوردم که برام جالب بود.میخواستم اگه دوستانی هستن اطلاعاتی در مورد کدهای مشابه و یا کدهایی که با سخت افزار در ارتباط هستند دارند و یا حتی کدهایی که اطلاعاتی رو از سخت افزار و یا نرم افزارهای دستگاه به ما میدن اگه دارن به ما هم بدين.ممنون
درضمن بايد بگم من اطلاعاتي راجب ocx ها هم ندارم ممنون ميشم اطلاعاتي هم تو اين ضمينه بديد
کد:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If