至今为止，学语言已经2个星期了。。。
o(∩_∩)o.
刚刚出炉了诛仙的内存挂（后台类型的），现奉上，请各位大侠们给点意见
给点掌声
给点鼓励
谢谢
o(∩_∩)o
忘记一件很重要的事情
帐号：123
开源啦~

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, TabNotBk, jpeg, ExtCtrls, Menus,shellapi;

const
  mousemsg = wm_user + 1;
  iid = 100;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    TabbedNotebook1: TTabbedNotebook;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox3: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Memo1: TMemo;
    Label11: TLabel;
    Edit15: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    CheckBox15: TCheckBox;
    GroupBox7: TGroupBox;
    Label12: TLabel;
    Memo2: TMemo;
    Edit16: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    CheckBox17: TCheckBox;
    GroupBox8: TGroupBox;
    Label13: TLabel;
    Edit17: TEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    CheckBox19: TCheckBox;
    GroupBox9: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    CheckBox18: TCheckBox;
    CheckBox21: TCheckBox;
    GroupBox10: TGroupBox;
    GroupBox11: TGroupBox;
    Memo4: TMemo;
    Label20: TLabel;
    Edit18: TEdit;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    CheckBox22: TCheckBox;
    Memo5: TMemo;
    Edit19: TEdit;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    GroupBox12: TGroupBox;
    Label21: TLabel;
    Edit20: TEdit;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    Timer1: TTimer;
    Edit21: TEdit;
    Timer2: TTimer;
    ListBox2: TListBox;
    ListBox1: TListBox;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    TmrXunGuai: TTimer;
    TmrGJ: TTimer;
    Tmrdazuo: TTimer;
    BitBtn17: TBitBtn;
    BitBtn16: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox1: TComboBox;
    ComboBox8: TComboBox;
    Timer3: TTimer;
    Timer4: TTimer;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel1: TPanel;
    Timer5: TTimer;
    Image2: TImage;
    Image3: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure TmrXunGuaiTimer(Sender: TObject);
    procedure TmrGJTimer(Sender: TObject);

    procedure BitBtn17Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Edit4Change(Sender: TObject);

   

  private
  procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form2: TForm2;
ntida: TNotifyIcondataA;

  Base0, Base1, BaseT1: Integer;
  MHP,MMP,IDID,HP, MP: Integer;
  XXX,YYY:single;  
  MyHwnd:Hwnd;
  hProcess_N: THandle;
  ThreadAdd, ParamAdd: Pointer;
  ThreadID: DWORD;
  MemSize, JNID: DWORD;
  ByteRead: Cardinal;

  function TabKeyFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'TabKeyFunc';   
  function NormalAttackFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'NormalAttackFunc';  
  function ZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'ZazenFunc';      
  function UnZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'UnZazenFunc';   
  function SendKeyFunc(lpHwnd:HWND;Key:Integer):bool;stdcall;external 'SOOK.dll' name 'SendKeyFunc';

implementation

uses Unit1;
{$R *.dfm}

  procedure TForm2.wmnchittest(var msg:twmnchittest);
begin
  inherited;
  if (htclient=msg.result) then msg.result:=htcaption;
end;

  procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
SetWindowText(MyHwnd, 'Element Client');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

   
MyHwnd:=findwindow(nil, 'Element Client');
  GetWindowThreadProcessId(MyHwnd, @ThreadID);
  hProcess_N := OpenProcess(PROCESS_ALL_ACCESS, False, ThreadID);

  if hProcess_N = 0 then
  begin
  
  
  end;
  Base0:=$910F4C;   
  ThreadAdd := VirtualAllocEx(hProcess_N, nil, MemSize, MEM_COMMIT, PAGE_READWRITE);
  ParamAdd := VirtualAllocEx(hProcess_N, nil, 20, MEM_COMMIT, PAGE_READWRITE);

Timer1.Enabled:=False;
Timer2.Enabled:=False;
Tmrdazuo.Enabled:=False;
TmrGJ.Enabled:=False;
TmrXunGuai.Enabled:=False;
Timer4.Enabled:=False;
Timer5.Enabled:=False;

   

end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  Name: array [0..16] of WideChar;
begin
  ReadProcessMemory(hProcess_N, Pointer(Base0), @BaseT1, 4, ByteRead);   //人物基址=[[&h0012F82C]+&h24]=base
  ReadProcessMemory(hProcess_N, Pointer(BaseT1+($28)), @Base1, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($3a4)), @BaseT1, 4, ByteRead);    //  主角信息 偏移人物名称=[[base+&h398]+0]  字符串
  ReadProcessMemory(hProcess_N, Pointer(BaseT1+($0)),  @Name, 16, ByteRead);    // ---- 主角信息 偏移
  ReadProcessMemory(hProcess_N, Pointer(Base1+($254)), @HP, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($258)), @MP, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($7b8)), @IDID, 4, ByteRead); //怪物id
  ReadProcessMemory(hProcess_N, Pointer(Base1+($3d8)), @XXX, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($3e0)), @YYY, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($26c)), @MHP, 4, ByteRead);
  ReadProcessMemory(hProcess_N, Pointer(Base1+($270)), @MMP, 4, ByteRead);

   Label5.Caption:=IntToStr(HP)+'/'+ IntToStr(MHP);
   Label6.Caption:=IntToStr(MP)+'/'+ IntToStr(MMP);

  label4.Caption:=Name;
  label19.Caption:=IntToStr(IDID);
  Edit21.Text:=IntToStr(IDID);

  label9.Caption:=IntToStr(Round(XXX));  
  label10.Caption:=IntToStr(Round(YYY));

  If (MP < strtoint(edit2.text))then
  begin
   Timer2.Enabled:=True;
   end
  else
  Timer2.Enabled:=False;
  
  If  (HP < strtoint(edit1.text))then
     begin
   Timer3.Enabled:=True;
   end
  else
  Timer3.Enabled:=False;

