Visual Basic

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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        MsgBox(Me.GetPlaylistFile(0))<br />
    End Sub<br />
<br />
    Dim WinampWindow As Integer<br />
    Private Const PROCESS_VM_READ As Long = &H10<br />
    Public Const IPC_GETPLAYLISTFILE = 211<br />
<br />
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer<br />
<br />
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer<br />
<br />
    Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer<br />
<br />
    Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer<br />
<br />
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long<br />
<br />
    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<br />
<br />
    Public Function FindWinamp() As Boolean<br />
        WinampWindow = FindWindow("Winamp v1.x", vbNullString)<br />
        If WinampWindow <> 0 Then<br />
            Return True<br />
        End If<br />
        Return False<br />
    End Function<br />
<br />
<br />
    Public Function GetPlaylistFile(ByVal TrackNo As Integer) As String<br />
        Dim strFileName As String<br />
        Dim lp As Integer<br />
        Dim lpWinamp As Integer<br />
        Dim PID As Integer<br />
        Dim Buffer(260) As Object<br />
        Dim Temp As String<br />
        Dim dwRead As Long<br />
<br />
        FindWinamp()<br />
<br />
        lp = SendMessage(WinampWindow, &H400, TrackNo, IPC_GETPLAYLISTFILE)<br />
        If lp = 0 Then<br />
            Return ""<br />
            Exit Function<br />
        End If<br />
        GetWindowThreadProcessId(WinampWindow, PID)<br />
        lpWinamp = OpenProcess(PROCESS_VM_READ, 0, PID)<br />
        If lpWinamp = 0 Then<br />
            Return ""<br />
            Exit Function<br />
        End If<br />
<br />
        Dim tmpString As String<br />
        ReadProcessMemory(lpWinamp, lp, Buffer(0), 260, dwRead)<br />
<br />
        Call CloseHandle(lpWinamp)<br />
<br />
        'don't yet have a clue what to do from here!<br />
        'Temp = StrConv(Buffer, vbUnicode)<br />
        'strFileName = Left$(Temp, InStr(Temp, Chr$(0)) - 1)<br />
<br />
        Return strFileName<br />
    End Function

Public Function GetPlaylistFile(ByVal TrackNo As Integer) As String
Dim strFileName As String
Dim lp As Integer
Dim lpWinamp As Integer
Dim PID As Integer
Dim Buffer(260) As Byte
Dim Temp As String
Dim dwRead As Long

Temp = ConvertToStringFromBytes(Buffer)
strFileName = Left(Temp, InStr(Temp, Chr(0)) - 1)

Return strFileName

Public Function ConvertToStringFromBytes(ByRef abData() As Byte) As String
       Return System.Text.Encoding.Default.GetString(abData)
End Function