نوٽ پيڊ جي هڪ ٻي ٽپ

[فاروق سومرو]

السلام عليڪم ساٿيو.اميد ته خوش هوندو.

اڳ ۾ مون پهريان نوٽ پيڊ جي ٽپ شيئر ڪئي هئي هاڻي هڪ ٻي ميجڪ ٽپ کڻي آهيو آهيان.

سڀ کان پهرين نوٽ پيڊ اوپن ڪري هي ڪوڊ ڪاپي ڪري اتي پيسٽ ڪريو.

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

هاڻي هن کي هن نالي سان سيو ڪريو CD ROM.VBS.
پو سيو ٿيل فائيل کي کوليندو ته پي سي جو سي ڊي روم ٻاهر نڪري ايندو.

 

[عبيد ٿھيم]

بهترين ٽپ. مون آزمائي آهي. مون وٽ صحيح ڪم ڪري پئي..

 

[فاروق سومرو]

سبني دوستن جي مهرباني جنهن هي پسند ڪيو