[Diskussionsthread] TrainerModul v2.0

[Xiantrius]

(21.04.2013, 18:46)DNA schrieb: Du müsstest dir nur mal die Funktion zum schreiben/lesen der Pointer
anschauen, dann hättest du von alleine drauf kommen können.

Ich habe die Funktionen damals schnell zusammen geschustert aber
seitdem nichts mehr dran gemacht, da ich nie Pointer benutze.

Nun zum Fehler, der in der Funktion zu finden ist:
Wird bei der Funktion eine 0 übergeben, dann wird gestoppt
und es wird nicht mehr weiter ausgelesen.
Du kannst nun entweder die Funktion ändern, oder du liest den
Pointer manuell (ohne Funktion) aus.

Danke für den Hinweis, habe das problem gleich gefunden und die 0 mit -1 ersetzt also so [code=VB]If Not Offset2 <= -1 then 'usw... [/code] genommen, nun liest er korrekt den Wert aus und schreibt sie auch an der stelle wo ich es will.

Ich zeige es mal genauer:

[code=VB]
'Pointer Lesefunktion
Public Function Read_4_Bytes_Pointer _
(ByVal address As Int32, _
ByVal Offset1 As Int32, Optional _
ByVal Offset2 As Int32 = 0, Optional _
ByVal Offset3 As Int32 = 0, Optional _
ByVal Offset4 As Int32 = 0, Optional _
ByVal Offset5 As Int32 = 0)

address = Read_4_Bytes(address)
address = Read_4_Bytes(address + Offset1)

If Not Offset2 <= -1 Then
address = Read_4_Bytes(address + Offset2)
If Not Offset3 <= -1 Then
address = Read_4_Bytes(address + Offset3)
If Not Offset4 <= -1 Then
address = Read_4_Bytes(address + Offset4)
If Not Offset5 <= -1 Then
address = Read_4_Bytes(address + Offset5)
End If
End If
End If
End If
Return address
End Function

'Pointer Schreibfunktion
Public Sub Write_4_Bytes_Pointer(ByVal WhatToWrite As Int32, _
ByVal address As Int32, _
ByVal Offset1 As Int32, Optional _
ByVal Offset2 As Int32 = 0, Optional _
ByVal Offset3 As Int32 = 0, Optional _
ByVal Offset4 As Int32 = 0, Optional _
ByVal Offset5 As Int32 = 0)

address = Read_4_Bytes(address)
Dim address1 As Int32 = Read_4_Bytes(address + Offset1)

If Not Offset2 <= -1 Then
Dim address2 As Int32 = Read_4_Bytes(address1 + Offset2)
If Not Offset3 <= -1 Then
Dim address3 As Int32 = Read_4_Bytes(address2 + Offset3)
If Not Offset4 <= -1 Then
Dim address4 As Int32 = Read_4_Bytes(address3 + Offset4)
If Not Offset5 <= -1 Then
Write_4_Bytes(address4 + Offset5, WhatToWrite)
Else
Write_4_Bytes(address3 + Offset4, WhatToWrite)
End If
Else
Write_4_Bytes(address2 + Offset3, WhatToWrite)
End If
Else
Write_4_Bytes(address1 + Offset2, WhatToWrite)
End If
Else
Write_4_Bytes(address + Offset1, WhatToWrite)
End If
End Sub
[/code]