Pointer Schreiben?

[DNA]

Hier ist eine Pointer-Schreib-Funktion

[code=VB] Public Sub Write_Pointer(ByVal WhatToWrite As Int32, ByVal address As Int32, ByVal Offset1 As Int32, Optional ByVal Offset2 As Int32 = Nothing, Optional ByVal Offset3 As Int32 = Nothing, Optional ByVal Offset4 As Int32 = Nothing, Optional ByVal Offset5 As Int32 = Nothing)

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

If Not Offset2 = Nothing Then
Dim address2 As Int32 = Read_4Byte(address1 + Offset2)
If Not Offset3 = Nothing Then
Dim address3 As Int32 = Read_4Byte(address2 + Offset3)
If Not Offset4 = Nothing Then
Dim address4 As Int32 = Read_4Byte(address3 + Offset4)
If Not Offset5 = Nothing Then
Write_4Byte(address4 + Offset5, WhatToWrite)
Else
Write_4Byte(address3 + Offset4, WhatToWrite)
End If
Else
Write_4Byte(address2 + Offset3, WhatToWrite)
End If
Else
Write_4Byte(address1 + Offset2, WhatToWrite)
End If
Else
Write_4Byte(address + Offset1, WhatToWrite)
End If

End Sub[/code]
Obiges einfach in das Trainermodul einfügen und folgendermaßen vom Programmcode aus aufrufen

[code=VB]Write_Pointer(999, &H1e7604c, &H224, &H4b0, &H5c, &H0, &H1d8)[/code]