Go to Post Just because you haven't witnessed parts leaving the flywheel yet, doesn't mean it won't happen. - Al Skierkiewicz [more]
Home
Go Back   Chief Delphi > Technical > Programming
CD-Media   CD-Spy  
portal register members calendar search Today's Posts Mark Forums Read FAQ rules

 
Closed Thread
Thread Tools Rate Thread Display Modes
  #1   Spotlight this post!  
Unread 07-08-2004, 11:26
始il_Jimmy_Live 始il_Jimmy_Live is offline
Registered User
no team
 
Join Date: Aug 2004
Location: Canada
Posts: 3
始il_Jimmy_Live is an unknown quantity at this point
need help in delphi

my game trainer
Quote:
unit Unit1;

interface

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

const
Addr11 = $007EB834;
Poke11 = $00;
Addr12 = $007EB834;
Poke12 = $01;
Addr13 = $007EB834;
Poke13 = $02;
Bytes = 1;
WindowTitle = 'gunbound';
type
TGbHacked = class(TForm)
Image11: TImage;
Image12: TImage;
Image19: TImage;
Image20: TImage;
ActionList1: TActionList;
Image24: TImage;
Image21: TImage;
A: TAction;
B: TAction;
C: TAction;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure AExecute(Sender: TObject);
procedure BExecute(Sender: TObject);
procedure CExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
GbHacked: TGbHacked;
WIN : integer;
PID : integer;
TID : integer;
HND : integer;
WRT : cardinal;
BUF : pchar;

implementation

{$R *.dfm}
procedure TGbHacked.AExecute(Sender: TObject);
begin
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke11);
WriteProcessMemory(HND,ptr(Addr11),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);

end;
end;
procedure TGbHacked.BExecute(Sender: TObject);
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke12);
WriteProcessMemory(HND,ptr(Addr12),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);

end;

procedure TGbHacked.CExecute(Sender: TObject);
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke13);
WriteProcessMemory(HND,ptr(Addr13),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);

end;

end.


this code works nicely but the thing is it finds the window, i need some windows api comands that find the process instead of the window title, any help would be greatly appreciated

Last edited by 始il_Jimmy_Live : 07-08-2004 at 11:31.
  #2   Spotlight this post!  
Unread 07-08-2004, 12:26
Max Lobovsky's Avatar
Max Lobovsky Max Lobovsky is offline
Fold em oval!
FRC #1257 (Parallel Universe)
Team Role: College Student
 
Join Date: Jan 2004
Rookie Year: 2004
Location: Scotch Plains, NJ
Posts: 1,026
Max Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant future
Send a message via AIM to Max Lobovsky
Re: need help in delphi

This site is dedicated to the FIRST robotics competition (www.usfirst.org). ChiefDelphi is just the name of the team that hosts this site.

Regardless, there are definitley some people knowledgable in Delphi here, and you may find help. (You aren't the first person to make this mistake)

By the way, this is some memory-based hack the game Gunbound, correct? You might have wanted to hide that fact if you are looking for help.
__________________
Learn, edit, inspire: The FIRSTwiki.
Team 1257


2005 NYC Regional - 2nd seed, Xerox Creativity Award, Autodesk Visualization Award
2005 Chesapeake Regional - Engineering Inspiration Award
2004 Chesapeake Regional - Rookie Inspiration award
2004 NJ Regional - Team Spirit Award
  #3   Spotlight this post!  
Unread 07-08-2004, 14:24
始il_Jimmy_Live 始il_Jimmy_Live is offline
Registered User
no team
 
Join Date: Aug 2004
Location: Canada
Posts: 3
始il_Jimmy_Live is an unknown quantity at this point
Re: need help in delphi

Quote:
This site is dedicated to the FIRST robotics competition
Sry for the misunderstanding, but help would greatly be apreciated.

Quote:
By the way, this is some memory-based hack the game Gunbound, correct? You might have wanted to hide that fact if you are looking for help.
yeah,but well i would think that programmers such as your self would be glad to help,and you are a programmer,which means you program...not waste your time on playing games
~anyways beyond that point HELP

Last edited by 始il_Jimmy_Live : 07-08-2004 at 14:32.
  #4   Spotlight this post!  
Unread 07-08-2004, 19:08
Astronouth7303's Avatar
Astronouth7303 Astronouth7303 is offline
Why did I come back?
AKA: Jamie Bliss
FRC #4967 (That ONE Team)
Team Role: Mentor
 
Join Date: Jan 2004
Rookie Year: 2004
Location: Grand Rapids, MI
Posts: 2,071
Astronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud ofAstronouth7303 has much to be proud of
Re: need help in delphi

There are plenty of API for window/thread/process handling. Spy++ is a very good tool (comes with Microsoft Visual Studio). The Microsoft Developer Network is the ultimate Windows resource.

Beyond that is going to require some digging, and I do not know Delphi. And I won't get specific due to the questionable purposes.
  #5   Spotlight this post!  
Unread 07-08-2004, 22:51
始il_Jimmy_Live 始il_Jimmy_Live is offline
Registered User
no team
 
Join Date: Aug 2004
Location: Canada
Posts: 3
始il_Jimmy_Live is an unknown quantity at this point
Re: need help in delphi

thx for the info,and now let's continue the research, i really appreciate your help
  #6   Spotlight this post!  
Unread 07-08-2004, 23:45
Max Lobovsky's Avatar
Max Lobovsky Max Lobovsky is offline
Fold em oval!
FRC #1257 (Parallel Universe)
Team Role: College Student
 
Join Date: Jan 2004
Rookie Year: 2004
Location: Scotch Plains, NJ
Posts: 1,026
Max Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant futureMax Lobovsky has a brilliant future
Send a message via AIM to Max Lobovsky
Re: need help in delphi

Huh, I thought that this thread seemed very familiar, the last person looking for Delphi help was also looking for a similar game hack, maybe he can help you: http://www.chiefdelphi.com/forums/sh...ghlight=delphi

Anyway, this isn't a major issue or anything, but the mods might consider putting a sticky in Technical/Programming briefly explaining what we do and what our name means.
__________________
Learn, edit, inspire: The FIRSTwiki.
Team 1257


2005 NYC Regional - 2nd seed, Xerox Creativity Award, Autodesk Visualization Award
2005 Chesapeake Regional - Engineering Inspiration Award
2004 Chesapeake Regional - Rookie Inspiration award
2004 NJ Regional - Team Spirit Award
Closed Thread


Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Thank you to Brandon and Chief Delphi Ken Leung Thanks and/or Congrats 19 15-12-2003 22:24
Chief Delphi Climbs to New Heights ;-) archiver 2001 0 24-06-2002 04:07
Chief Delphi Institute for Better High School Robotics archiver 2000 0 24-06-2002 00:17
Team #48 Delphi E.L.I.T.E./ Xtremachen5 Travis Hoffman Robot Showcase 1 23-04-2002 16:47
Delphi Automotive Systems is now just Delphi... Joe Johnson General Forum 10 21-03-2002 22:23


All times are GMT -5. The time now is 03:10.

The Chief Delphi Forums are sponsored by Innovation First International, Inc.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi