vb用copymemory 读取内存数据问题

[feiye333]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As Variant '用于读出的结果存放变量
CopyMemory x, ByVal Int(&H14B234), 4
MsgBox x
End Sub


内存中数据已经用CheatEngine知道地址，为什么老是提示类型不匹配，如果把x设置成long型，直接vb出错退出，求指导

[贝隆]

使用CopyMemory读取内存地址

[Lactoferrin]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As long
CopyMemory x, ByVal &H14B234, 4
MsgBox x
End Sub

[feiye333]

谢谢 Lactoferrin
生成exe文件可以运行，但是和ce查出来的值不一样。ce 查出来的是对的，还有一个问题就是取出来的值一直是一个数。而ce 是根据程序的数字变化而变化的。

[嗷嗷叫的老马]

[Quote=引用 2 楼 lactoferrin 的回复:]
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As long
CopyMemory x, By……
[/Quote]+1

[Lactoferrin]

RtlMoveMemory只针对当前进程

[feiye333]

Lactoferrin vb还是出现出错信息，然后vb就关了

[Lactoferrin]

你得确认&H14B234是个有效的地址，然后不要直接在vb6里面运行，用到api的最好都生成exe来运行

[feiye333]

谢谢worldy 结果和Lactoferrin的一样，显示不了正确的值，老马你的程序下了，运行也是找不到正确的值。我通过获得ce的列表框内容实现算了。谢谢大家

[嗷嗷叫的老马]

[分享]网上流传的一个游戏修改器(VB6代码)
http://www.m5home.com/bbs/thread-1344-1-1.html

其它进程,参考这个吧.

[worldy]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As long, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As Long '用于读出的结果存放变量
CopyMemory varptr(x), Int(&H14B234), 4
MsgBox x
End Sub