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,
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
FWoWProcessID:=OpenProcess(PROCESS_ALL_ACCESS,Fals e, 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
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tempaddress:=ipbuff+$20;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
//hp
tempaddress:=tempaddress1+PLR_HP_CUR;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
ptrPLayer.ptrPlayerHP:=ipbuff;
//mp
tempaddress:=tempaddress1+PLR_MP_CUR;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
ptrPLayer.ptrPlayerMP:=ipbuff;
//max hp
tempaddress:=tempaddress1+PLR_HP_MAX;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
ptrPLayer.ptrPlayerMaxHP:=ipbuff;
//max mp
tempaddress:=tempaddress1+PLR_MP_MAX;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
ptrPLayer.ptrPlayerMaxMP:=ipbuff;
end;
Function Get_PLR_TANGER(FProcessHandle:DWORD):DWORD;
var
tempaddress, ipbuff, dwRead: DWORD;
begin
result:=0;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tempaddress:=ipbuff+$20;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tempaddress:=ipbuff+PLR_TANGER;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
if ipbuff<>0 then
result:=ipbuff;
end;
Function Set_PLR_TANGER(FProcessHandle:DWORD; Tanger_ID:DWORD):Bool;
var
tempaddress, ipbuff, dwRead, dwWrite: DWORD;
begin
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tempaddress:=ipbuff+$20;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
tempaddress:=ipbuff+PLR_TANGER;
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
end;
end.
-----------------------------------------------------------------------------