Kleine Hilfe in VB Memory Editing Pointer

[EqoTime]

Ich brauche eine kleine hilfe in vb wer sich mit memory editing auskennt kann mich mal adden in skype: allbossfucka

ReadInteger and Write Integer problem. Ich werde es genauer in skype erklären.

Danke nochmals im Vorraus


Muss die baseadresse und den pointer addieren in vb aber weis nicht wie ich das machen soll

SCREEN:

[EqoTime]

Was ist das für eine kommunity keiner hilft -.-

[snow]

Du postest hier, dass du ein Problem hast, ohne genauere Beschreibung, und erwartest, dass Horden von VB.net Entwicklern jahrelang darauf gewartet haben, dass du deine Skype-Adresse hier postest?

Wie wäre es mit deinem Source-Code und deiner Beschreibung?

Wenn du die Base + den Pointer addieren musst: Speicher die Base als Variable, den Pointer als Variable und addiere die beiden Variablen -> tada, Adresse!

[EqoTime]

€dit = screen hinzugefügt

[EqoTime]

Brauche immernoch hilfe?

[nkkk]

poste mal den code der "ReadInteger" funktion wenn wir nicht genau wisen was die macht können wir dir nicht helfen.

[dasschild]

Ja zeig den code und normal macht man sowas nicht mit vb or C# oder irgendeiner anderen .net sprache,da jeder Typ eine Klasse ist und du so gezwungen bist andere Typen zu verwenden.

[EqoTime]

Hier erstmal

WriteInteger :

 Spoiler

    Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " isn't open!")
            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Failed to open " & ProcessName & "!")
            Exit Sub
        End If

        Dim hAddress, vBuffer As Integer
        hAddress = Address
        vBuffer = Value
        WriteProcessMemory1(hProcess, hAddress, CInt(vBuffer), nsize, 0)
    End Sub

ReadInteger :

 Spoiler

Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " isn't open!")
            Exit Function
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Failed to open " & ProcessName & "!")
            Exit Function
        End If

        Dim hAddress, vBuffer As Integer
        hAddress = Address
        ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
        Return vBuffer
    End Function

mein code:

 Spoiler

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim wert As String = TextBox1.Text
        Try
            Dim Pointer As Integer = &H97074
            ReadInteger("solitaire", Pointer)
            If Pointer = 0 Then Exit Sub
            ReadInteger("solitaire", Pointer + &H2C)
            If Pointer = 0 Then Exit Sub
            WriteInteger("solitaire", Pointer + &H10, wert)

        Catch ex As Exception
        End Try

    End Sub
End Class

Meine Form1 :

 Spoiler

[Mafia67]

für addition & statt +

[dasschild]

Originally Posted by karaenes1

Hier erstmal

WriteInteger :

 Spoiler

    Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " isn't open!")
            Exit Sub
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Failed to open " & ProcessName & "!")
            Exit Sub
        End If

        Dim hAddress, vBuffer As Integer
        hAddress = Address
        vBuffer = Value
        WriteProcessMemory1(hProcess, hAddress, CInt(vBuffer), nsize, 0)
    End Sub

ReadInteger :

 Spoiler

Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
        If MyP.Length = 0 Then
            MessageBox.Show(ProcessName & " isn't open!")
            Exit Function
        End If
        Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
        If hProcess = IntPtr.Zero Then
            MessageBox.Show("Failed to open " & ProcessName & "!")
            Exit Function
        End If

        Dim hAddress, vBuffer As Integer
        hAddress = Address
        ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
        Return vBuffer
    End Function

mein code:

 Spoiler

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim wert As String = TextBox1.Text
        Try
            Dim Pointer As Integer = &H97074
            ReadInteger("solitaire", Pointer)
            If Pointer = 0 Then Exit Sub
            ReadInteger("solitaire", Pointer + &H2C)
            If Pointer = 0 Then Exit Sub
            WriteInteger("solitaire", Pointer + &H10, wert)

        Catch ex As Exception
        End Try

    End Sub
End Class

Meine Form1 :

 Spoiler

Die Variable Pointer wird nicht verändern du musst die Variablen auch dem return von ReadInt zuweisen.

[EqoTime]

Originally Posted by Mafia67

für addition & statt +

also Pointer & &h2c usw meinst du die?

Originally Posted by dasschild

Die Variable Pointer wird nicht verändern du musst die Variablen auch dem return von ReadInt zuweisen.

und wie wäre das möglich?