登錄到網站使用MSXML2.XMLHTTP

我可以使用下面的代碼登錄到網站使用MSXML2.XMLHTTP

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任何意見或幫助將是巨大

感謝

來源

2014-06-23 RJTTAZ

我還沒有找到如何讓Windows自動傳遞憑據，但你可以硬編碼他們就像xmlhttp.Open（「POST」，網址，假，「用戶名」，「密碼」）

來源

2015-03-26 12:43:21

登錄到網站使用MSXML2.XMLHTTP

回答

相關問題