红蓝保护（按键模拟）

//使用物品方式

 

 

//内存模拟快捷栏方式

 

 

//SendMessage按键模拟

var
   Form1 :  TForm1 ;
/////////////////////////////////////////////////////////////
   MyHwnd : HWND ;
   MyPid : Dword ;
   MyProcess : Thandle ;
   MyPointer : Integer ;
   Readbyte : DWORD ; //Size_T
   HpMin , HpMax : Integer ;
   MpMin , MpMax : Integer ;
   hp_half , mp_half : Integer ;
   RoleName : array  [ 0..16 ]  of  WideChar ; // UniCode 0..17个字符加起来共18个字符
/////////////////////////////////////////////////////////////
Const
     BaseAddress = $924E0C ;
         Offset1 = $1C ;
         Offset2 = $20 ;
       RNOffset1 = $5CC ;
       RNOffset2 = $0 ;
       HpMinOffset = $450 ;
       HpMaxOffset = $478 ;
       MpMinOffset = $454 ;
       MpMaxOffset = $47C ;
implementation

{$R *.dfm}

function  SendKey ( Str : string ): Integer ;
var
   MyHwnd : HWND ;
   KeyValue : integer ;
begin
   {功能模拟发送按键:1~9,F1~F8}
     MyHwnd := FindWindow ( nil , 'Element Client' );
    if  Str = '1'   then  KeyValue := 49 ;
    if  Str = '2'   then  KeyValue := 50 ;
    if  Str = '3'   then  KeyValue := 51 ;
    if  Str = '4'   then  KeyValue := 52 ;
    if  Str = '5'   then  KeyValue := 53 ;
    if  Str = '6'   then  KeyValue := 54 ;
    if  Str = '7'   then  KeyValue := 55 ;
    if  Str = '8'   then  KeyValue := 56 ;
    if  Str = '9'   then  KeyValue := 57 ;
    if  Str = 'F1'  then  KeyValue := VK_F1 ;
    if  Str = 'F2'  then  KeyValue := VK_F2 ;
    if  Str = 'F3'  then  KeyValue := VK_F3 ;
    if  Str = 'F4'  then  KeyValue := VK_F4 ;
    if  Str = 'F5'  then  KeyValue := VK_F5 ;
    if  Str = 'F6'  then  KeyValue := VK_F6 ;
    if  Str = 'F7'  then  KeyValue := VK_F7 ;
    if  Str = 'F8'  then  KeyValue := VK_F8 ;
   sendmessage ( MyHwnd , wm_keydown , KeyValue , 0 );
   sendmessage ( MyHwnd , wm_keyup , KeyValue , 0 );
end ;

procedure  TForm1 . Timer1Timer ( Sender :  TObject );
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 + HpMinOffset ),@ HpMin , 4 , Readbyte );
   ReadProcessMemory ( MyProcess , Pointer ( MyPointer + HpMaxOffset ),@ HpMax , 4 , Readbyte );
   ReadProcessMemory ( MyProcess , Pointer ( MyPointer + MPMinOffset ),@ MPMin , 4 , Readbyte );
   ReadProcessMemory ( MyProcess , Pointer ( MyPointer + MPMaxOffset ),@ MPMax , 4 , Readbyte );
   ReadProcessMemory ( MyProcess , Pointer ( MyPointer + RNOffset1 ),@ MyPointer , 4 , Readbyte );
   ReadProcessMemory ( MyProcess , Pointer ( MyPointer + RNOffset2 ),@ RoleName , 32 , Readbyte );
   CloseHandle ( MyProcess );
   //显示信息
   Form1 . Label1 . Caption := '【' + RoleName + '】  HP:' + intTostr ( HpMin )+ '/' + intTostr ( HpMax )+
                          '  MP:' + intTostr ( MPMin )+ '/' + intTostr ( MPMax );

   hp_half :=( HpMax  div  2 );
   mp_half :=( Mpmax  div  2 );
end ;

procedure  TForm1 . Timer2Timer ( Sender :  TObject );
begin
  if  CheckBox1 . Checked  then
  if  ( HpMin <= StrToInt ( Edit1 . Text ))  then
  begin
    //使用红
     SendKey ( ComboBox1 . Text );
  end ;

  if  CheckBox2 . Checked  then
  if  MpMin <= StrToInt ( Edit2 . Text )  then
  begin
    //使用蓝
    SendKey ( ComboBox2 . Text );
  end ;
end ;

procedure  TForm1 . Edit1DblClick ( Sender :  TObject );
begin
   Edit1 . Text := IntToStr ( hp_half );
   Edit2 . Text := IntToStr ( mp_half );
end ;
procedure  TForm1 . CheckBox1Click ( Sender :  TObject );
begin
     if  CheckBox1 . Checked  then
       Edit1 . Enabled := False
     else
       Edit1 . Enabled := True ;
end ;

procedure  TForm1 . CheckBox2Click ( Sender :  TObject );
begin
     if  CheckBox2 . Checked  then
       Edit2 . Enabled := False
     else
       Edit2 . Enabled := True ;
end ;

通过 Wiz 发布

附件列表