I wonder if someone can help me
im trying to read the winamp media library
i use EnumWindows to find it
Public Function EnumWindowsProcML(ByVal hndleM As Long, ByVal parm As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hndleM)
sSave = Space(Ret)
GetWindowText hndleM, sSave, Ret + 1
If InStr(sSave, “Media Library”) Then
Lnghnd9 = Str$(hndleM)
strClassname8 = GetClass(Lnghnd9)
Library = GetWinTitle(Lnghnd9)
End If
EnumWindowsProcML = True
End Function
Public Sub Medialib(Optional strClassname8 As String)
Dim retval As Boolean
retval = EnumWindows(AddressOf EnumWindowsProcML, 0)
strClassname8 = GetClass(Lnghnd9)
End Sub
This Function aparentley works
but when i try use x = FindWindow(“#32770”, Library)
this telles me thaht it cant find the window x returns 0
any help?
.
.