Public Class Form1
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess _
      As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As _
      Integer) As Integer
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias _
    "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As _
    Integer, ByRef lpBuffer() As Byte, ByVal nSize As Integer, ByRef _
    lpNumberOfBytesWritten As Integer) As Integer
 
 
 
    Private Sub tmrLeser_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrLeser.Tick
        tmrLeser.Enabled = False
        Dim Client() As Process = Process.GetProcessesByName(tbProzess.Text)
 
        If Client.Length = 0 Then
            MsgBox("Prozess nicht gefunden")
            Exit Sub
        End If
 
        Dim Buffer(256) As Byte
        Dim Handle As IntPtr = OpenProcess(&H1F0FFF, False, Client(0).Id)
        Dim Länge As Integer = 0
 
        ReadProcessMemory(Handle, &H47737080, Buffer, 0, Länge)
        Dim Test As String = System.Text.Encoding.Default.GetString(Buffer)
        Label1.Text = Test
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        tmrLeser.Enabled = True
    End Sub
End Class