Прочесть 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д