Cần người giúp đỡ để cùng viết Auto cho TGHM

[singleboy]

Mình đang chơi TGHM online, trước đây dùng bản auto của Windy khá cool. nhưng sau khi update lên phiên bản Tinh linh chiến ca thì nó hok cho chơi free mà bắt mua ^^.. bạn nào biết bản auto nào hay giới thiệu mình với

[phamson06]

viết auto thế này cũng hay đấy chứ. Vô trong mấy forum của mấy trang diễn đàn tin học hay thu thuật game ngồi đợi mà dài cả cổ đấy là không kể virub nữa chứ.điên cả đầu
anh nào có auto ngon ngon se bà con cùng test thử

[dung059]

Mình cũng muốn tham gia để học lắm nhưng mà không biết
viết auto bằng phần mềm gì !
Mà bạn đang xài TGHM bản bao nhiêu vậy !?

này thì auto, (simple code) delphi 2009 nhé:
(sorry not attachments)
-------------------------------------------------------------------------------------------------------

object Form1: TForm1
  Left = 658
  Top = 499
  BorderStyle = bsToolWindow
  Caption = 'Simple code'
  ClientHeight = 216
  ClientWidth = 341
  Color = clBtnFace
  DockSite = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 341
    Height = 216
    ActivePage = TabSheet3
    Align = alClient
    TabOrder = 0
    ExplicitWidth = 339
    ExplicitHeight = 206
    object TabSheet1: TTabSheet
      Caption = 'Change title'
      ExplicitWidth = 331
      ExplicitHeight = 178
      object SpeedButton1: TSpeedButton
        Left = 8
        Top = 40
        Width = 81
        Height = 22
        Caption = 'chang title'
        OnClick = SpeedButton1Click
      end
      object curtitle: TLabeledEdit
        Left = 8
        Top = 15
        Width = 162
        Height = 21
        EditLabel.Width = 56
        EditLabel.Height = 13
        EditLabel.Caption = 'current title'
        TabOrder = 0
        Text = 'Element Client'
      end
      object newtitle: TLabeledEdit
        Left = 176
        Top = 15
        Width = 155
        Height = 21
        EditLabel.Width = 42
        EditLabel.Height = 13
        EditLabel.Caption = 'New title'
        TabOrder = 1
        Text = 'Element Client 1'
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'auto 2'
      ImageIndex = 2
      ExplicitWidth = 331
      ExplicitHeight = 178
      object Label5: TLabel
        Left = 192
        Top = 3
        Width = 57
        Height = 13
        Caption = 'Key to send'
      end
      object Label6: TLabel
        Left = 8
        Top = 45
        Width = 26
        Height = 13
        Caption = 'Skill 1'
      end
      object Label7: TLabel
        Left = 8
        Top = 72
        Width = 26
        Height = 13
        Caption = 'Skill 2'
      end
      object Label8: TLabel
        Left = 8
        Top = 99
        Width = 26
        Height = 13
        Caption = 'Skill 3'
      end
      object LabeledEdit2: TLabeledEdit
        Left = 8
        Top = 15
        Width = 162
        Height = 21
        EditLabel.Width = 56
        EditLabel.Height = 13
        EditLabel.Caption = 'current title'
        TabOrder = 0
        Text = 'Element Client 1'
      end
      object ComboBox1: TComboBox
        Left = 176
        Top = 15
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = '<none>'
        Items.Strings = (
          '<none>'
          '1'
          '2'
          '3'
          '4'
          '5'
          '6')
      end
      object CheckBox1: TCheckBox
        Left = 259
        Top = 158
        Width = 97
        Height = 17
        Caption = 'start/stop'
        TabOrder = 2
        OnClick = CheckBox1Click
      end
      object ComboBox2: TComboBox
        Left = 64
        Top = 42
        Width = 106
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 3
        Text = '<none>'
        Items.Strings = (
          '<none>'
          'F1'
          'F2'
          'F3'
          'F4'
          'F5'
          'F6'
          'F7'
          'F8')
      end
      object ComboBox3: TComboBox
        Left = 64
        Top = 69
        Width = 106
        Height = 21
        Style = csDropDownList
        Enabled = False
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 4
        Text = '<none>'
        Items.Strings = (
          '<none>'
          'F1'
          'F2'
          'F3'
          'F4'
          'F5'
          'F6'
          'F7'
          'F8')
      end
      object ComboBox4: TComboBox
        Left = 64
        Top = 96
        Width = 106
        Height = 21
        Style = csDropDownList
        Enabled = False
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 5
        Text = '<none>'
        Items.Strings = (
          '<none>'
          'F1'
          'F2'
          'F3'
          'F4'
          'F5'
          'F6'
          'F7'
          'F8')
      end
      object Memo1: TMemo
        Left = 176
        Top = 42
        Width = 145
        Height = 110
        Enabled = False
        Lines.Strings = (
          'Auto simple, '
          '1) set title'
          '2) choose skilll'
          '3) check start/stop '
          '4) enjoy!'
          '--------------------------'
          ''
          '(very simple code)')
        TabOrder = 6
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 88
    Top = 160
  end
