VB Trainer Source/T-Search Offsets

[Labyrnth]

This is for a game called Leap Frog. You can find the trainer on Mega Games.
Leap Frog Version. 1.4.1.34
Small simple little game and very good for beginners to learn to hack.
Share your work with the willing.

Created in Visual Basic.
Tools used:
T-Search
Hex WorkShop "To find the level passwords"
MSVS 6


T-Search finds
Leap Frog Version. 1.4.1.34

===================================
Infinate Lives:2 bYTE sEARCH

Patched script:
Poke 4283EA 90 90 90 90 90 90
UnPatched script:
Poke 4283EA 89 83 E2 03 00 00
===================================
Takes 10 coins to bonus. 2 byte search
Use Write to address

Bonus Level

Poke 41D296 0A = Adds 10 coins
===================================
World Passwords:

2.dorkt
3.parrx
4.girkt
5.darzz
5.kuilt
===================================
* This was not used on the trainer becaue if you fly of screen your game is frozen *
* You can more or less fly using this *
* Super Jump:

429F9E 2906 sub [esi],eax
429F84 8906 mov [esi],eax

Patched script:
Poke 429F9E 90 90
UnPatched script:
Poke 429F9E 29 06

Patched script:
Poke 429F84 90 90
UnPatched script:
Poke 429F84 89 06


============================================
Form Source Code:
Private Sub Command1_Click()
Call LAB(&H4283EA, &H90)
Call LAB(&H4283EB, &H90)
Call LAB(&H4283EC, &H90)
Call LAB(&H4283ED, &H90)
Call LAB(&H4283EE, &H90)
Call LAB(&H4283EF, &H90)
End Sub

Private Sub Command2_Click()
Call LAB(&H4283EA, &H89)
Call LAB(&H4283EB, &H83)
Call LAB(&H4283EC, &HE2)
Call LAB(&H4283ED, &H3)
Call LAB(&H4283EE, &H0)
Call LAB(&H4283EF, &H0)
End Sub

Private Sub Command3_Click()
Call LAB(&H41D296, &HA)
End Sub

Private Sub Label2_Click()
Form2.Show
End Sub

Private Sub Timer1_Timer()
'Add this to a timer, which is enabled and has an interval of 200.
If Hotkey(70) Then Command1_Click
If Hotkey(85) Then Command2_Click
If Hotkey(66) Then Command3_Click
End Sub


===============================================

Jacskon Module Source:

'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, "Leap Frog") '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

[Dr. F.G. Hobo]

......so ?

[Labyrnth]

^ useless post .


If you use the tools and try to hack this game.
You can find the same offsets and learn how to search for them.
Then turn around and use VB to write the trainer.

Basic information for someone to look,read, and figure what to do with the source i have posted.

There are plenty of people who want to get their eyes on things like this, so they may understand the steps of how it was done.

If yo have no interest in it, why try and be funny, just to get a post count.

[Dr. F.G. Hobo]

I didn't tried to be funny, but just that I don't understand this, and I want to know what it's used for ;)

[Labyrnth]

Ok then im sorry for what i said.


You need to learn to use T-Search to scan for memory offsets in games.
If you use Leap Frog then you can compare an see if you are scanning correctly by looking at the offsets of mine.

Then you can use Visual Basic to code your trainer using the source code released.

If you know nohing of Visual Basic thats the next step.

[Dr. F.G. Hobo]

well I'm a noob at programming :(
btw, appologies accepted ;)