procedure TForm1.Button1Click(Sender: TObject); var Form1: TForm1; handle:HWND; pid:dword; OpenHandle:THandle; lpNumberOfBytes:dword; begin handle := FindWindow('qtClass', 'Qt'); if handle= 0 then messagebox(handle,'請先打開QT','error',mb_ok); GetWindowThreadProcessId (handle, @pid); OpenHandle:=OpenProcess(PROCESS_ALL_ACCESS, false, pid); WriteProcessMemory (OpenHandle, Ptr($004BA111), PChar(Chr(235)) ,1, lpNumberOfBytes) ; CloseHandle (OpenHandle); end; 這段代碼哪里有錯誤啊？ 我想將程序內存地址004BA111值改為235 另外，為什么handle:HWND必須在過程中聲明，設成全局變量會提示找不到 請給出WriteProcessMemory的具體使用，這個lpNumberOfBytes不聲明dword變量，直接寫成0怎么不行？ 代碼調試時，的確修改了程序內存（HIPS軟件提示access memory），可是實際在程序中并沒有體現出來 請諸位幫忙
1 回答
12345678_0001
TA貢獻1802條經驗 獲得超5個贊
測試了下這個代碼``發現不能成功寫入內存 WriteProcessMemory (OpenHandle, Ptr($004BA111), PChar(Chr(235)) ,1, lpNumberOfBytes) ; 的第三個參數應該是指針吧``改為 a:=chr(235); WriteProcessMemory (OpenHandle, Ptr($004BA111), @a ,1, lpNumberOfBytes) ; 好像就可以了 看下是不是這個問題吧 lpNumberOfBytes在這里是傳地址``需要變量,用于返回成功寫入了幾個字節
- 1 回答
- 0 關注
- 591 瀏覽
添加回答
舉報
0/150
提交
取消