用WriteProcessMemory提示类型不匹配。

Question

Private Sub Command1_Click()
Dim lon As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
ReadProcessMemory hProcess, ByVal &H5BA79C, ByVal VarPtr(lon), 4, 0&
WriteProcessMemory hProcess, (lon + &H374), 150, 4, 0& '150被加亮显示
End Sub

Answer 1

与你的WriteProcessMemory声明有关，要看你第三个参数怎么声明的，我猜是Long，因为Size是4
所以，你就改为：
WriteProcessMemory hProcess, (lon + &H374), 150&, 4, 0&