Чесно говоря не легко все времья компилировать, так как много заморочек с поступающем списке с музыкой. Много чего надо откинуть, кое-что пропустить через фильтр и т.д. тоесть откладка незаменимая вещь в чем похвала VB. Я попробовал еще один стандартный способ. Работает. Ок.
Настроение на высоте )
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
'Бравзер
Public IE( 9 ) As Object
Public PIG_IEViknoStatus( 9 ) As Boolean ' Статус. Открытое окно
'Создание окна IE
Public Sub PIG_VklIE(Nomr As Long, Vsbl As Boolean)
Set IE(Nomr) = CreateObject("InternetExplorer.Application")
IE(Nomr).Visible = Vsbl
PIG_IEViknoStatus(Nomr) = True
End Sub
'Переход по URL
Public Sub PIG_IE_Navigate(Nomr As Long, Adres As String)
'If PIG_IEViknoStatus(Nomr) = False Then Exit Sub
IE(Nomr).navigate Adres
End Sub
'Опрос статуса
Public Function PIG_IE_readyState(Nomr As Long) As Long
PIG_IE_readyState = IE(Nomr).readyState
End Function
'Чтение данных
Public Function PIG_IE_innerHTML(Nomr As Long) As String
PIG_IE_innerHTML = IE(Nomr).Document.documentElement.innerHTML
End Function
