[TuT] How to write a pointer in vb6

[TuT] How to write a pointer and a float in vb6

ok so you have your pointer and offset,now what keep using uce to hack or make a trainer?well if you already know how to make a trainer with theredeyes tut.but now we want to add superjump or swim.or w/e has a pointer.

things you need in vb6
how to add a timer(interval of 1)
how to add a textbox
theredeyes module,with my addon

ok so heres my superjump code for example

'we have to Dim our stuff,first

Code:

Dim jump As Long
Dim jump1 As Long 
Dim jump3 As Single

'Ingame Hotkey Numpad 1 Obviously

Code:

If GetKeyPress(VbKeyNumPad1) Then

' Read a value from memory -the value being read is a pointer

Code:

Call ReadALong("WarRock", &H896E28, jump)

' Add (&H180) to the pointer,so now jump1 would be are pointer with are offset

Code:

jump1 = jump + &H180

' Assign the value to be written,well use 2000 for how high we want togo,

Code:

jump3 = 2000

'and instead of 2000 u can put in a textbox, now any number you put in your textbox is how high you want to go

Code:

jump3 = text1

'heres were we writeafloat,notice weve already assigend jump1 and jump3

Code:

Call WriteAFloat("WarRock", jump1, jump3) 
End if
end sub

so heres the code alltogether

Code:

Dim jump As Long
Dim jump1 As Long 
Dim jump3 As Single 

 
If GetKeyPress(VbKeyNumPad1) Then 
Call ReadALong("WarRock", &H896E28, jump) 
jump1 = jump + &H180
jump3 = 2000 'or text1 for a textbox
Call WriteAFloat("WarRock", jump1, jump3) 
End if
End Sub

this is how i do a pointer,and a float
swim is not a float so you dont need to callwriteafloat

Code:

Dim swim as long
Dim swim1 as long
Dim swim3 as Single
If GetKeyPress(VbKeyNumPad8)Then
Call ReadALong("WarRock",&H896E28,swim)
swim1 = swim + &H54   'adds the offset
swim3 = 4                   'is the value we want
Call WriteALong("WarRock",swim1,swim3)
End If
End Sub

heres the red eyes module with my addon