发表评论(0)作者：, 平台：, 阅读：9637, 日期：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