بسم الله الرحمن الرحيم
أخوانى سلام الله عليكم ورحمتة وبركاتة
لدى كود لمعرفة الرقم التسلسلى للهارد دسك و هو يعمل بكفاءة عالية ولكن ..
عندما تم تغيير الويندوز 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 فأرفقت لكم الكود الرئيسى .
لكم منى جزيل الشكر .