Date: 6/17/2000 Versions: VB4/32 VB5 VB6 Level: Intermediate Author: The VB2TheMax Team
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
Any, source As Any, ByVal bytes As Long)
'''' read a byte from memory
Function PeekB(ByVal address As Long) As Byte
CopyMemory PeekB, ByVal address, 1
End Function
'''' read an integer from memory
Function PeekI(ByVal address As Long) As Integer
CopyMemory PeekI, ByVal address, 2
End Function
'''' read a Long value from memory
Function PeekL(ByVal address As Long) As Long
CopyMemory PeekL, ByVal address, 4
End Function
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