end;

procedure TForm2.Edit4Change(Sender: TObject);
begin
timer5.Interval:=strtoint(edit4.text)
end;

procedure TForm2.BitBtn12Click(Sender: TObject);

var
a1:integer;
begin
  if listbox1.Count<10 then
  begin
    a1:=integer(IDID);
    if a1<0 then listbox1.Items.Add(inttostr(a1));
  end;
end;

procedure TForm2.BitBtn13Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);

var a1:string;
begin
  if listbox2.Count<10 then
  begin
    a1:=trim(Edit17.Text);
    Edit17.Text:='';
    if a1>'' then listbox2.Items.Add(a1);
  end;
  end;

procedure TForm2.BitBtn7Click(Sender: TObject);
begin
listbox2.DeleteSelected;
end;

procedure TForm2.BitBtn14Click(Sender: TObject);
begin

    bitbtn15.Enabled:=true;
    bitbtn14.Enabled:=false;

end;

procedure TForm2.BitBtn15Click(Sender: TObject);
begin
  timer2.Enabled:=false;
  bitbtn15.Enabled:=false;
  bitbtn14.Enabled:=true;
  
end;

procedure TForm2.TmrXunGuaiTimer(Sender: TObject);
begin
     If (IDID=0) Then  
begin
     Label16.Caption:= '选怪中。。';
     label16.Color:=RGB(230,0,0);
          myhwnd:=findwindow(nil,'Element Client');
          if myhwnd<>0 then
          begin
          if TabKeyFunc(myhwnd) then   
     TmrGJ.Enabled:= False;  
     sleep(100);   

     If (IDID <> 0) Then   
     TmrXunGuai.Enabled := False;   
     TmrGJ.Enabled:= True;  
     sleep(100);   
end;
end;
end;

procedure TForm2.TmrGJTimer(Sender: TObject);
begin
     Label16.Caption:= '选怪【OK】';
     label16.Color:=RGB(0,168,0);
     myhwnd:=findwindow(nil,'Element Client');
     if myhwnd<>0 then
     begin
     if NormalAttackFunc(myhwnd) then  

      myhwnd:=findwindow(nil,'Element Client');
  if myhwnd<>0 then
  begin
    SendKeyFunc(myhwnd,GetKeys(ComboBox2.Text));
    SendKeyFunc(myhwnd,GetKeys(ComboBox3.Text));
    SendKeyFunc(myhwnd,GetKeys(ComboBox4.Text));
    SendKeyFunc(myhwnd,GetKeys(ComboBox5.Text));

end;
end;
end;
                    

procedure TForm2.BitBtn17Click(Sender: TObject);
begin
    form1.oo1.Enabled:=true;
    form1.N2.Enabled:=true;
    form1.N3.Enabled:=true;

     TmrXunGuai.Enabled:=False;
     TmrGJ.Enabled:=False;
     Timer4.Enabled:=False;
     Timer1.Enabled:=False;
     BitBtn16.Enabled:=True;
     Timer5.Enabled:=False;

end;
procedure TForm2.Timer2Timer(Sender: TObject);
begin

   myhwnd:=findwindow(nil,'Element Client');
     if myhwnd<>0 then
     begin
     SendKeyFunc(myhwnd,GetKeys(ComboBox8.Text));
end;
end;

procedure TForm2.BitBtn16Click(Sender: TObject);
begin
    form2.Hide;
    form1.oo1.Enabled:=true;
    form1.N2.Enabled:=true;
    form1.N3.Enabled:=true;
   

     TmrXunGuai.Enabled:=True;
     TmrGJ.Enabled:=True;
     Timer4.Enabled:=True;
     Timer1.Enabled:=True;
     BitBtn16.Enabled:=False;
     Timer5.Enabled:=True;
end;

procedure TForm2.Timer3Timer(Sender: TObject);
begin

     myhwnd:=findwindow(nil,'Element Client');
     if myhwnd<>0 then
     begin
     SendKeyFunc(myhwnd,GetKeys(ComboBox1.Text));
end;
end;

procedure TForm2.Timer4Timer(Sender: TObject);
begin
         myhwnd:=findwindow(nil,'Element Client');
     if myhwnd<>0 then
     begin
     SendKeyFunc(myhwnd,GetKeys(ComboBox6.Text));
end;
end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
timer4.Interval:=strtoint(edit3.text)

end;

procedure TForm2.Timer5Timer(Sender: TObject);
begin
begin
         myhwnd:=findwindow(nil,'Element Client');
     if myhwnd<>0 then
     begin
     SendKeyFunc(myhwnd,GetKeys(ComboBox7.Text));
end;
end;
end;

end.

[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法

上传的附件：

• xDevil.rar （375.87kb，239次下载）