• 0
bakkar2000

كود لمعرفة رقم الهارد الحقيقى فى ويندوز 7 ؟

سؤال

بسم الله الرحمن الرحيم

أخوانى سلام الله عليكم ورحمتة وبركاتة

لدى كود لمعرفة الرقم التسلسلى للهارد دسك و هو يعمل بكفاءة عالية ولكن ..

عندما تم تغيير الويندوز XP إلى ويندوز Windows 7 أعطا خانة ظهور الرقم التسلسلى فارغة .

هذا هو الكود .


Dim drvNumber As Long

di = GetDriveInfo(drvNumber)
With di
Select Case .bDriveType

Case 0
Me.text05.Value = "[Not present]"
Case 1
'Me.text05.Value = Trim$(.SerialNumber)
Dim rep, irep As Integer
Dim asp, ass, dg, df As String
dg = 0
For irep = 1 To Len(Trim$(.SerialNumber))
asp = Mid((Trim$(.SerialNumber)), irep, 1)
If IsNumeric(asp) = True Then
ass = dg & asp
dg = ass
End If
Next irep
'''''''''''''''''''
df = ""
For irep = 1 To Len(Trim$(.SerialNumber))
asp = Mid((Trim$(.SerialNumber)), irep, 1)
If IsNumeric(asp) = False Then
ass = df & asp
df = ass
End If
Next irep
Me.text05 = Asc(df) & dg
'''''''''''''''

Case 2
text05.Value = "[ATAPI drive - info not available]"
Case Else
text05.Value = "[drive type not known]"
End Select
End With
Dim di As DRIVE_INFO

* أرجوا تصحيح هذا الكود ليعمل مع Windows 7

* أرجوا إعطاء مثال للكود .

* إذا كان هناك طريق أخرى أو صفة يمكن تغييرها فى Windows 7 أرجوا ذكرها .

طبعأ أنا جربت أكثر من كود لكشف رقم الهارد على Windows 7 و كلها لا تعمل إلا على الـ XP فأرفقت لكم الكود الرئيسى .

لكم منى جزيل الشكر .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

السلام عليكم

أنا أستخدم الطريقة الموضحة في المرفقة وماشيه معي تمام على وندوز 7

هذه الطريقه سبق طرحها في المنتدى سابقاً لا أذكر من طرحها .

أتمنى أن تفيد معك

Database1.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

شكراً أخى الكريم

جارى تنزيل المرفق .. و الرد بعد التجربة

أرجوا المتابعة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

أخى الكريم أبو عمر

تم تجربت الكود الخاص بك لكن للأسف لا يعمل على ويندوز 7

لكنة يعمل على ويندوز XP و يخرج رقم الهارد بالهكسادسميل

لى رجاء أرجوا تجربت الكود فى المشاركة الأولى لى على ويندوز 7 لديك و موافاتى بالنتيجة

لك منى خالص الشكر

أرجوا المتابعة...............

-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

أخوانى أعتقد أن هذه المشكلة صادفت آى أحد منكم ..!!!!

رجاء من لدية الحل لا يبخل بة .

لكم كل الشكر .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

أخوانى أرجوكم البرنامج لا يعمل على ويندوز 7

أرجوكم .. كود معرفة رقم الهارد الحقيقى فى ويندوز 7 و ليس كود بارتشن كما تفضل الأخ أبوعمر الجنوبي

لدى الكود لكنة لا يعمل على و يندوز7

تحياتى للجميع

تم تعديل بواسطه bakkar2000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

لا إله إلا الله محمد رسول الله

UP

Thankssssssssssssssssssssss

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لدي ملف يستخرج رقم الهاردسك الحقيقي ولكنه يعمل على XP فقط

جربته على ويندز 7 وفيستا فلم يعمل

هل تريده للتجربة أو للتعديل عليه ؟؟

أنا فعلا بحاجة مـــــــــــــاسة إلى أن يعمل على ويندوز 7

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .