| View previous topic :: View next topic |
| Author |
Message |
king222
How do I cheat?
![]() Reputation: 0
Joined: 12 Dec 2007
Posts: 2
|
 Posted: Wed Sep 10, 2008 11:53 am Post subject: How can i make a trainer in vb6? |
 |
|
How to make a trainer in vb6?
game examples:Deer hunter 2005 online,Gta san andreas etc...
|
|
| Back to top |
|
 |
NothingToShow
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 11 Jul 2007
Posts: 1579
|
| Posted: Wed Sep 10, 2008 12:18 pm Post subject: |
|
|
| Lookup WriteProcessMemory().
|
|
| Back to top |
|
|
goldengold
Grandmaster Cheater Supreme
![]() Reputation: -1
Joined: 11 Nov 2006
Posts: 1841
Location: -.-
|
| Posted: Wed Sep 10, 2008 2:40 pm Post subject: |
|
|
| By actually trying to learn VB.
|
|
| Back to top |
|
|
king222
How do I cheat?
![]() Reputation: 0
Joined: 12 Dec 2007
Posts: 2
|
| Posted: Thu Sep 11, 2008 12:39 am Post subject: |
|
|
| I know some vb6 but the thing i dont know how to make a trainer,how to write process memory,how to attach the process to game and how to make the module.
|
|
| Back to top |
|
|
pkedpker
Master Cheater
![]() Reputation: 1
Joined: 11 Oct 2006
Posts: 412
|
| Posted: Thu Sep 11, 2008 1:58 am Post subject: |
|
|
api
| Code: |
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
|
Button code
| Code: |
Dim value As Integer
value = 999
dim addressToChange as long
addressToChange = &H11223344 'Same as 11223344
Dim whandle As Long
Dim pid As Long
Dim phandle As Long
whandle = FindWindow(vbNullString, "GameTitleGoesHere")
GetWindowThreadProcessId whandle, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
if(pid = 0) then
msgbox "Couldnt find the game to hack"
exit sub
end if
'the 2 below means size of value 2 means WORD DWORD is 4
WriteProcessMemory phandle, addressToChange, value, 2, 0&
CloseHandle (phandle)
|
_________________
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
