' производитель BIOS
Private Declare Function GetCurrentProcess& Lib "kernel32" ()
Private Declare Function ReadProcessMemory& Lib "kernel32" (ByVal hProcess As Long, _
ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, _
lpNumberOfBytesWritten As Long)
' считаем производителя BIOS
Dim hInst As Long
Dim ret As Long
Dim num As Long
Dim strText As String
strText = Space(19)
hInst = GetCurrentProcess
ret = ReadProcessMemory(hInst, &HFE030, strText, 19, num)
MsgBox strText
Разделы
Производитель BIOS