none
CONSULTA CNPJ NA RECEITA FEDERAL RRS feed

  • Pergunta

  • Pessoal to a um tempao tentando descobrir pq esse comando na da certo... esse codigo da certo em vb6, so ki no vb 2008 nao funciona. Alguem pode me ajudar? 

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

            'Desabilita o abrir do Captcha para não caregar novamente quando o site for reaberto

            'CaptchaRefresh = False

            'Busca os TextBox do site do SEFAZ
            BuscaSite(objcnpj, objcaptcha, objConsultar)

            'Peenche os campos do site com as informações da tela
            objcnpj.value = Txt_CNPJ.Text
            If Txt_Captcha.Text = "" Then

                MsgBox("Digite os caracers da imagem")


                Exit Sub

            End If
            objcaptcha.Value = Txt_Captcha.Text



            objConsultar.Click()

        End Sub
        Public Sub BuscaSite(ByVal pobjCNPJ As Object, ByVal pobjCaptcha As Object, ByVal pobjConsultar As Object)

            'pagina
            Dim Document As Object
            Dim forms As Object
            Dim item As Object

            'texto
            Dim CNPJ As Object
            Dim Captcha As Object

            'Botao
            Dim Consultar As Object

            '----------BUSCA OS TEXTBOX DO CNPJ E DO CAPTCHA----------
            'Busca o Documento da pagina
            While (Document Is Nothing)

                Document = WebBrowser1.Document.ActiveElement

            End While

            'Busca os forms da pagina
            While (forms Is Nothing)

                forms = Document

            End While

            'Busca o Item do form
            While (item Is Nothing)

                item = forms.item

            End While

            'Busca o TextBox do CNPJ
            While (CNPJ Is Nothing)

                CNPJ = item.item(2)

            End While

            'Busca o TextBox do Captcha
            While (Captcha Is Nothing)

                Captcha = item.item(3)
            End While

            'Busca o Botao do Consultar
            While (Consultar Is Nothing)

                Consultar = item.item(TextBox1)

            End While


            pobjCNPJ = CNPJ

            pobjCaptcha = Captcha

            pobjConsultar = Consultar
            Exit Sub

        End Sub

    sexta-feira, 31 de outubro de 2014 15:17

Respostas

  • Tem certeza que esse comando ai consulta na SEFAZ?, veja ai abaixo essa Thread:

    https://social.msdn.microsoft.com/Forums/pt-BR/9803444c-ea50-4192-8941-cfe350bc69fd/resolvido-ajuda-a-consultar-cnpj-no-site-httpwwwreceitafazendagovbr-usando-webclient?forum=vscsharppt

    Para converter para VB.NET

    • Sugerido como Resposta Mr. GMSOFT segunda-feira, 3 de novembro de 2014 19:51
    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:25
    sexta-feira, 31 de outubro de 2014 15:33
  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:25
    domingo, 28 de junho de 2015 15:05

Todas as Respostas

  • Tem certeza que esse comando ai consulta na SEFAZ?, veja ai abaixo essa Thread:

    https://social.msdn.microsoft.com/Forums/pt-BR/9803444c-ea50-4192-8941-cfe350bc69fd/resolvido-ajuda-a-consultar-cnpj-no-site-httpwwwreceitafazendagovbr-usando-webclient?forum=vscsharppt

    Para converter para VB.NET

    • Sugerido como Resposta Mr. GMSOFT segunda-feira, 3 de novembro de 2014 19:51
    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:25
    sexta-feira, 31 de outubro de 2014 15:33
  • Caso tenha conseguido a solução finalize sua Thread marcando a resposta

    GTSA vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Marcado como Resposta Marcos SJ terça-feira, 6 de outubro de 2015 19:25
    domingo, 28 de junho de 2015 15:05
  • Amigo.. poderia disponibilizar o link do projeto novamente...
    terça-feira, 10 de novembro de 2015 18:55