200分求助,修改内存地址的值,出现问题,请进,问题解决立即结贴,好人一生平安!

请先看我的源码↓

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls,TLHelp32;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);



  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;









implementation



{$R *.dfm}

function GetProcessID(ProcessName:string):TProcessEntry32;

var

  lppe: TProcessEntry32;

  found : boolean;

  Hand : THandle;

  P:DWORD;

  s:string;



begin

  FillChar(result,SizeOf(TProcessEntry32),0);

  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

  lppe.dwSize := Sizeof(lppe);



  while found do

  begin

    s := string(lppe.szExeFile);

    if lppe.th32ProcessID>0 then

      p := lppe.th32ProcessID

    else

      p := 0;

    if UpperCase(ExtractFileName(s))=UpperCase(ExtractFileName(ProcessName)) then

    begin

      GetProcessID:=lppe;

      break;

    end;

    found := Process32Next(Hand,lppe);

  end;

end;





procedure TForm1.Button1Click(Sender: TObject);





var



s,x:integer;

hProcess: THandle;

PID:DWORD;

vNumberOfBytesWritten: DWORD;

Retlppe:TProcessEntry32;







begin

s:=500;

Retlppe := GetProcessID('zzllk.exe');// 查找'****.exe'进程ID



PID:=Retlppe.th32ProcessID;

if PID <> 0 then

begin



hProcess := OpenProcess(PROCESS_ALL_ACCESS, False,PID); 



WriteProcessMemory(hProcess,Pointer($0012FEC0), @s,4,PID); 



end

else

begin

messagebox(0,'连连看4.1没有开启','错误',MB_OK)

end;

end;



end.

测试游戏,连连看V4.1
测试得分内存地址:0012FEC0
测试修改内存地址0012FEC0的值 WriteProcessMemory(hProcess,Pointer($0012FEC0), @s,4,PID);
S:=500;

可以修改成功..




我把同样的方法放到传奇SF里,就不行了,
传奇SF进程Game2.dat 也可以获取进程ID ,没有错误的,但就是改不了传奇SF一个HP的血量,这是为什么?
我用CE就可以改?
我查了一下午,说内存没有写入权限?需要VirtualProtectEx函数?但是我试了下
VirtualProtectEx(hProcess, Pointer($0012FEC0), 4, PAGE_EXECUTE_READWRITE,@vNumberOfBytesWritten);

加入了这行代码,可以运行,但是还是改不了HP的值

PS.我不会DLL注入

求助,200分,分多分少是个意思,真正是好人一生平安!

等下我在开一个贴子(100分),解决问题一共200分,帮顶帮解决另开贴送分,谢谢!