Kết quả 11 đến 13 của 13
-
29-07-09, 02:33 PM #11Thành Viên
- Ngày tham gia
- Jul 2009
- Bài viết
- 30
- Thanks
- 0
- Thanked 0 Times in 0 Posts
Ðề: Cần người giúp đỡ để cùng viết Auto cho TGHM
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
Khách viếng thăm hãy cùng singleboy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
29-07-09, 11:53 PM #12Thành Viên
- Ngày tham gia
- Mar 2009
- Bài viết
- 225
- Thanks
- 37
- Thanked 22 Times in 4 Posts
Ðề: Cần người giúp đỡ để cùng viết Auto cho TGHM
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ửKhách viếng thăm hãy cùng phamson06 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
30-09-09, 07:25 PM #13Thành Viên
- Ngày tham gia
- Sep 2009
- Bài viết
- 131
- Thanks
- 5
- Thanked 17 Times in 4 Posts
Ðề: Cần người giúp đỡ để cùng viết Auto cho TGHM
này thì auto, (simple code) delphi 2009 nhé:
(sorry not attachments)
-------------------------------------------------------------------------------------------------------
PHP Code: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.
-----------------------------------------------------------------------------
Khách viếng thăm hãy cùng dung059 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Trả lời kèm Trích dẫn
Gửi bởi huntersun
[Only registered and activated users can see links. 
Các Chủ đề tương tự
-
Mới tập cài TGHM chỉ giáo
Bởi anhnhuong trong diễn đàn Thế Giới Hoàn MỹTrả lời: 8Bài viết cuối: 13-10-08, 06:49 PM -
Nhờ các bạn cài TGHM được giúp đở!
Bởi killwilliam trong diễn đàn Thế Giới Hoàn MỹTrả lời: 0Bài viết cuối: 29-07-08, 05:09 PM -
Các bác pro ơi Help em TGHM!!!
Bởi Lovepw trong diễn đàn Thế Giới Hoàn MỹTrả lời: 3Bài viết cuối: 25-05-08, 09:42 PM
