Public Function get_InternInfo(ByVal cmd As Long, Optional ByVal val As Long = _
  0) As String
 
   On Error GoTo ErrHandler
                              ' hWndPLAYER ist ein globales Fensterhandle zum 
                              ' WinampPlayer
      Dim PID As Long         ' Used to hold the Process Id
      Dim pHandle As Long     ' Holds the Process Handle
      Dim bytValue As Long    ' Stores the value of a byte in the memory
      Dim i As Long
      Dim Address As Long     ' Hält den Pointer auf den Speicherbereich dessen 
      ' String abgefragt werden soll
      Dim Bytes As Long       ' Hält die Länge des zu lesenden Bereichs
 
 
      ' Get the ProcId of the Window
      GetWindowThreadProcessId hWndPLAYER, PID
 
      ' use the PID to get a handle
      pHandle = OpenProcess(PROCESS_VM_READ, False, PID)
      If (pHandle = 0) Then
         Exit Function
      End If
 
      ' Get a pointer into Winamps MemoryMap
      ' Ergebnis von Sendmessage wird als StringPointer in Address gespeichert
      Address = StrPtr(SendMessage(hWndPLAYER, WM_WA_IPC, val, cmd))
      If Address = 0 Then
         CloseHandle pHandle
         Exit Function
      End If
 
      ' Zu Testzwecken habe ich hier mal 2 Möglichkeiten aufgenommen
      Dim AllAPI As Boolean
      AllAPI = False
      If AllAPI Then
 
         ' Versuch 1
         ' Beispiel von AllAPI
         ' Länge des zu lesenden Bereichs bestimmen! (Aber wie ???)
         Bytes = LenB(Address)
 
         For i = 1 To Bytes Step 2
            ' Read Byte to Byte
            ReadProcessMemory pHandle, Address + i - 1, bytValue, 1, 0&
            'value now contains the long value of the byte located in [Address 
            ' + i - 1] pos.
            'ReadMemory is a string...
            get_InternInfo = get_InternInfo & Chr$(bytValue)
         Next
 
      Else
 
         ' Versuch 2
         ' Versuch das Beispiel aus dem Winamp-Forum für VB6 zu nutzen
         Dim dwRead As Long
         Dim ByteArray(0 To 2048)  As Byte
 
         If (ReadProcessMemory(pHandle, Address, ByteArray, LenB(ByteArray), _
           dwRead) = 0) Then
            CloseHandle pHandle
            Exit Function
         End If
 
         ' null-terminate the buffer, to be on the safe side
         ByteArray(dwRead - 1) = CByte(0)
 
         For i = LBound(ByteArray) To UBound(ByteArray)
            get_InternInfo = get_InternInfo & Chr$(ByteArray(i))
         Next
 
      End If
 
      'Close the Handle
      CloseHandle pHandle
 
 
Escape:
   Exit Function
ErrHandler:
   Call ErrMsg(Err, E_Output, E_Output)
   Resume Escape
End Function