发表评论(0)作者:, 平台:, 阅读:9722, 日期:2000-03-12
如何在内存中的指定位置取数据?
'声明:
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
'lpt 已知的内存地址
'size 欲读取的内存大小
'注:copymemory调用的方式为过程调用,不能有返回值
'copymemory传递source本身是按地址传递,但此处要按值传递指针(欺骗vb,vb仍然认为传递的是地址)
'代码:
Function Getvalue(lpt As Long, size As Long)
Dim x '用于读出的结果存放变量
CopyMemory x, ByVal lpt, ByVal size
Getvalue = x
End Sub