| View previous topic :: View next topic |
| Author |
Message |
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
 Posted: Mon Nov 19, 2007 10:19 am Post subject: Cheat Engine Adress into VB6 |
 |
|
I got to ask this
because i didnt find it on the internet
I got a Cheat Engine adress
Example : 342C9E8C
I want the value to : 6004
i want to make a trainer in VB6
I make a button and what must i add ?
Exemple :
Private Sub Command1_Click()
??????
End Sub
I want to change the value of that adress in a game
how must i do it with VB6
whats the command ???
plz help me
|
|
| Back to top |
|
 |
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Mon Nov 19, 2007 12:30 pm Post subject: :S |
|
|
I still not understand
this is what i wanne do
Process : Wolfteam.bin
Address : 342C9E8C
Must Change in Value : 6004
Type : 4 Byte
Can you make a script for this so i can see how it looks like
i want if you click the button ( command1 )
The value will change in 6004 of the 342C9E8C address from wolfteam.bin
help me plz
im looking for a awnser for 2 weeks plz
Thnx
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
| Posted: Mon Nov 19, 2007 1:50 pm Post subject: |
|
|
Using my toolkit, you could do this using this code:
| Code: | Private Sub Command1_Click()
Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("Wolfteam.bin")
Poke.WriteLong dwProcId, &H342C9E8C, 6004
End Sub |
_________________
- Retired. |
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Mon Nov 19, 2007 4:15 pm Post subject: |
|
|
I want to thank you for all you help but
It dont work for me ( maby im doing something wrong but i get errors )
many people got questions about memory writing in vb6 and value change enc.
so i ask you to make a source .frm for vb6 so i can see whats the right thing
Process : Wolfteam.bin
Address : 342C9E8C
Value : 6004
Type : 4 Byte
Can you make a trainer in vb6 with this information ^
So if you press the button this value will change into 6004
Can you publish the source so that many people can learn from it
I thank you verry much
plz i need your help 
|
|
| Back to top |
|
|
Labyrnth
Moderator
![]() Reputation: 10
Joined: 28 Nov 2006
Posts: 6301
|
| Posted: Mon Nov 19, 2007 7:24 pm Post subject: |
|
|
Dude, that code is how you use that release of the source he has.
You can use a old module and do it as well.
Button Code: *Where ?? is you have to add the bytes you write to make your values you want on the address's
| Code: | Private Sub Command1_Click()
Call LAB(&H342C9E8C, &H??)
Call LAB(&H342C9E8D, &H??)
End Sub |
Module:*Jackson Module
| Code: | 'Add the below to a module.
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
'Make your Function below Example "LAB"
Public Function LAB(address As Long, value As Long)
Dim handle As Long, processID As Long, ProcessHandle As Long, gamewindowtext As String, bytes As Byte
handle = FindWindow(vbNullString, "GAME GOES HERE") 'Here is your games window name MUST BE CORRECT NAME
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
WriteProcessMemory ProcessHandle, address, value, 1, 0
CloseHandle ProcessHandle
End Function |
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
| Posted: Mon Nov 19, 2007 9:13 pm Post subject: |
|
|
My assumption is you just pasted my code above and didn't even look at the errors. You got them because (what my guess is) you are missing the class and module files from the trainer toolkit I gave you the link to above. You need to help yourself before others help you.
Anyway, heres your 'freebee' from me.
_________________
- Retired. |
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Tue Nov 20, 2007 7:44 am Post subject: |
|
|
Thnx now i know how it works
But if i try the hack i get this runtime error hmmz :S
But thanks for the source now i know what you mean
but still got this problem :S : /
| Description: |
|
| Filesize: |
55.21 KB |
| Viewed: |
15768 Time(s) |
|
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
| Posted: Tue Nov 20, 2007 11:38 am Post subject: |
|
|
Eh, that was my fault. Change:
| Code: | Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write |
To:
| Code: | Dim Proc As New clsProcess_Access
Dim Poke As New clsMemory_Write |
_________________
- Retired. |
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Tue Nov 20, 2007 4:04 pm Post subject: |
|
|
yup your right the error is gone thanks 
but the value will not change in the game nothing happens : /
the value will not change to 6004
i think the value will not freeze ( thats why nothing happent )
how can you make the value freeze
in the game there is a weapon slot :
342C9E8C ( weapon slot )
The Value is :
3001 ( Basic weapon )
That must change in :
6004 ( 1 Hit sniper ,AWP ) and freeze
With Cheat engine it works but with this script nothing happent
I think the Value will not freeze
You got a salution to solve this problem
it must freeze
|
|
| Back to top |
|
|
jonas2750
Newbie cheater
 Reputation: 0
Joined: 20 Nov 2007
Posts: 14
|
| Posted: Wed Nov 21, 2007 9:18 am Post subject: |
|
|
Wow that Really helped well it did help a bit
but i still got alot to lern hehe 
_________________
Newbie Haxor
 |
|
| Back to top |
|
|
redhead
Cheater
![]() Reputation: 0
Joined: 21 Mar 2007
Posts: 47
|
| Posted: Wed Nov 21, 2007 10:25 am Post subject: |
|
|
You can try to make a loop, I'm not sure if this will work, but you should give it a try.
For example: (this ist just a pseudo code, I rly don't know much about vb)
You make 2 Buttons, one for starting the loop and one to end.
Maybe the code in Button1 will look like this:
| Code: |
Private Sub Command1_Click()
Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("Wolfteam.bin")
while (Button2 != pressed)
{
Poke.WriteLong dwProcId, &H342C9E8C, 6004
}
End Sub
|
(my ccode ofc will not work, it's just an example on how the code could look like)
(Maybe you should add a bit sleeptime in the loop (1ms or smth), so you don't get 100%cpu ...)
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
|
| Back to top |
|
|
samuri25404
Grandmaster Cheater
 Reputation: 7
Joined: 04 May 2007
Posts: 955
Location: Why do you care?
|
| Posted: Wed Nov 21, 2007 4:43 pm Post subject: |
|
|
| Are you "poke"ing the right process?
|
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Thu Nov 29, 2007 10:31 am Post subject: |
|
|
yeah i do
Wolfteam.bin
But how do i use the timer
I pu a timer on the form and then what
im a nooby with vb6 but because of all your help i knwo alot more
what must i do with the timer ???
plz help for the last time
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
