معرفة تاريخ البايوس

معرفة تاريخ البايوس

(منقول)

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

Private Sub Form_Load()

MsgBox "The Bios date: " & GetBIOSDate

End Sub

مع تحياتي