How to make game trainer in VB
I hope you like it




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim money As String = TextBox1.Text
Try
WriteInteger("gta_sa", &HB7CE50, money)
Catch ex As Exception
End Try
End Sub
Dim money As Int32 = Convert.ToInt32(TextBox1.Text) '' <------- x x x
Try
WriteInteger("gta_sa", &HB7CE50, money)
Catch ex As Exception
End Try
End Sub



Public Function GetPointer(ByVal Offsets As Integer()) As Integer
Dim BaseAddress As Integer = GetBaseAddress(tProcess)
BaseAddress = BaseAddress + Offsets(0)
If Offsets.Length > 1 Then
Dim RealAddress As Integer = ReadMemory(Of Integer)(BaseAddress)
RealAddress = RealAddress + Offsets(1)
Dim i As Integer = Offsets.GetUpperBound(0)
For index As Integer = 2 To Offsets.GetUpperBound(0)
RealAddress = ReadMemory(Of Integer)(RealAddress) + Offsets(index)
Next
Return RealAddress
Else
Return BaseAddress
End If
End Function