Código Para Consultar Nombres De Reniec Por DNI - PERÚ

Con este artículo desempolvo mi BLOG después de nueve años, y como es mi estilo, si tanto preámbulo vamos al grano.

 Si deseamos consultar los datos de una persona mediante su DNI se ingresa al siguiente enlace de RENIEC:

ENLACE RENIEC

Si procedo a realizar una consulta de DNI mediante el teclado de pantalla y tipeando el CAPTCHA, la web de RENIEC envía estos dos parámetros y devolviendo como resultado los nombres de la persona. El siguiente código realiza este proceso solicitando el CAPTCHA desde la web RENIEC y enviando estos dos parámetros para finalmente recepcionar el resultado en formato HTML.

1. 'JAVIER ULLOA 24OCT16
2. 'TECH FACTORY
4. Imports System.Net
5. Imports System.IO
7. Public Class Form1
9. #Region "VARIABLES"
11.     Private miCookie As New CookieContainer
13.     Public Enum eResultadoConsulta
14.         ConsultaSatisfactoria = 1
15.         ErrorDeCaptcha = 2
16.         DniNoEncontrado = 3
17.         Otro = 4
18.     End Enum
20. #End Region
22. #Region "VOID"
24.     Private Function obtieneImagenCaptcha()
26.         Dim UrlCaptcha As HttpWebRequest = WebRequest.Create("https://cel.reniec.gob.pe/valreg/codigo.do")
27.         UrlCaptcha.CookieContainer = Me.miCookie
29.         ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
30.         UrlCaptcha.Credentials = CredentialCache.DefaultCredentials
32.         Dim Captcha As WebResponse = UrlCaptcha.GetResponse
34.         Dim imgCaptchaBinario As Stream = Captcha.GetResponseStream
36.         Return Image.FromStream(imgCaptchaBinario)
38.     End Function
40.     Public Function ObtieneDatosReniec(ByVal str_dni As String, ByVal str_captcha As String) As eResultadoConsulta
42.         Dim urlReniec As String = String.Format("https://cel.reniec.gob.pe/valreg/valreg.do?accion=buscar&nuDni={0}&imagen={1}", str_dni, str_captcha)
43.         Dim enlaceReniec As HttpWebRequest = WebRequest.Create(urlReniec)
44.         enlaceReniec.CookieContainer = Me.miCookie
46.         ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3
47.         enlaceReniec.Credentials = CredentialCache.DefaultCredentials
49.         Dim respuesta_web As WebResponse = enlaceReniec.GetResponse
51.         Dim myStream As Stream = respuesta_web.GetResponseStream
53.         Dim myStreamReader As New StreamReader(myStream)
56.         Dim Count As Integer = 0
57.         Dim LineaVerificacionTexto As String = ""
59.         While LineaVerificacionTexto = myStreamReader.ReadLine <> vbNull
61.             Count += 1
63.             Select Case Count
64.                 Case 75
65.                     LineaVerificacionTexto = myStreamReader.ReadLine.Trim
66.                     LineaVerificacionTexto = myStreamReader.ReadLine.Trim
67.                     If LineaVerificacionTexto.Trim.Length = 100 Then '<td height="63" class="style2" align="center">Ingrese el c&oacute;digo que aparece en la imagen</td>
68.                         Return eResultadoConsulta.ErrorDeCaptcha
69.                     End If
70.                     LineaVerificacionTexto = myStreamReader.ReadLine.Trim
71.                     If LineaVerificacionTexto.Trim.Length = 59 Then '<td height="63" class="style2" align="center">El DNI N&deg;
72.                         Return eResultadoConsulta.DniNoEncontrado
73.                     End If
74.                     LineaVerificacionTexto = myStreamReader.ReadLine.Trim
75.                     Me.lblNombres.Text = myStreamReader.ReadLine.ToString.Trim
76.                     Me.lblApellidoPaterno.Text = myStreamReader.ReadLine.ToString.Trim
77.                     Me.lblApellidoMaterno.Text = myStreamReader.ReadLine.ToString.Trim
78.                     Me.lblApellidoMaterno.Text = Me.lblApellidoMaterno.Text.Replace("<br>", "")
79.                     Return eResultadoConsulta.ConsultaSatisfactoria
80.                     Exit While
81.             End Select
83.             LineaVerificacionTexto = myStreamReader.ReadLine.Trim
85.         End While
87.         Return eResultadoConsulta.Otro
89.     End Function
91. #End Region
93.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
94.         Me.pbCapcha.Image = Me.obtieneImagenCaptcha
95.     End Sub
97.     Private Sub cmdConsultaDNI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConsultaDNI.Click
98.         Me.lblApellidoMaterno.ResetText()
99.         Me.lblApellidoPaterno.ResetText()
100.         Me.lblNombres.ResetText()
101.         Select Case Me.ObtieneDatosReniec(Me.txtDni.Text.Trim, Me.txtEscribirCodigo.Text.Trim)
102.             Case eResultadoConsulta.DniNoEncontrado
103.                 Me.lblError.Visible = True
104.                 Me.lblError.Text = "DNI NO ENCONTRADO"
105.             Case eResultadoConsulta.ErrorDeCaptcha
106.                 Me.lblError.Visible = True
107.                 Me.lblError.Text = "ERROR DE CAPTCHA"
108.             Case Else
109.                 Me.lblError.Visible = False
110.         End Select
111.     End Sub
113.     Private Sub cmdRefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefrescar.Click
114.         Me.pbCapcha.Image = Me.obtieneImagenCaptcha
115.         Me.lblError.Visible = False
116.     End Sub
118. End Class

DESCARGA