PREENCHER O CAMPO, FORMULARIO DE UM SITE PELO VB.

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

PREENCHER O CAMPO, FORMULARIO DE UM SITE PELO VB.

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#359319 - 10/12/2010 17:47:49

FNANDOOD
MEDIANEIRA
Cadast. em:Dezembro/2009


Dias atrás testei um programa de emissão de DAS (Documento de arrecadação do Simples nacional) e vi que o
programa exportava os dados do CNPJ e código de acesso direto para o site do SIMPLES NACIONAL.

tem como fazer isso em VB?
ex:
quero abrir o site abaixo já com os campos do CNPJ e código de acesso preenchido.

https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa



Resposta escolhida #359330 - 10/12/2010 21:23:50

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Última edição em 10/12/2010 22:37:30 por ZEROCAL

Amigão é so adicionar num form o Component do Internet Explorer, navegar ate o site requerido e procurar peli nome do Textbox, caso esteja disponivel e setar um valor para ele, nao trabalho mais com vb6, posso te dar um exemplo em vb.net...

xo tentar aqui daqui a pouco volto a testar...

Bom aqui eu fiz assim, axo que no VB6 é a mesma coisa.

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'em um Botao eu preenxo o testbox com o valor da ID da NFe
        wbBrowser.Document.All("ctl00$ContentPlaceHolder3$chaveAcesso").InnerText = "11111111111111111111111111111111111111111111"

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'no Load eu chamo a URL para o wbBrowser
        wbBrowser.Url = New Uri("https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa")

    End Sub

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click

        'Aqui chamo o Evento Click do botao Enviar
        wbBrowser.Document.GetElementById("ctl00$ContentPlaceHolder3$btcontinuar").InvokeMember("Click")

    End Sub


Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#359334 - 10/12/2010 23:33:59

FNANDOOD
MEDIANEIRA
Cadast. em:Dezembro/2009


opa, na verdade queria era preencher os dados destes campos,

https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5

são 3 campos, CNPJ, CPF, e código de acesso.

esse site é para emitir a Das (Documento de Arecadação do Simples Nacional)


depois que acessa, vi que tem mais campos para preencher.



#359339 - 11/12/2010 10:03:41

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Aqui eu consegui assim:



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Evendo Load carrego a URL
        wbBrowser.Url = New Uri("https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5")

    End Sub

    Private Sub wbBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wbBrowser.DocumentCompleted

        'Evento do carregamento da página completo eu ligo o timer de 200ms
        'nao sei porque mas ele nao preenxe os dados se eu colocar aqui
        tmBrowser.Start()

    End Sub

    Private Sub tmBrowser_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmBrowser.Tick

        'Aqui eu seto os dados, preenxo com os dados e desligo o timer
        wbBrowser.Document.GetElementById("txtCNPJ").InnerText = "11111111111111"
        wbBrowser.Document.GetElementById("txtCPF").InnerText = "22222222222"
        wbBrowser.Document.GetElementById("txtCodAcesso").InnerText = "333333333333"
        tmBrowser.Stop()

    End Sub



Espero que ajude...



Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#359351 - 11/12/2010 15:38:00

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
ZeroCal, me diz uma coisa.

Como ficaria o preenchimento de um campo em um formulario web(html) cujo campo é do tipo CAMPO ARQUIVO. ?????

O exemplo abaixo passa o valor 111..... para um CAMPO TEXTO
wbBrowser.Document.All("ctl00$ContentPlaceHolder3$chaveAcesso").InnerText = "11111111111111111111111111111111111111111111"


Preciso passar o caminho de um arquivo para um CAMPO ARQUIVO de um formulario html.

Tentei isso e não dá
Dim patharqv as string = 'c:\blablablabla.txt'
wbBrowser.Document.All("ctl00$ContentPlaceHolder3$chaveAcesso").InnerText = patharqv





Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#359360 - 11/12/2010 18:39:43

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


FoxMan (da le CammelCase =] ) preciso ao menos ver esse HTML pra tentar decifrar.
voce diz esse campo arquivo, seria para upload ?


Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#359376 - 12/12/2010 01:13:05

FNANDOOD
MEDIANEIRA
Cadast. em:Dezembro/2009


Citação:
:
Aqui eu consegui assim:



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Evendo Load carrego a URL
        wbBrowser.Url = New Uri("https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5")

    End Sub

    Private Sub wbBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wbBrowser.DocumentCompleted

        'Evento do carregamento da página completo eu ligo o timer de 200ms
        'nao sei porque mas ele nao preenxe os dados se eu colocar aqui
        tmBrowser.Start()

    End Sub

    Private Sub tmBrowser_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmBrowser.Tick

        'Aqui eu seto os dados, preenxo com os dados e desligo o timer
        wbBrowser.Document.GetElementById("txtCNPJ").InnerText = "11111111111111"
        wbBrowser.Document.GetElementById("txtCPF").InnerText = "22222222222"
        wbBrowser.Document.GetElementById("txtCodAcesso").InnerText = "333333333333"
        tmBrowser.Stop()

    End Sub



Espero que ajude...



Como faço pra converter em Visual Basic 6?



#359377 - 12/12/2010 01:27:07

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


no Load do Form coloque

wbBrowser.Navigate "https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5"


então voce pode criar uma sub ora completar

Private Sub subCompletar()

        'Aqui eu seto os dados, preenxo com os dados e desligo o timer
        wbBrowser.Document.GetElementById("txtCNPJ").InnerText = "11111111111111"
        wbBrowser.Document.GetElementById("txtCPF").InnerText = "22222222222"
        wbBrowser.Document.GetElementById("txtCodAcesso").InnerText = "333333333333"

End Sub


Ai no evento do Browser completo voce chama essa "subCompletar"

acredito que no vb6 seja assim.

Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#359379 - 12/12/2010 02:54:34

FNANDOOD
MEDIANEIRA
Cadast. em:Dezembro/2009


Valeu, ZEROCAL, testei em vb6  e funcionou os comandos acima.





#359393 - 12/12/2010 12:03:50

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Excelente, se tiver mais alguma duvida pode postar, senao pode fechar o topico. Abraços

Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#359575 - 14/12/2010 23:31:24

FNANDOOD
MEDIANEIRA
Cadast. em:Dezembro/2009


Citação:
:
Excelente, se tiver mais alguma duvida pode postar, senao pode fechar o topico. Abraços


Fiquei com mais uma dúvida, como faço para executar via código, o "botão continuar" deste site:

https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5

depois que abro o site, aparece algumas checkbox, e uma tab, como faço para selecionar esses componentes, via Vb?






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


Tópico encerrado, respostas não sao permitidas
Encerrado por FNANDOOD em 03/01/2011 18:37:04