Pointer Schreiben?

[chesar]

Meine Funktion sieht jetzt so aus:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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_Long(address) Dim address1 As Int32 = Read_Long(address + Offset1) If Not Offset2 = Nothing Then Dim address2 As Int32 = Read_Long(address1 + Offset2) If Not Offset3 = Nothing Then Dim address3 As Int32 = Read_Long(address2 + Offset3) If Not Offset4 = Nothing Then Dim address4 As Int32 = Read_Long(address3 + Offset4) If Not Offset5 = Nothing Then Write_Long(address4 + Offset5, WhatToWrite) Else Write_Long(address3 + Offset4, WhatToWrite) End If Else Write_Long(address2 + Offset3, WhatToWrite) End If Else Write_Long(address1 + Offset2, WhatToWrite) End If Else Write_Long(address + Offset1, WhatToWrite) End If End Sub

---

und so schreibe ich es:

Code:

GetProcessId(ProcName) Write_Pointer(23, &H1E7604C, &H224, &H4B0, &H5C, &H0, &H1D8)

---

Leider ohne Erfolg, hast du eine Idee warum?