'1. Adresse:  &H2F7E684 = Servername
'2. Adresse:  &H122A220 = Gibt beim laufenden Spiel 1und bei Spielende 0 zurück
 
 
Const hMemAddr = &H2F7E684  'Speicheradressen (siehe oben)
Const sProcessID = "Fenstertitel meines Games" 'das sagt eigentlich schon alles 
' ;)
 
Private Sub Form_Load()
 
   Dim hwnd As Long
   Dim pid As Long
   Dim pHandle As Long
 
 
   hwnd = FindWindow(vbNullString, sProcessID)
   If (hwnd = 0) Then
      MsgBox "Window not found!"
      Exit Sub
   End If
 
 
   GetWindowThreadProcessId hwnd, pid
 
   pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
   If (pHandle = 0) Then
      MsgBox "Couldn't get a process handle!"
      Exit Sub
   End If
   Timer1.Enabled = True
 
End Sub
 
 
Private Sub Timer1_Timer()
 
   ' Declare some variables we need
   Dim hwnd As Long
   Dim pid As Long
   Dim pHandle As Long
   Dim sOutput As String * 20 ' Logisch, definiert sOutput als String
 
   hwnd = FindWindow(vbNullString, sProcessID)
   If (hwnd = 0) Then Exit Sub
 
   GetWindowThreadProcessId hwnd, pid
 
 
   pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
   If (pHandle = 0) Then Exit Sub
 
   Call ReadProcessMemory(pHandle, hMemAddr, sOutput, 20, 0)
 
   Text1.Text = sOutput
 
   CloseHandle hProcess
End Sub

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
 
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName _
  As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _
lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, _
lpNumberOfBytesWritten As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, _
lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long