Alguém consegue ajudar?
O caso:
Preciso acessar uma página pelo objeto Internet Explorer e realizar a autenticação do proxy por SO (usuario e senha da rede). Porem não encontro a propriedade no objeto que realiza tal inclusão.
Segue codigo:
O caso:
Preciso acessar uma página pelo objeto Internet Explorer e realizar a autenticação do proxy por SO (usuario e senha da rede). Porem não encontro a propriedade no objeto que realiza tal inclusão.
Segue codigo:
- Código:
Function fabreUrl()
Dim ie As New InternetExplorer
' Set ie = CreateObject("Internetexplorer.application")
Dim htm_ As New HTMLDocument
ie.Visible = False
Dim urlStr As String
urlStr = "http://pagina.html"
ie.navigate urlStr
Do While ie.readyState <> READYSTATE_COMPLETE
Debug.Print "Waiting..."
Loop
Set htm_ = ie.Document
Debug.Print htm_.body.innerHTML
userStr = "usuario"
userPwdStr = "senha"
fDelay ie
htm_.getElementById("Control_Login1_Login1_UserName").Value = userStr
htm_.getElementById("Control_Login1_Login1_Password").Value = userPwdStr
htm_.getElementById("Control_Login1_Login1_LoginButton").Click
fDelay ie
htm_.getElementById("97").Click
fDelay ie
htm_.getElementById("ContentPlaceHolder1_Control_Data1_DataInicial").Value = "01/03/2014"
htm_.getElementById("ContentPlaceHolder1_Control_Data1_DataFinal").Value = "17/04/2014"
htm_.getElementById("ContentPlaceHolder1_btBuscar").Click
Do While ie.readyState <> READYSTATE_COMPLETE
Debug.Print "Waiting..."
Loop
fDelay ie
'
End Function