PREENCHER O CAMPO, FORMULARIO DE UM SITE PELO VB.

FNANDOOD 10/12/2010 17:47:49
#359319
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
RODRIGOFERRO 10/12/2010 21:23:50
#359330 Resposta escolhida
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
FNANDOOD 10/12/2010 23:33:59
#359334
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.
RODRIGOFERRO 11/12/2010 10:03:41
#359339
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...
FOXMAN 11/12/2010 15:38:00
#359351
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
RODRIGOFERRO 11/12/2010 18:39:43
#359360
FoxMan (da le CammelCase =] ) preciso ao menos ver esse HTML pra tentar decifrar.
voce diz esse campo arquivo, seria para upload ?
FNANDOOD 12/12/2010 01:13:05
#359376
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?
RODRIGOFERRO 12/12/2010 01:27:07
#359377
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.
FNANDOOD 12/12/2010 02:54:34
#359379
Valeu, ZEROCAL, testei em vb6 e funcionou os comandos acima.
RODRIGOFERRO 12/12/2010 12:03:50
#359393
Excelente, se tiver mais alguma duvida pode postar, senao pode fechar o topico. Abraços
FNANDOOD 14/12/2010 23:31:24
#359575
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 encerrado , respostas não são mais permitidas
Voltar