CODE Case Of 职业 修真期

procedure DsplyRoleCareer(); 
//JOB=[[[924E0C]+1C]+20]+5D4//职业ID 0=武侠，1=法师，3=妖精，4=妖兽，6=羽茫，7=羽灵
Const
    BaseAddress=$924E0C;
        Offset1=$1C;
        Offset2=$20;
      CareerOffset=$5D4;
var
  MyHwnd:HWND;
  ProcessIdentifier:DWORD;
  MyPid:Dword;
  MyProcess:Thandle;
  MyPointer:Integer;
  Readbyte:DWORD;//Size_T
  CareerId:Integer;
  Career:string;
begin
  MyHwnd:=FindWindow(NIL,'Element Client');
  GetWindowThreadProcessId(MyHwnd,@myPid);
  MyProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,myPid);
  ReadProcessMemory(MyProcess,Pointer(BaseAddress),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset1),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset2),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+CareerOffset),@CareerId,4,Readbyte);
  CloseHandle(MyProcess);
  //显示数值
  case CareerId of
      0:career:='武侠';
      1:career:='法师';
      3:career:='妖精';
      4:career:='妖兽';
      6:career:='羽茫';
      7:career:='羽灵';
  end;
 form1.edit1.Text:=career;
end;

procedure DsplyRoleXzq();
//Xzq=[[[924E0C]+1C]+20]+44C//修真期
Const
    BaseAddress=$924E0C;
        Offset1=$1C;
        Offset2=$20;
      XzqOffset=$44C;
var
  MyHwnd:HWND;
  ProcessIdentifier:DWORD;
  MyPid:Dword;
  MyProcess:Thandle;
  MyPointer:Integer;
  Readbyte:DWORD;//Size_T
  XzqID:Integer;
  Xzq:string;
begin
  MyHwnd:=FindWindow(NIL,'Element Client');
  GetWindowThreadProcessId(MyHwnd,@myPid);
  MyProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,myPid);
  ReadProcessMemory(MyProcess,Pointer(BaseAddress),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset1),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset2),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+XzqOffset),@XzqID,4,Readbyte);
  CloseHandle(MyProcess);
  //显示数值
  case XzqID of
      0:Xzq:='筑基';
      1:Xzq:='灵虚';
      3:Xzq:='合和';
      4:Xzq:='空冥';
      5:Xzq:='履霜';
      6:Xzq:='渡劫';
      7:Xzq:='寂灭';
      8:Xzq:='大乘';
      20:Xzq:='上仙';
      21:Xzq:='真仙';
      22:Xzq:='天仙';
      30:Xzq:='狂魔';
      31:Xzq:='魔圣';
      32:Xzq:='魔尊';
  end;
 form1.edit2.Text:=Xzq;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  DsplyRoleCareer;
  DsplyRoleXzq;
end;

 

通过 Wiz 发布

附件列表