ROBO PARA PREENCHER FORMULÁRIO WEB

 Tópico anterior Próximo tópico Novo tópico

ROBO PARA PREENCHER FORMULÁRIO WEB

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#478268 - 04/12/2017 21:10:23

EDSON PEREIRA
SAO PAULO
Cadast. em:Janeiro/2004


Boa noite!...
peguei uns modelos no site e achei este...

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
        IE.Navigate ("http://cpf.receita.fazenda.gov.br/situacao/default.asp")
        IE.Visible = True
            While IE.Busy = True
                Sleep 1000
                DoEvents
            Wend
        IE.Document.getElementById("txtCPF").Value = ("123.456.789-00")
        IE.Document.getElementById("txtDataNascimento").Value = ("04/12/2017")
Set IE = Nothing
End Sub
ele ate preencher mais na hora de fazer a consulta ele não traz nada



#478307 - 06/12/2017 14:08:39

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
Pelo que vi voce so esta preenchendo os dados, nao esta submetendo o formulario ao final do preenchimento.
Nao seria esse o problema ?


WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

#478316 - 06/12/2017 22:29:26

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


mesmo se você marcar o checkbox como true, o site ira pedir para você escolher as imagens.
para oque você precisa você deve fazer dentro do vb e não fora
Fazendo dentro do vb você poderia acionar o botão captcha sonoro onde ele geraria as imagens e você preenchia do seu formulario vb6 para o ie.



#478779 - 30/12/2017 13:22:40

EDSON PEREIRA
SAO PAULO
Cadast. em:Janeiro/2004


Boa tarde a tarde!
Pela Internet Explorer, não ta certo ou o meu esta bichado, fez um um teste, digitando os link pelo IE não da certo também no Google Chrome deu.
ai troquei o site pelo https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp
ficou assim
    Set IE = CreateObject("InternetExplorer.Application")
    'IE.Navigate "http://cpf.receita.fazenda.gov.br/situacao/default.asp"
    IE.Navigate "https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp"
    Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    '
    IE.Document.All.Item("txtCPF").Value = "123456789-00"
    IE.Document.All.Item("txtDataNascimento").Value = "30/12/2017"
    '
    IE.Visible = True
    Set IE = Nothing




#478780 - 30/12/2017 13:30:45

EDSON PEREIRA
SAO PAULO
Cadast. em:Janeiro/2004


 Anexos estao visíveis somente para usuários registrados

Selar que eu posso usar o mesmo titulo: pra outra pergunta? la vai
preencher este campos
<input name="txt_nome" type="text" size="50" maxlength="80" value="">
txt_nome

dicas:
Dim LinkButton  As HTMLAnchorElement
Dim HtmlDoc

Set IE = CreateObject("InternetExplorer.application")

IE.Visible = True
IE.Navigate ("https://www.stm.jus.br/servicos-stm/certidao-negativa/emitir-certidao-negativa")

While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Wend

'ie.Document.getElementById("modlgn-username").Value = "Edson"
'ie.Document.getElementById("modlgn-passwd").Value = "12345"

Set HtmlDoc = IE.Document
IE.Document.Form("iframe").Document.Form("form_certidao").Document.All.Item("txt_nome").Value = "exemplo"
'ie.Document.Form("form_certidao").Document.All("txt_nome").Value = "exemplo"
'ie.Document.Form("form_certidao").Document.All.Item("txt_nome").Value = "exemplo"
'ie.Document.Form("form_certidao").Document.getElementById("txt_nome").Value = "exemplo"


'For Each LinkButton In HtmlDoc.getElementsByTagName("button") 'Inspecionar elemento Button
'    If InStr(LinkButton.getAttribute("onclick"), "login") > 0 Then 'Verificar Atributo Onclick
'        LinkButton.Click
'    Exit For
'    End If
'Next LinkButton




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário