[gharib]

(05-03-16, 02:11 AM)Omar 6.0 كتب : كود للحصول على الرقم التسلسلي للوحة الأم 
حيث يمكن الاستفادة منه بالحماية أيضاً

كود :

Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)
Private Function GetBIOSDate() As String
    Dim p As Byte, MemAddr As Long, sBios As String
    Dim i As Integer
    MemAddr = &HFEC71
    For i = 0 To 25
        Call GetMem1(MemAddr + i, p)
        sBios = sBios & Chr$(p)
    Next i
    GetBIOSDate = sBios
End Function

و يمكن الاستفادة من تاريخ البيوس

كود :

Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)

Private Function GetBIOSDate() As String
  Dim p As Byte, MemAddr As Long, sBios As String
  Dim i As Integer
  
  MemAddr = &HFFFF5
  For i = 0 To 7
      Call GetMem1(MemAddr + i, p)
      sBios = sBios & Chr$(p)
  Next i
  GetBIOSDate = sBios
End Function

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