end
------------------------------------------------------------------------------
unit Unit1_autotghm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, AppEvnts;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    curtitle: TLabeledEdit;
    newtitle: TLabeledEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    LabeledEdit2: TLabeledEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    ComboBox2: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label8: TLabel;
    Memo1: TMemo;
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tanger_ID:DWORD;
  FWoWProcessID,
  FGameWindowHandle : THandle;

implementation

uses Unit1_loadplayerinformation;

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  iPid:DWORD;
begin
  if CheckBox1.Checked then
    begin
      timer1.Enabled:=true;
      ComboBox1.Enabled:=false;
      ComboBox2.Enabled:=false;
      //ComboBox3.Enabled:=false;
      //ComboBox4.Enabled:=false;
      LabeledEdit2.Enabled:=false;
      FGameWindowHandle:=findwindow('ElementClient Window', Pchar(LabeledEdit2.Text));
      GetWindowThreadProcessID(
        FGameWindowHandle,
        @iPid);
      FWoWProcessID:=OpenProcess(PROCESS_ALL_ACCESS,False, iPid);
      Tanger_ID:=Get_PLR_TANGER(FWoWProcessID);
    end
  else
    begin
      timer1.Enabled:=false;
      ComboBox1.Enabled:=true;
      ComboBox2.Enabled:=true;
      //ComboBox3.Enabled:=true;
      //ComboBox4.Enabled:=true;
      LabeledEdit2.Enabled:=true;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  skill1,skill2,skill3,keytosend: integer;
  key1,key2,key3,key4:cardinal;
  tanger_ID_temp:DWORD;
begin
  timer1.Enabled:=false;
  keytosend:=ComboBox1.ItemIndex;
  skill1:=ComboBox2.ItemIndex;
  skill2:=ComboBox3.ItemIndex;
  skill3:=ComboBox4.ItemIndex;
  case keytosend of
    1:key4:=49;
    2:key4:=50;
    3:key4:=51;
    4:key4:=52;
    5:key4:=53;
    6:key4:=54;
  end;
  case (skill1 or skill2 or skill3) of
    1:key1:=112;  //F1
    2:key1:=113;
    3:key1:=114;  //F3
    4:key1:=115;
    5:key1:=116; //F5
    6:key1:=117;
    7:key1:=118; //F7
    8:key1:=119;
  end;
  //set time delay

  //tanger
  tanger_ID_temp:=Get_PLR_TANGER(FWoWProcessID);
  if tanger_ID_temp=0 then
    begin
      try
        tanger_ID_temp:=(tanger_ID-15)+random(25);
        Set_PLR_TANGER(FWoWProcessID,tanger_ID_temp);
      finally
        //
        tanger_ID_temp:=Get_PLR_TANGER(FWoWProcessID);
      end;
    end;

  //Send key
  if tanger_ID_temp<>0 then
    begin
      postmessage(FGameWindowHandle,
                WM_KEYDOWN, key4,0);
      postmessage(FGameWindowHandle,
                WM_KEYUP, key4,0);

      postmessage(FGameWindowHandle,
                WM_KEYDOWN, key1,0);
      postmessage(FGameWindowHandle,
                WM_KEYUP, key1,0);
    end;

  if CheckBox1.Checked then
    timer1.Enabled:=true
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  setwindowtext(
    findwindow('ElementClient Window', Pchar(curtitle.Text)),
    newtitle.Text);
