Блог

Главная - Вопросы по программированию - Войдите на веб-сайт с помощью MSXML2.XMLHTTP

Войдите на веб-сайт с помощью MSXML2.XMLHTTP

#excel #web-scraping #msxml #vba

#excel #очистка веб-страниц #msxml #vba

Вопрос:

Я могу войти на веб-сайт, используя следующий код

 Sub OpenWmtVO()
On Error GoTo RunWebObjError

Dim ErrorCounter As Integer

SetUpObject

Restart:

'Disable pop-up messages
objIExplorer.Silent = True   
objIExplorer.Visible = True 'for testing change to true    
'open page
objIExplorer.Navigate "https://wmtscheduler.faa.gov/WMT_Login/"

'wait till page is fully opened
Do While objIExplorer.Busy Or Not objIExplorer.ReadyState = 4: DoEvents: Loop

 'set user ID and password in textboxes
objIExplorer.Document.getElementById("hprLogin_chkViewOnly").Click
objIExplorer.Document.getElementById("hprLogin_adUserName").Value = CurUsr
objIExplorer.Document.getElementById("hprLogin_adPass").Value = CurPw

objIExplorer.Document.all.Item("hprLogin$btnSubmit").Click
    Do While objIExplorer.Busy Or Not objIExplorer.ReadyState = 4: DoEvents: Loop

Я хотел бы использовать MSXML2.XMLHTTP, поскольку это намного быстрее, и после входа в систему я могу просматривать от 29 до 42 страниц для получения нужных мне данных намного быстрее. Однако я не уверен, как выполнить первоначальный вход на этот сайт с помощью MSXML2.XMLHTTP Любые идеи или помощь были бы полезны

Спасибо

Ответ №1:

Я не нашел, как заставить Windows автоматически передавать учетные данные, но вы можете жестко запрограммировать их как xmlhttp.Открыть («СООБЩЕНИЕ», URL, false, «имя пользователя», «пароль»)

Метки: