gpt4 book ai didi

Delphi ReadProcessMemory问题

转载 作者:行者123 更新时间:2023-12-01 20:26:58 24 4
gpt4 key购买 nike

它读取的前 3 个地址是正确的,最后一个是错误的...忽略垃圾代码我是菜鸟,我只是无法弄清楚为什么第四个地址无论如何,即使我使用与其中之一相同的地址其他返回错误的值...

procedure ReadFirstCard(Address: Integer);
var
Handle,i,a,b,c : Integer;
begin
GetWindowThreadProcessId(FindWindow(nil, PAnsiChar(Client)), @ProcessId);
Handle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
ReadProcessMemory(Handle, Ptr(Address), @NewValue, Data, CardRead);
CloseHandle(Handle);
end;

procedure ReadFirstCardSuit(Address2: Integer);
var
Handle,i,a,b,c : Integer;
begin
GetWindowThreadProcessId(FindWindow(nil, PAnsiChar(Client)), @ProcessId);
Handle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
ReadProcessMemory(Handle, Ptr(Address2), @NewValue2, Data2, CardRead2);
CloseHandle(Handle);
end;

procedure ReadSecondCard(Address3: Integer);
var
Handle,i,a,b,c : Integer;
begin
GetWindowThreadProcessId(FindWindow(nil, PAnsiChar(Client)), @ProcessId);
Handle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
ReadProcessMemory(Handle, Ptr(Address3), @NewValue3, Data3, CardRead3);
CloseHandle(Handle);
end;

procedure ReadSecondCardSuit(Address4: Integer);
var
Handle,i,a,b,c : Integer;
begin
GetWindowThreadProcessId(FindWindow(nil, PAnsiChar(Client)), @ProcessId);
Handle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
ReadProcessMemory(Handle, Ptr(Address4), @NewValue4, Data4, CardRead4);
CloseHandle(Handle);
end;

最佳答案

由于第四个函数的唯一不同之处在于它使用 Data4 作为大小,而不是 Data1Data3,因此似乎Data4 不得具有从目标进程复制的正确字节数值。确保 NewValue4 也足够大以接收整个结果。

您不会检查任何这些 API 函数的返回值,因此如果它们失败,您永远不会知道。确保OpenProcess返回有效句柄,并确保ReadProcessMemory返回非零值。如果没有,请调用 GetLastError 找出原因。

关于Delphi ReadProcessMemory问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4789721/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com