سؤال: معرفة الرقم التسلسلي لل Cd

أنظري هنا :

http://www.xtremevbtalk.com/showthread.php?t=158149

تحياتي...

اخي انا لا اريد الـ volume label

اريد الرقم التسلسلي لل CD المكون من ارقام

أختي الكريمة, لو بدلتي بعض الجهد و الوقت لوجدتي على الصفحة كود مثل هذا :

		Dim fso As New Scripting.FileSystemObject()
		Dim drv As Scripting.Drive = fso.GetDrive("F:\")
		Console.WriteLine(drv.SerialNumber.ToString("X"))

يقوم بالعمل الذي تريدين.

تحياتي...

اخي الكود لا يعمل

يعطيني انه يحتاج الى مكتبة Scripting

لقد بحثت عن المكتبه بدون فائدة

Project ثم Add References

ثم اختاري تبويب Browse

ثم حددي مجلد system32

المكتبة هي scrrun.dll

وهذا مثال كامل

________________.rar

اخي شكرا على ردك هذا الكود يعمل 100% لكن هذا ليس سؤاللي

سؤاللي لا اريد الرقم التسلسلي لنفس سواقة ال CD

انا اريد الرقم التسلسلي لنفس ال CD يعني كل CD له رقم تسلسلي اريد

استخراج هذا الرقم.

الهدف من ذلك اريد استخدام هذا الرقم في برنامجي لحماية برنامجي من عملية النسخ

نعم يأتي برقم الاسطوانة وليس رقم السواقة

جربي ضعي اسطوانة مختلفة وشوفي هل الرقم واحد ولا يختلف

انا جربت اسطوانتين اعطاني ارقام مختلفة .. تحياتي