لمعرفة الرقمم التسلسلي للوحة الأم

[الفارس]

لمعرفة الرقمم التسلسلي للوحة الأم
اضف command boutton

 كود

Option Explicit

'نكتب في الموديول
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 Sub Command1_Click()
MsgBox GetBIOSDate
End Sub