[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , جربت المثال على وندوز 64 بت ولم يعمل المثال وجربته على وندوز 8 32 بت وعمل المثال بشكل طبيعي , لذلك أعتقد أن المشكلة مع أنظمة وندوز 64 بت لايعمل فيها المثال .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الغالي و أستاذي الفاضل " أحمد منصور " على حسن المتابعة
أخي الحبيب .. للتنبيه أنا أعمل على وينداوز 8 .. 32 بايت
لست أدري .. جرّبت و جرّبت لكن دون فائدة ..
فائق إحتراماتي لشخصك الكريم
لست أدري من الأحسن لو سمحت ترى الصورة بنفسك

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , الصورة التي أرفقتها توضح أن نسخة الوندوز المثبته على جهاز هي نسخة وندوز 32 بت لكن المعالج نوعه 64 بت وهذا سبب المشكله , حيث أن بعض المعالجات تقبل أنظمة التشغيل ذات النوع 32 بت و64 بت معاً وبعض المعالجات لاتقبل إلا نسخة الوندوز التي تطابق رقم البت الخاص بها , لذلك جهازك هو 64 بت وأنت قمت بتثبيت نسخة وندوز 32 بت عليه .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
ألف شكر أخي الفاضل " أحمد منصور " على الشّرح و التّوضيح
جزاك الله خير الجزاء و زادك من علمه و فضله
لاحظ لو سمحت فضلاً لا أمرًا  أستاذي الحبيب هذا الملف المرفق ..
هل هذا هو رقم الهارد ديسك الذي سوف يظهر لديك ؟؟
لأنّي أنا لا يمكنني التمييز هل هذا هو فعلاً أم هذا سيريال لقطعة أخرى من الجهاز
خالص تحيّاتي

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , الملف الذي أرفقته يجلب رقم السيريال لقرص الـ C فقط وليس لقطعة الهارد دسك للجهاز , وأعتذر منك لم أجد طريقة لجلب رقم الهارد دسك للأنظمة 64 بت .

[عبد العزيز البسكري]

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , مرفق ثلاث طرق أخرى لجلب رقم قطعة الهارد دسك الحقيقي , بالنسبة للطريقة الأولى فأعتقد أنه نفس الكود المستعمل في ملف الـ dll الذي وضعته أنا في هذا الموضوع لكن جرب , بالنسبة للطريقة الثانية وهي بإستخدام خدمة الـ wmi التابعة للوندوز هي تعمل على 32 بت ولكن لايوجد لدي جهاز 64 بت لأجرب عليه جرب في جهازك , بالنسبة للطريقة الثالثة هي بإستخدام ملف dll وهو عبارة عن أداة تضيفها في مشروعك وهو يعمل على 32 بت و 64 بت على حسب كلام موقعه الرسمي وهذه الأداة غير مجانية , بالتوفيق .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و لك أخي الغالي و أستاذي الفاضل " أحمد منصور " على حسن المتابعة لشتّى المواضيع

كرَمك اللامنتهي لا يمكن لنا إحصاؤه .. جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين

دمتَ ذخرًا لنا و لمنتدانا الحبيب .. و أمدّك الله بالصحّة و العافية و رزقك من حيث لا تحتسب

بالنسبة للطريقة الأولى لم يظهر لي شيئا في التاكسات بوكس الثلاث مثلما توضّحة الصورة :

الطريقة الثانية و هي التي اشتغلت معي لكن ظهر رقمان .. أيّهما لو تكرّمت أخي العزيز هو المقصود ..المشار إليه بالأحمر أم بالأخضر ..

الطريقة الثالثة .. طبعًا مثلما أشرت غير مجانية رغم إشتغالها كذلك ..
بارك الله فيك دنيا و آخرة
فائق إحتراماتي لشخصك الكريم

[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته

أهلا بك أخي عبدالعزيز , ألف شكراً جزيلاً لك على كلامك الطيب رزقك الله بمثل مادعوت وأكثر بكثير , جزاك الله كل خير , الحمدلله بما أن الطريقة الثانية عملت عندك فقمت بتعديل المثال قليلاً ليظهر لك فقط رقم الهارد دسك , قم بتجربة المثال بعد التعديل .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

الحمد لله .. تمام التّمام

بارك الله فيك و لك أستاذي الفاضل

سؤال أخير واعذرني لكثرة تساؤلاتي .. فقط طمعًا في طلب العلم من معادنه

باسم الله ما شاء الله تبارك الله

أردت تغيير الليست بوكس بتاكست بوكس .. و قمت بتغيير بعض العبارات .. لكن تراودني شكوك حول عبارة الليست بوكس CLEAR

إليك الكود أرجو لو تكرمت فضلا لا أمرا فقط إلقاء نظرة عليه

فائق إحتراماتي

كود :

Private Sub Form_Load()

Text1.Text = ""
StrComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)
For Each objItem In colItems
If InStr(1, LCase$(objItem.Tag), "physicaldrive0") <> 0 Then
Text1.Text = " " & objItem.SerialNumber
End If
Next

End Sub