Cheat Engine 6.3: Pointer in VB.net

[xXGesuchterXx]

Hallo liebe Community,

ich habe schon seit langem das Problem einen Pointer aus Cheat Engine 6.3 mit 2 Offsets in Visual Basic einzubringen.

Bis jetzt habe ich folgenden Code:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String = TextBox1.Text

        Try

            WriteDMAInteger("PlantsVsZombies.exe", &H17B9F0, Offsets:={&H4, &H70}, Value:=TextBox1.Text, Level:=1, nsize:=4)

        Catch ex As Exception

        End Try
    End Sub
End Class

Die Form sieht so aus:



Ich benutze: ReadWritingMemory.vb

Und so sieht der Pointer aus:



Es funktioniert nicht

Bitte helft mir

[Nanoxx™]

PHP Code:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String = TextBox1.Text

        Try

            WriteDMAInteger("PlantsVsZombies.exe", &H17B9F0, Offsets:={&H4, &H70}, Value:=TextBox1.Text, Level:=1, nsize:=4)

        Catch ex As Exception
MsgBox(ex.ToString)
        End Try
    End Sub
End Class 


Oder Video;:

[xXGesuchterXx]

Geht leider nicht

Der wert im Spiel ändert sich nicht.

[berkay2578]

//half pseudo-code
Private proc As Process = Process.GetProcessesByName(ProcessName)(0)
Private hProcess as IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, proc.Id)

Private Function ReadInteger(ByVal Address As Integer) As Integer
	Dim vBuffer As Integer
	ReadProcessMemory(hProcess, Address, vBuffer, 4, 0) //declared with modified parameters, lpBaseAddress as Integer, lpBuffer as Integer
	Return vBuffer
End Function

Private Sub WriteInteger(ByVal Address As Integer, ByVal Value as Integer)
	WriteProcessMemory(hProcess, Address, Value, 4, 0) //declared with modified parameters, lpBaseAddress as Integer, lpBuffer as Integer
End Function

Private myPointerBase = ReadInteger(myAddress)
Private myPointerWithOffset1 = myPointerBase + myPointerOffset1
Private myPointerWithOffset2 = ReadInteger(myPointerWithOffset1) + myPointerOffset2
// ... so on and so forth
Private myFinalAddress = myPointerWithFinalOffset
WriteInteger(myPointerWithFinalOffset, myValue)

You probably don't need that "DMAInteger". What I wrote, by no means, a final code. It's just an example showing how to manage pointers in vb.net. That should be more than enough if you do just a little bit research on them.

[xXGesuchterXx]

Sry doesnt work on my VB.net 2013

[tolio]

Originally Posted by xXGesuchterXx

Sry doesnt work on my VB.net 2013

yes because:

Originally Posted by berkay2578

/half pseudo-code

you have to get it right by yourself; if you want a complete working solution, go to the blackmarket and pay for it

[Guiso90]

Wofür brauchst du den hack is das für Lernzwecke ? wenn nicht habe schon einmal ein Hack für das Spiel veröffentlicht~

Dazu is der Pointer wahrscheinlich falsch ?