VBCoding Библиотека кодов Visual Basic 6 Другое Примеры работы с BIOS

Visual Basic 6
Примеры работы с BIOS

Данный пример покажет дату Bios'а

 


ВАРИАНТ 1

'ВАЖНОЕ ПРИМЕЧАНИЕ: Используйте данный код только в Windows 95/98
'Использование кода в Windows 2000/NT приводит к краху приложения

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 Command1_Click()
MsgBox "Дата Bios'а: " & GetBIOSDate
End Sub

ВАРИАНТ 2

Private Type BIOS_DATE
s As String * 8
End Type
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Function BIOS() As String
Dim sDB As BIOS_DATE
CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = sDB.s
End Function
Private Sub Command1_Click()
MsgBox BIOS
End Sub

 

Источник: http://www.vbnet.ru/ 

 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Другое Примеры работы с BIOS  
Powered by Exponenta -