【申请加入】笨鸟我先飞申请加入PET

笨鸟我先飞

1，论坛ID：笨鸟我先飞
2。爱好编程，努力学习delphi中。希望能和密界高手学习
3。creakme实在是没写过。附上自己写的诛仙看血工具源码望通过；
首先，通过CE5.2搜索到诛仙的最新基址为（（（（00917B3C+1c）+1c）+28）+254）=hp；
                                 （（（（00917B3C+1c）+1c）+28）+258）=MP；
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,tlhelp32;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    xs: TLabeledEdit;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function readadd:thandle;{枚举进程找到游戏进程id，然后把id赋给result以便以后调用}
VAR
phandle:tprocessentry32;
myhandle:thandle;
myloop:boolean;
begin
    myhandle:=tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    phandle.dwSize:=sizeof(phandle);
    myloop:=tlhelp32.Process32First(myhandle,phandle);
    while integer(myloop)<>0 do
    begin
    if phandle.szExeFile='elementclient.exe' then
    result:=phandle.th32ProcessID;
    myloop:=tlhelp32.Process32Next(myhandle,phandle);
    end;
    //result:=0;
    closehandle(myhandle);
    end;
function readsmth(r_addr:pointer):dword;//定义一个读内存的函数方便以后调用之。
var
g_handle1:thandle;
g_buffer:dword;
num:cardinal;
begin
  g_handle1:=openprocess(PROCESS_ALL_ACCESS,false,readadd);
  if g_handle1=0 then
  messagebox(0,'游戏未运行?','友情提示',0)
  else
  readprocessmemory(g_handle1,r_addr,@g_buffer,4,num);
  result:=g_buffer;
  closehandle(g_handle1);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
myaddr=$00917B3C;
var
mybuffer,hpbuffer1,hpbuffer2,zx_hp,jq3:dword;
myh1,myh2:thandle;
ss: cardinal;
begin
//myh1:=openprocess(process_all_access,false,readadd);
mybuffer:=readsmth(pointer(myaddr));
hpbuffer1:=readsmth(pointer(mybuffer+$1c));
hpbuffer2:=readsmth(pointer(hpbuffer1+$28));
zx_hp:=readsmth(pointer(hpbuffer2+$254));
jq3:=readsmth(pointer(hpbuffer2+$258));
xs.Text:=inttostr(zx_hp);
edit1.Text:=inttostr(jq3);
end;

end.
代码有些晦涩难懂，还请各位大牛高抬贵手。/:001

[ 本帖最后由 笨鸟我先飞 于 2007-11-2 18:05 编辑 ]

wzwgp

兄弟写得很不错了，坐在沙发上学习！

cha23

/:good /:001

zhaoyafei19

我才笨鸟
看不懂啊　　　

fonge

兄弟编程能力不错嘛...
可以试着写一个代码自修改的作品~

笨鸟我先飞

原帖由 fonge 于 2007-11-3 01:10 发表
兄弟编程能力不错嘛...
可以试着写一个代码自修改的作品~

汗一个先，你是第一个称赞我的。/:L 没写过creakme所以很多东西不知道怎么写

enng

→終于等到這一天了
→等了好久了
/:L /:012 /:011 /:001 /:002 :time: /:017

风间仁

不懂，郁闷。。。

chinaking

还得努力提高自己的编程水平！

lenovo

呵呵支持哦兄弟写的不错