De todo modo, segue meu código.
Na verdade também encontrei na internet já desatualizado e adaptei.
Quem sabe você consiga adaptá-lo também.
Imports System.Diagnostics
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Partial Public Class Form1
Inherits Form
Private CPF As String
Private NOME As String
Private DATA_DE_NASCIMENTO As String
Private SITUACAO_CADASTRAL As String
Private DATA_DA_INSCRICAO As String
Private DIGITO_VERIFICADOR As String
Public Sub New()
InitializeComponent()
End Sub
Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
Try
If e.Url.AbsoluteUri.Contains("https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp") Then
Dim w2 As mshtml.HTMLWindow2 = DirectCast(webBrowser1.Document.Window.DomWindow, mshtml.HTMLWindow2)
w2.execScript("var ctrlRange = document.body.createControlRange();ctrlRange.add(document.getElementById('imgCaptcha'));ctrlRange.execCommand('Copy');", "javascript")
pictureBox1.Image = Clipboard.GetImage()
Clipboard.Clear()
maskedTextBox1.Enabled = True
maskedTextBox2.Enabled = True
textBox1.Enabled = True
button1.Enabled = True
End If
If e.Url.AbsoluteUri.Contains("https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublicaExibir.asp") Then
Dim SplitString As String()
Dim lines As String() = Regex.Split(webBrowser1.Document.GetElementById("content-core").OuterText, vbCr & vbLf)
For Each line As String In lines
If line.Contains("No do CPF:") Then
SplitString = line.Split(":"c)
CPF = SplitString(1).Replace(" ", "")
End If
If line.Contains("Nome: ") Then
SplitString = line.Split(":"c)
NOME = SplitString(1).Remove(SplitString(1).Length - 1).Remove(0, 1)
End If
If line.Contains("Data de Nascimento: ") Then
SplitString = line.Split(":"c)
DATA_DE_NASCIMENTO = SplitString(1).Remove(SplitString(1).Length - 1).Remove(0, 1)
End If
If line.Contains("Situação Cadastral: ") Then
SplitString = line.Split(":"c)
SITUACAO_CADASTRAL = SplitString(1).Remove(SplitString(1).Length - 1).Remove(0, 1)
End If
If line.Contains("Data da Inscrição: ") Then
SplitString = line.Split(":"c)
DATA_DA_INSCRICAO = SplitString(1).Remove(SplitString(1).Length - 1).Remove(0, 1)
End If
If line.Contains("Digito Verificador: ") Then
SplitString = line.Split(":"c)
DIGITO_VERIFICADOR = SplitString(1).Remove(SplitString(1).Length - 1).Remove(0, 1)
End If
Next
textBox2.Text = CPF
textBox3.Text = NOME
textBox4.Text = DATA_DE_NASCIMENTO
textBox5.Text = SITUACAO_CADASTRAL
textBox6.Text = DATA_DA_INSCRICAO
textBox7.Text = DIGITO_VERIFICADOR
maskedTextBox1.[Select]()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
webBrowser1.Document.GetElementById("txtCPF").InnerText = maskedTextBox1.Text
webBrowser1.Document.GetElementById("txtDataNascimento").InnerText = maskedTextBox2.Text
webBrowser1.Document.GetElementById("id_submit").InvokeMember("click")
webBrowser1.Document.GetElementById("txtTexto_captcha_serpro_gov_br").InnerText = textBox1.Text
webBrowser1.Document.GetElementById("btnAR2").InvokeMember("click")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
webBrowser1.Navigate("http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/cpf/ConsultaPublica.asp")
End Sub
Private Sub webBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles webBrowser1.Navigating
maskedTextBox1.Enabled = False
maskedTextBox2.Enabled = False
textBox1.Enabled = False
button1.Enabled = False
pictureBox1.Image = Nothing
End Sub
Private Sub linkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkLabel1.LinkClicked
Process.Start("https://www.facebook.com/krazybeat")
End Sub
Private isFirstChange As Boolean = True
Private Sub textBox1_TextChanged(sender As Object, e As EventArgs) Handles textBox1.TextAlignChanged
If isFirstChange Then
isFirstChange = False
textBox1.Text = Me.textBox1.Text.ToUpper()
textBox1.SelectionStart = Me.textBox1.Text.Length
isFirstChange = True
End If
End Sub
End Class
AJUDA COM CONSULTA CPF RECEITA FEDERAL