end;

end.
--------------------------------------------------------------------------------------------
unit Unit1_loadplayerinformation;

interface

uses
  Windows;

const
  BASE_ADDR = $0092764C;
  PLR_TANGER =$A18;
  PLR_MP_CUR  = $454;
  PLR_MP_MAX = $468;
  PLR_HP_CUR = $450;
  PLR_HP_MAX = $478;

type  TPlayerInfo = record
         ptrPlayerX,
         ptrPlayerY,
         ptrPlayerZ : dword;
         ptrPlayerHP,
         ptrPlayerMP,
         ptrPlayerMaxHP,
         ptrPlayerMaxMP: dword;
         ptrPLayerSex : string;
         ptrPLayerChar : string;
         ptrPLayerName : string;
      end;

  //Public
  procedure Get_ptrPlayer_Info(FProcessHandle:DWORD);

  Function Get_PLR_TANGER(FProcessHandle:DWORD):DWORD;
  Function Set_PLR_TANGER(FProcessHandle:DWORD; Tanger_ID:DWORD):Bool;

var
  ptrPLayer:TPlayerInfo;

implementation

procedure Get_ptrPlayer_Info(FProcessHandle:DWORD);
var
  tempaddress, tempaddress1, ipbuff, dwRead:  DWORD;
begin
  readprocessmemory(FProcessHandle,Ptr(BASE_ADDR),@ipbuff,SizeOf(ipbuff),dwRead);
  tempaddress:=ipbuff+$20;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@tempaddress1,SizeOf(tempaddress1),dwRead);
  //hp
  tempaddress:=tempaddress1+PLR_HP_CUR;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  ptrPLayer.ptrPlayerHP:=ipbuff;
  //mp
  tempaddress:=tempaddress1+PLR_MP_CUR;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  ptrPLayer.ptrPlayerMP:=ipbuff;
  //max hp
  tempaddress:=tempaddress1+PLR_HP_MAX;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  ptrPLayer.ptrPlayerMaxHP:=ipbuff;
  //max mp
  tempaddress:=tempaddress1+PLR_MP_MAX;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  ptrPLayer.ptrPlayerMaxMP:=ipbuff;
end;

Function Get_PLR_TANGER(FProcessHandle:DWORD):DWORD;
var
  tempaddress, ipbuff, dwRead:  DWORD;
begin
  result:=0;
  readprocessmemory(FProcessHandle,Ptr(BASE_ADDR),@ipbuff,SizeOf(ipbuff),dwRead);
  tempaddress:=ipbuff+$20;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  tempaddress:=ipbuff+PLR_TANGER;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  if ipbuff<>0 then
    result:=ipbuff;
end;

Function Set_PLR_TANGER(FProcessHandle:DWORD; Tanger_ID:DWORD):Bool;
var
  tempaddress, ipbuff, dwRead, dwWrite:  DWORD;
begin
  readprocessmemory(FProcessHandle,Ptr(BASE_ADDR),@ipbuff,SizeOf(ipbuff),dwRead);
  tempaddress:=ipbuff+$20;
  readprocessmemory(FProcessHandle,Ptr(tempaddress),@ipbuff,SizeOf(ipbuff),dwRead);
  tempaddress:=ipbuff+PLR_TANGER;
  Writeprocessmemory(FProcessHandle,Ptr(tempaddress),@Tanger_ID,SizeOf(ipbuff),dwWrite);
end;

end.
-----------------------------------------------------------------------------