Direct Memory Access in VB - sample code
Code:
Option Explicit
' this code works under VB 6, will work under VB 5 with mods
' the GetMem functions work under NT 4 & Windows 2000, but you cannot access BIOS
' memory on NT 4 or NT 5 machines. So don't try....
' requires a textbox named Text1 on your form.
Private Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Byte)
' GetMem2, GetMem4 and GetMem8 functions read 2, 4, & 8 bytes of memory
' GetMem2 & GetMem4 are usable by VB
Private Declare Sub GetMem2 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Integer)
Private Declare Sub GetMem4 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Long)
' NOTE:
' For VB 5.0 change the "msvbvm60.dll" to msvbvm50.dll
' I'm not using these api's; they write memory and are included for completeness.
' Two words: WATCH OUT
' if you elect to use these, you are on your own...
Private Declare Sub PutMem1 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Byte)
Private Declare Sub PutMem2 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Integer)
Private Declare Sub PutMem4 Lib "msvbvm60.dll" (ByVal lAddress As Long, var As Long)
Private Sub Form_Load()
Text1.Text = BIOSDateString
End Sub
Private Function BIOSDateString() As String
Dim b As Byte
Dim AddrMem As Long
Dim strTmp As String
Dim i As Integer
AddrMem = &HFFFF5
strTmp = ""
For i = 0 To 7
Call GetMem1(AddrMem + i, b)
strTmp = strTmp & Chr$(b)
Next
BIOSDateString = strTmp
End Function
Have fun.
:D
