Acessar link [RESOLVIDO]
Enviado: Qui Mai 05, 2016 12:56 pm
Minha ideia é acessar um site, fazer login flegar uma radiobox e clicar em um link de pesquisa...
Estou com dificuldade para acessar esse link.
Poderiam me ajudar??
Segue abaixo o trecho do código fonte referente à pesquisa em questão.
<td style="width:3px;"></td><td onmouseover="Menu_HoverStatic(this)" onmouseout="Menu_Unhover(this)" onkeyup="Menu_Key(this)" id="ctl00_ContentMenu_Ucmenu_Menu1n1"><table class="menuitem ctl00_ContentMenu_Ucmenu_Menu1_4" cellpadding="0" cellspacing="0" border="0" width="100%"><tr>
<td style="white-space:nowrap;"><a class="ctl00_ContentMenu_Ucmenu_Menu1_1 menuitem ctl00_ContentMenu_Ucmenu_Menu1_3" href="frmPesquisaManifesto.aspx" style="border-style:none;font-size:1em;">Pesquisa Manifesto</a></td>
Segue trecho em VBA.
A parte do acesso, o login e senha, flegar o radiobox está funcionando ok, não estou conseguindo acessar o link de pesquisa de manifesto.
Dim ie As Object
Dim ULogin As Boolean, ieForm
Set ie = New InternetExplorerMedium
With ie
.Visible = True
.Navigate ("endereço do site")
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.getElementById("txtlogin").Focus
.document.getElementById("txtlogin").Value = "login" 'digita o login
.document.getElementById("txtsenha").Focus
.document.getElementById("txtsenha").Value = "senha" 'digita a senha
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("btn_login_ext").Click 'clica em fazer login/entrar
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("ibtManifesto").Click 'clica em novo manifesto de resíduo
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all.Item("ctl00_ContentPlaceHolder1_rblTipoUnidade_0").Checked = "checked" 'seleciona participação como gerador
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("ctl00_ContentPlaceHolder1_rblTipoUnidade_0").Click
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.getElementById("ctl00_ContentMenu_Ucmenu_Menu1n1").Selected = True 'Essa parte não está funcionando
Estou com dificuldade para acessar esse link.
Poderiam me ajudar??
Segue abaixo o trecho do código fonte referente à pesquisa em questão.
<td style="width:3px;"></td><td onmouseover="Menu_HoverStatic(this)" onmouseout="Menu_Unhover(this)" onkeyup="Menu_Key(this)" id="ctl00_ContentMenu_Ucmenu_Menu1n1"><table class="menuitem ctl00_ContentMenu_Ucmenu_Menu1_4" cellpadding="0" cellspacing="0" border="0" width="100%"><tr>
<td style="white-space:nowrap;"><a class="ctl00_ContentMenu_Ucmenu_Menu1_1 menuitem ctl00_ContentMenu_Ucmenu_Menu1_3" href="frmPesquisaManifesto.aspx" style="border-style:none;font-size:1em;">Pesquisa Manifesto</a></td>
Segue trecho em VBA.
A parte do acesso, o login e senha, flegar o radiobox está funcionando ok, não estou conseguindo acessar o link de pesquisa de manifesto.
Dim ie As Object
Dim ULogin As Boolean, ieForm
Set ie = New InternetExplorerMedium
With ie
.Visible = True
.Navigate ("endereço do site")
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.getElementById("txtlogin").Focus
.document.getElementById("txtlogin").Value = "login" 'digita o login
.document.getElementById("txtsenha").Focus
.document.getElementById("txtsenha").Value = "senha" 'digita a senha
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("btn_login_ext").Click 'clica em fazer login/entrar
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("ibtManifesto").Click 'clica em novo manifesto de resíduo
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all.Item("ctl00_ContentPlaceHolder1_rblTipoUnidade_0").Checked = "checked" 'seleciona participação como gerador
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.all("ctl00_ContentPlaceHolder1_rblTipoUnidade_0").Click
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
.document.getElementById("ctl00_ContentMenu_Ucmenu_Menu1n1").Selected = True 'Essa parte não está funcionando