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

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

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

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

ڪوڊ:

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.
پو سيو ٿيل فائيل کي کوليندو ته پي سي جو سي ڊي روم ٻاهر نڪري ايندو.

 

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