আমাদের কথা খুঁজে নিন

   

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

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

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

আর একটা ক্লিক করতেই আবার লাইগ্যা যাইব। দেখেন নিচের নোটপ্যাড কোড দুটো। আপনাদের কোন কষ্ট করার দরকার নাই। সব আমি কইরা রাখছি। খালি গিলবেন।

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 নামে সেভ করেন। প্রথমটা কাজ করবে আপনার ড্রাইভ খোলার জন্য। আর ২য় টা বন্ধ করার জন্য। কোন প্রকার উইন্ডোজ ফুইন্ডোজ ৩২/৬৪ বিটের ঝামেলা নাই।

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

সোর্স: http://www.somewhereinblog.net     দেখা হয়েছে ৪০ বার

অনলাইনে ছড়িয়ে ছিটিয়ে থাকা কথা গুলোকেই সহজে জানবার সুবিধার জন্য একত্রিত করে আমাদের কথা । এখানে সংগৃহিত কথা গুলোর সত্ব (copyright) সম্পূর্ণভাবে সোর্স সাইটের লেখকের এবং আমাদের কথাতে প্রতিটা কথাতেই সোর্স সাইটের রেফারেন্স লিংক উধৃত আছে ।