думаю этого хватит. Хотя конечно для универсальности работы redirect тоже хорошо было бы обрабатывать... Ну да ладно
Как парсить полученный документ я думаю понятно ?
- Код: Выделить всё
Dim Status
if CreateDocumentFromURL("http://www.ya.ru",Document) Then
Dim LinkList
For Each A in Document.all.tags("A")
LinkList = LinkList & A.href & vbCrlf
Next
MsgBox LinkList,vbInformation,"Список ссылок в документе"
Else
MsgBox Err.Number & " " & Err.Description,vbCritical,"Ошибка выполнения запроса."
End if
Function CreateDocumentFromURL(URL,Document)
On Error Resume Next
Dim XMLHTTP
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET",URL,False
XMLHTTP.Send
if Err.Number <> 0 Then Exit Function
if XMLHTTP.status = 200 Then
Set Document = CreateObject("HTMLFile")
Document.open
Document.write "<HTML><HEAD></HEAD><BASE href=""" & URL & """><BODY></BODY></HTML>"
Document.body.innerhtml = XMLHTTP.responsetext
Document.close
Else
Err.Number = XMLHTTP.Status
Err.Description = XMLHTTP.StatusText
Exit Function
End if
CreateDocumentFromURL = True
End Function
