HanDs
管理员

[Delphi文章] 外挂 



procedure TForm1.Button1Click(Sender: TObject);
var
  Eh:hwnd;
  BaseFirst,BaseSecond:THandle;
  Num:cardinal;
  FirstBase,SecondBase:pointer;
begin
  Eh:=FindWindow(nil,'窗口名称');
  GetWindowThreadProcessId(Eh,@pid);
  ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
  FirstBase:=pointer($08dda7ao);// 一级基址
  ReadProcessMemory(ProcessHandle,FirstBase,@BaseFirst,4,Num);
  SecondBase:=pointer(BaseFirst+$28);
  ReadProcessMemory(ProcessHandle,SecondBase,@BaseSecond,4,Num);[email protected][email protected]
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
外挂
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复