সিডি/ডিভিডি/কম্বো ড্রাইভ খুলতে সমস্যা করে? টিপটিপ কইরা হলুদাভ সবুজ বাতি জ্বলে? তবুও খোলে না? এইবার দেখেন তেলেসমাতি, না খুইল্ল্যা যাইব কই।

১৪ ই এপ্রিল, ২০১৩ দুপুর ১:৩০

আপনার ডেস্কটপের সিডি/ডিভিডি/কম্বো ড্রাইভ কি বুইড়া হইয়া গেছে? বাটন প্রেস করলে টিপটিপ কইরা হলুদাভ সবুজ লিড জ্বলতে থাকে। কিন্তু ড্রাইভ আর খোলে না। অথবা এমনও হতে পারে আপনার সিপিউ রেখেছেন আপনার হাতের নাগালের একটু দুরে। উপুড় হয়ে একবার বাটন প্রেস করে তাপর আবার ডিভিডি নিয়ে জায়গামতো রেখে আবার বাটন প্রেস করতে হয়, খুবই ঝামেলা মনে হয় আপনার কাছে? আপনার ল্যাপিতে ডান সাইডে বা বাম সাইডে ডিভিডি প্লেয়ার লাগানো আছে। টিপতে গিয়ে বাটন খুজতে হয়----সমস্যা।।।।



আপনাদের জন্য দাওয়াই নিয়ে এসেছি। শুধুমাত্র ক্লিক/কিলিক (যে যেমনে পড়েন) তারপরউ দড়াম কইরা আপনার খুইল্ল্যা যাইব; না ভাই গার্লফ্রেন্ডের কিছু খুলব না; সিডি/ডিভিডি/ব্লুরে ডিস্ক ড্রাইভ খুলব। আর একটা ক্লিক করতেই আবার লাইগ্যা যাইব। দেখেন নিচের নোটপ্যাড কোড দুটো। আপনাদের কোন কষ্ট করার দরকার নাই। সব আমি কইরা রাখছি। খালি গিলবেন।

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set Mymensingh = oWMP.cdromCollection

'Ahsan/Habib=programmer



if Mymensingh.Count >= 1 then

For i = 0 to Mymensingh.Count - 1

Mymensingh.Item(i).Eject

Next' Khaitta Kha



End If

এই কোডটুকু কপি করে open.vbs নামে সেভ করে। তারপর

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set Mymensingh = oWMP.cdromCollection

'Ahsan/Habib=programmer



if Mymensingh.Count >= 1 then

For i = 0 to Mymensingh.Count - 1

Mymensingh.Item(i).Eject

Next ' Valuka

For i = 0 to Mymensingh.Count - 1

Mymensingh.Item(i).Eject

Next ' Valuka



End If

এবার এই কোডটুকু close.vbs নামে সেভ করেন। প্রথমটা কাজ করবে আপনার ড্রাইভ খোলার জন্য। আর ২য় টা বন্ধ করার জন্য। কোন প্রকার উইন্ডোজ ফুইন্ডোজ ৩২/৬৪ বিটের ঝামেলা নাই। কি মজা না??



একটা ছবি দেখবেন? দাড়ান দেখাচ্ছি।

১৬ টি +১/-০