How to make hacks with VB6!

[ltkort213]

What do you need:

A brain

VB-6

Download VB-6: https://www.fapiko.com/raiden/Programs/visualbasic6.zip

this is the CD-key: 027-5725592

More Brains

Working Adressses

After you installed vb-6:

Part One
Open VB, choose standard EXE and press "open".
On the Forms window press right click and choose "Add" -> "Module" then press "Open".
Now copy code into the module window:


Code:
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public 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
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End FunctionPart Two (how to make stamina)

Now take the control "CommandButton" from the General tab.
Make a button in the middle of the form it will called Command1.
Make a other one it will called Command2.
And make a timer.

Double click on Command1 and write this code:

Code:
Timer1.Interval = 1Double click on Command2 and write this code:

Code:
Timer1.Interval = 0Now double click on Timer1 and write this code:

Code:
Call WriteALong("WarRock", &H7DB120, 1120403456)The red numbers are the adresses and the value.

So all of it will look like this:


Code:
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End SubNow you can run the software with the "Start" button that look like "Play" that placed above. You will see your form with "Command1" button and the "Command2"button when you will press on the "Command1"button, Stamina will be active until you press the "Command2" button then stamina will be deactivated. (Try it with noob account)

Part Three, Make a shotty hack

This is easier you only need to make one command button. It will be called "Command3".
Now double click on "Command3" and typ this code:


Code:
Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End SubThe yellow numbers is the weapon value.
here are other weapon values:

Code:
1. Fist
2. Colt
3. Eagle
4. MP5K
5. Magnum
6. Glock
7. Dual Berettas
8. AK 47
9. K2
10. M4A1
11. Famas
12. L85A1 Sniper Rifle
13. XM8
14. Type 89
15. g36C
16. g36c Drummed
17. g36
18. g36 drummed
19. MP5
20. P90
21. Uzi
22. Mac 10
23. K1
24. MP7A1 (similar to Mac 10/Uzi)
25. PSG-1
26. Barrett M82
27. AUG
28. SSG
29. M24
30. Dragunov SVD
31. AI AW
32. M60
33. M249
34. Winchester Shotgun+
35. Panzer
36. M136AT (Glitched!)
37. RPG
38. Javelin (Glitched!)
39. Stinger
40. SG (Glitched HARD BODY)
41. TMA-1A Mine
42. HA_Supply (Mine)
43. K400_Grenade
44. K400
45. Smoke Grenade
46. Flash Bang 1
47. Flash Bang 2
48. Claymore Mine
49. Claymore Switch
50. Empty
51. C4
52. Med Kit
53. Med Kit 2
54. Med Kit 3
55. Spanner
56. Pipe Wrench
57. Adrenaline
58. Parachute
59. Detector (looks like binoculars)
60. Telescope (different pair of binoculars)
61. Flash Mine
62. MG3 Machine Gun
63. M134 Minigun
64. MK1S Grenade Launcher
65. LMAO Ammo Box
66. M14 Mine
67. Tear Gas (Glitched!)
68. LMAO Medic Box too
69. K203 (Glitched)
70. Telescope (same as b4)
71. Silencer (Glitched)
72. Nippers.

Now press start, when you are in the warrock game press the "command3" button and you get a shotgun.


Made By LTKort213


And a lot, lot help of my good buddy:

The Red Eye


And with help of:

Trixiez
Stranger00

[ziom2322]

There is already posted this tut.. lol.

[happyboy]

you know how dmn hard this is? ok I finaly did it, but it took a long time

[dezer]

1st. there's already tut on it
2nd. that tut is soooo messy at least put the code parts as code lol.

[smartie]

Correct,

A tut has to be complained step by step, but I appreciate "your" work.

[mains3rv3r]

Wow, what's with people stealing tuts?

[White Mask]

ty for the free cd key,
i try out all this

[White Mask]

I get this weird error saying dao350.dll was not found...
can someone post that file on here ty

[yoni1993]

Extract the installation file to anywhere, go into the extracted folder -> OS -> System, then copy dao350.dll into C:\Windows\System32.

Now you can run Visual Basic 6 !

[NetNavi]

man u guys are pretty ungrateful

he had the time to copy and paste from the old tut

and post it into this

do you know how long this takes? (5 minutes)

lol nooooo jk

but good job

its very helpful to those who dont know vb6


EDIT: I get this weird thing saying there's not enough memory...

but my harddrive fits 350 gigs...

[ZeaS]

i get a problem with the installation, i become 1000 of errors coudn`t open the file... all the time ALL THE FUCK TIME

[blackdrag0]

man u guys are pretty ungrateful

he had the time to copy and paste from the old tut

and post it into this

do you know how long this takes? (5 minutes)

lol nooooo jk

but good job

its very helpful to those who dont know vb6


EDIT: I get this weird thing saying there's not enough memory...

but my harddrive fits 350 gigs...

yeah, but that means your RAM isn't enough, just close all other applications and tray apps, then it should work.,....

greets

[ZeaS]

ok, i know my problem i want to install microsoft visual c++ and and, too, but his doesn`t work only microsoft basic works for me ^^

[GDesignz]

Ok, i pasted everything in my module.
I made a button with stamina on and stamina off and a button with shotgun
i entered the data for them. It wont work :S Nothing happens when i am ingame

Form code:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Module code:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public 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
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If
    
    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    ReadProcessMem phandle, address, valbuffer, 4, 0&
    CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If

    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    WriteProcessMemory phandle, address, value, 4, 0&
    CloseHandle hProcess
End Function

and this is my trainer:

what am i doin wrong?

[Robinnator]

Ok, i pasted everything in my module.
I made a button with stamina on and stamina off and a button with shotgun
i entered the data for them. It wont work :S Nothing happens when i am ingame

Form code:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Module code:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public 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
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If
    
    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    ReadProcessMem phandle, address, valbuffer, 4, 0&
    CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If

    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    WriteProcessMemory phandle, address, value, 4, 0&
    CloseHandle hProcess
End Function

and this is my trainer:

what am i doin wrong?

Er zijn nieuwe adressen >_>
THere are new adresses>_>