Salut!
Deci am functia asta:
Private Function ReadMemoryInt(ByVal baseAddress As Integer, ByVal size As Integer) As Integer
Try
Dim vBuffer As Integer = Nothing
ReadProcessMemory(HandleReturn(True), CType(baseAddress, IntPtr), vBuffer, CType(size, IntPtr), Nothing)
Return vBuffer
Catch ex As Exception
Return 0
End Try
End Function
si butonul asta:
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Dim full As Integer = 100
Dim CPed As Integer = ReadMemoryInt(&HB6F5F0, 4)
WriteFloat("gta_sa", (CPed + &H540), full)
End Sub
Problema e ca mereu din CPed + &H540 imi rezulta 01344, 0 fiind CPed si 1344 fiind &H540. Si nu stiu cu ce am gresit la CPed..