আমাদের কথা খুঁজে নিন
নোটপ্যাড ট্রিকস [পর্ব-০৪] :: আপনার বন্ধুর মনে ভয় ধরিয়ে দিন বার বার তার সিডি/ডিভিডি ড্রাইভ Eject করে !!
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
এবার বলি যেভাবে আবার পুনরায় আগের অবস্থায় ফিরে আসবেনঃ
আমার সামাজিক প্রোফাইলঃ
ফেসবুক ~ টুইটার ~ গুগল প্লাস
সোর্স: http://www.techtunes.com.bd/
দেখা হয়েছে ১৯ বার
অনলাইনে ছড়িয়ে ছিটিয়ে থাকা কথা গুলোকেই সহজে জানবার সুবিধার জন্য একত্রিত করে আমাদের কথা । এখানে সংগৃহিত কথা গুলোর সত্ব (copyright) সম্পূর্ণভাবে সোর্স সাইটের লেখকের এবং আমাদের কথাতে প্রতিটা কথাতেই সোর্স সাইটের রেফারেন্স লিংক উধৃত আছে ।