Прочесть Web-страницу методом GET (или POST) - VB

Узнай цену своей работы

Формулировка задачи:

Как прочесть страницу https:// методом GET или POST? Для конкретной страницы нижеприведенный пример не работает:
Выдает ошибку

Решение задачи: «Прочесть Web-страницу методом GET (или POST)»

textual
Листинг программы
Public Sub RP(strURL As String, qq As String)
Dim url, ss As Variant, n As Integer, ier As Integer
 
url = strURL
Set IE = Nothing
n = 1
10:
Set IE = CreateObject("InternetExplorer.Application"): ' ????????? ??????? Internet Explorer
IE.Visible = True
 
IE.Navigate1 url: Задержка_секунд (5) ' Функция задержки
IE.Visible = True
 
While IE.Busy Or (IE.readyState <> 4)
    DoEvents
Wend 
ss = IE.Document.getElementsByClassName("link spoiler small nowrap")
Задержка_секунд (5)
 ss.Click: Задержка_секунд (2)
 ss = IE.Document.getElementsByClassName("fnormal xx-large")
 Задержка_секунд (1)
 qq = ss.outerHTML: Задержка_секунд (2)
 
IE.Quit
Set IE = Nothing
End Sub

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы