| View previous topic :: View next topic |
| Author |
Message |
torpin005 Master Cheater
Reputation: 0
Joined: 19 Nov 2007 Posts: 255
|
Posted: Sun Nov 02, 2008 9:13 am Post subject: Delphi 7 Hacks |
|
|
| Hey I've been learning Delphi 7 lately and i learned how to change a value of an address, but only on one button per program, i cant like change the value back, can someone add [email protected] and ill explain in detail with my problem, thanks
|
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
Posted: Sun Nov 02, 2008 9:50 am Post subject: |
|
|
| Just explain it here, I doubt any wants to add you just to answer this.
|
|
| Back to top |
|
 |
samuri25404 Grandmaster Cheater
Reputation: 7
Joined: 04 May 2007 Posts: 955 Location: Why do you care?
|
Posted: Sun Nov 02, 2008 10:15 am Post subject: |
|
|
Declare a global boolean variable, named On, or something of the sort, and do this in your button code:
| Code: |
if On = true then
WriteProcessMemory( ... );
else
WriteProcessMemory( ... );
On = not On;
|
Or whatever the operator for ! is, in Delphi.
_________________
|
|
| Back to top |
|
 |
Anden100 Grandmaster Cheater
Reputation: 0
Joined: 20 Apr 2007 Posts: 668
|
Posted: Sun Nov 02, 2008 10:16 am Post subject: |
|
|
| samuri25404 wrote: | Declare a global boolean variable, named On, or something of the sort, and do this in your button code:
| Code: |
if On = true then
WriteProcessMemory( ... );
else
WriteProcessMemory( ... );
On = not On;
|
Or whatever the operator for ! is, in Delphi. |
Its right, the operator for ! is "not"
|
|
| Back to top |
|
 |
torpin005 Master Cheater
Reputation: 0
Joined: 19 Nov 2007 Posts: 255
|
Posted: Sun Nov 02, 2008 10:20 am Post subject: |
|
|
| This is too confusing for me, ill just learn other stuff in it first and come back
|
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
Posted: Sun Nov 02, 2008 10:24 am Post subject: |
|
|
| torpin005 wrote: | | This is too confusing for me, ill just learn other stuff in it first and come back |
If and Else shouldn't be hard if you've just got a bit experience with Delphi.
|
|
| Back to top |
|
 |
torpin005 Master Cheater
Reputation: 0
Joined: 19 Nov 2007 Posts: 255
|
Posted: Sun Nov 02, 2008 10:35 am Post subject: |
|
|
| i dont have too much experience but the if and else doesnt seem to work with this
|
|
| Back to top |
|
 |
Anden100 Grandmaster Cheater
Reputation: 0
Joined: 20 Apr 2007 Posts: 668
|
Posted: Sun Nov 02, 2008 11:42 am Post subject: |
|
|
| torpin005 wrote: | | i dont have too much experience but the if and else doesnt seem to work with this |
Post the part of your code, where the if/else doesent seem to work
|
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
Posted: Sun Nov 02, 2008 11:51 am Post subject: |
|
|
The code should be something like this
| Code: | var
hackOn: boolean = false; //Declare this somewhere. It's false as default.
...
if hackOn = true then //If the hack is on, then...
begin
WriteProcessMemory(...); //The hack was already one, so you're setting the value back to default.
hackOn := false;
end
else //If the hack isn't on, then...
begin
WriteProcessMemory(...); //Modify the value to your needs
hackOn := true;
end; |
|
|
| Back to top |
|
 |
Anden100 Grandmaster Cheater
Reputation: 0
Joined: 20 Apr 2007 Posts: 668
|
Posted: Sun Nov 02, 2008 12:21 pm Post subject: |
|
|
| Moller wrote: | The code should be something like this
| Code: | var
hackOn: boolean = false; //Declare this somewhere. It's false as default.
...
if hackOn = true then //If the hack is on, then...
begin
WriteProcessMemory(...); //The hack was already one, so you're setting the value back to default.
hackOn := false;
end
else //If the hack isn't on, then...
begin
WriteProcessMemory(...); //Modify the value to your needs
hackOn := true;
end; |
|
or, you could rezise it...
| Code: | var
hackOn: boolean
begin
if hackOn then //If the hack is on, then...
WriteProcessMemory(...); //The hack was already one, so you're setting the value back to default.
else //If the hack isn't on, then...
WriteProcessMemory(...); //Modify the value to your needs
hackOn:= not hackOn
end; |
|
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
Posted: Sun Nov 02, 2008 12:24 pm Post subject: |
|
|
| As the code is most likely being used in a button, I don't think the variable hackOn will be saved, so next time he clicks the button, it's going to be true again.
|
|
| Back to top |
|
 |
DeletedUser14087 I post too much
Reputation: 2
Joined: 21 Jun 2006 Posts: 3069
|
Posted: Sun Nov 02, 2008 12:25 pm Post subject: |
|
|
Already told you on msn, just edit the buffer:
| Code: | const lpBuffer: Array[0..9]Of Byte = ($01 ,$00 ,$00 ,$00 ,$00 ,$68 ,$11 ,$F1 ,$63, $46);
var pID: Cardinal;
hProcess: Cardinal;
lpNumOfByWrit: Cardinal;
begin
try
GetWindowThreadProcessId(FindWindow(nil, 'MapleStoryClass'), pID);
hProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_WRITE, FALSE{!!}, pID{!!});
WriteProcessMemory(hProcess, Ptr($008E3A63), @lpBuffer, sizeof(lpBuffer), lpNumOfByWrit);
finally
CloseHandle(hProcess);
end; |
Instructions: Insert this code to a button or w.e.
|
|
| Back to top |
|
 |
|