All geek questions in one place

Log in using MSXML2.XMLHTTP instead of InternetExplorer. Application with VBA

first publication

I am trying to get the identifier "dadosDoUsuario" from the website page that I have to enter. I got it using the object "InternetExplorer.Application", but I can not get the ID value when using "MSXML2. XMLHTTP". It does not seem to go past the login page, as I can get other identifiers from this page (example: "tituloPagina"). Can someone give a hint on how I get data from the page after login? Thanks!

InternetExplorer.Application code (this one works):

Sub testIE() Dim texto As String Set ie = CreateObject("InternetExplorer.Application") my_url = "https://www.nfp.fazenda.sp.gov.br/login.aspx" With ie .Visible = False .Navigate my_url Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop End With ie.Document.getelementbyid("userName").Value = "MYUSERNAME" ie.Document.getelementbyid("Password").Value = "MYPASSWORD" ie.Document.getelementbyid("Login").Click Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop ie.Document.getelementbyid("btnConsultarNFSemestre").Click Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop texto = ie.Document.getelementbyid("dadosDoUsuario").innerText MsgBox texto ie.Quit End Sub

Code MSXML2.XMLHTTP (this does not work):

 Sub testXMLHTTP() Dim xml As Object Dim html As Object Dim dados As Object Dim text As Object Set xml = CreateObject("MSXML2.XMLHTTP") Set html = CreateObject("htmlFile") With xml .Open "POST", "https://www.nfp.fazenda.sp.gov.br/Login.aspx", False .setRequestHeader "Content-Type", "text/xml" .send "userName=MYUSERNAME&password=MYPASSWORD" .Open "GET", "https://www.nfp.fazenda.sp.gov.br/Inicio.aspx", False .setRequestHeader "Content-Type", "text/xml" .send End With html.body.innerhtml = xml.responseText Set objResult = html.GetElementById("dadosDoUsuario") GetElementById = objResult.innertext MsgBox GetElementById End Sub

EDIT: I followed the steps suggested by @Florent B. and added scripcontrol to get the encoded values ​​for __VIEWSTATE, __VIEWSTATEGENERATOR and __EVENTVALIDATION. It worked!

 Sub testXMLHTTP() Dim xml As Object Dim html As HTMLDocument Dim dados As Object Dim text As Object Dim html2 As HTMLDocument Dim xml2 As Object Set xml = CreateObject("Msxml2.ServerXMLHTTP.6.0") Set html = CreateObject("htmlFile") With xml .Open "GET", "https://www.nfp.fazenda.sp.gov.br/Login.aspx", False .send End With strCookie = xml.getResponseHeader("Set-Cookie") html.body.innerhtml = xml.responseText Set objvstate = html.GetElementById("__VIEWSTATE") Set objvstategen = html.GetElementById("__VIEWSTATEGENERATOR") Set objeventval = html.GetElementById("__EVENTVALIDATION") vstate = objvstate.Value vstategen = objvstategen.Value eventval = objeventval.Value 'URL Encode ViewState Dim ScriptEngine As ScriptControl Set ScriptEngine = New ScriptControl ScriptEngine.Language = "JScript" ScriptEngine.AddCode "function encode(vstate) {return encodeURIComponent(vstate);}" Dim encoded As String encoded = ScriptEngine.Run("encode", vstate) vstate = encoded 'URL Encode Event Validation ScriptEngine.AddCode "function encode(eventval) {return encodeURIComponent(eventval);}" encoded = ScriptEngine.Run("encode", eventval) eventval = encoded 'URL Encode ViewState Generator ScriptEngine.AddCode "function encode(vstategen) {return encodeURIComponent(vstategen);}" encoded = ScriptEngine.Run("encode", vstategen) vstategen = encoded Postdata = "__EVENTTARGET=" & "&__EVENTARGUMENT=" & "&__VIEWSTATE=" & vstate & "&__VIEWSTATEGENERATOR=" & vstategen & "&__EVENTVALIDATION=" & eventval & "&ctl00$ddlTipoUsuario=#rdBtnNaoContribuinte" & "&ctl00$UserNameAcessivel=Digite+o+Usuário" & "&ctl00$PasswordAcessivel=x" & "&ctl00$ConteudoPagina$Login1$rblTipo=rdBtnNaoContribuinte" & "&ctl00$ConteudoPagina$Login1$UserName=MYUSERNAME" & "&ctl00$ConteudoPagina$Login1$Password=MYPASSWORD" & "&ctl00$ConteudoPagina$Login1$Login=Acessar" & "&ctl00$ConteudoPagina$Login1$txtCpfCnpj=Digite+o+Usuário" Set xml2 = CreateObject("Msxml2.ServerXMLHTTP.6.0") Set html2 = CreateObject("htmlFile") With xml2 .Open "POST", "https://www.nfp.fazenda.sp.gov.br/Login.aspx", False .setRequestHeader "Cookie", strCookie .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .setRequestHeader "Content-Lenght", Len(Postdata) .send (Postdata) End With html2.body.innerhtml = xml2.responseText Set objResult = html2.GetElementById("dadosDoUsuario") GetElementById = objResult.innertext MsgBox GetElementById End Sub
+1
source share
1 answer

It is possible, but not so simple.

First you need to use CreateObject ("Msxml2.ServerXMLHTTP.6.0"), not CreateObject ("MSXML2.XMLHTTP").

Then follow these steps:

  • Open and send a GET to https://www.nfp.fazenda.sp.gov.br/login.aspx
  • Parsing and saving a cookie from the "Set-Cookie" response header
  • Parsing and saving __VIEWSTATE, __VIEWSTATEGENERATOR, __EVENTVALIDATION from HTML response

  • Create data for the following query with previously analyzed values ​​and with your username / password:

     __EVENTTARGET:"" __EVENTARGUMENT:"" __VIEWSTATE:"..." __VIEWSTATEGENERATOR:"..." __EVENTVALIDATION:"..." ctl00$ddlTipoUsuario:"#rdBtnNaoContribuinte" ctl00$UserNameAcessivel:"Digite+o+Usuário" ctl00$PasswordAcessivel:"x" ctl00$ConteudoPagina$Login1$rblTipo:"rdBtnNaoContribuinte" ctl00$ConteudoPagina$Login1$UserName:"..." ctl00$ConteudoPagina$Login1$Password:"..." ctl00$ConteudoPagina$Login1$Login:"Acessar" ctl00$ConteudoPagina$Login1$txtCpfCnpj:"Digite+o+Usuário"

  • Open POST for https://www.nfp.fazenda.sp.gov.br/login.aspx

  • Set the cookie header with the processed cookie in step 2
  • Set Content-Type header: "application / x-www-form-urlencoded"
  • Set Content-Length header with data length
  • Send a POST with data from step 4
+2
source

Source: https://habr.com/ru/post/1260947/

More articles:


All Articles