Consulta de SBS con DNI Directo sin Captcha

[Jean Pierre Adonis De La Cruz Garcia]

Solo para los que ya noconcen el proceso de Automatizacion de Internet Explorer con Foxpro

Este es el enlace directo.

y de ahi solo se extrae los datos que se deseen con automatizacion y listo, solucionado el problema de exrtraer los datos de la SBS

http://www.sbs.gob.pe/app/spp/Afiliados/afil_detalle.asp?tp=2&tip_doc=00&num_doc=22306219

Lo unico que deben de hacer es cambiar el DNI al final por el que desean sacar su informacion usan automatizacion nomas, y listo.

Suerte espero que a los que les intereses agradecer no cuesta mucho.

[softp...@gmail.com]

por ahí lei que soy alterado, la verdad que no me gusta que digan algo,y que no es, solo eso

y bueno, interesante tu aporte, pero algo asi ya había hecho.

 

[Julio Andrés Ferrero]

Hay algo para dni argentina?

[Jean Pierre Adonis De La Cruz Garcia]

claro mi estimado

indicame la pagina y te algo una inspeccion para verificar si es posible

cual es la pagina donde consultas del DNI y algunos DNI para probar.

[Julio Andrés Ferrero]

No conozco cual es la página.

Si alguien sabe me la puede pasar?

[Ricardo Pina]

Julio

Una duda, Como hiciste para poder enviar el mail si no tenes acceso a internet ?

http://registronacional.com/argentina/dni_consulta.htm

Saludos

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[Julio Andrés Ferrero]

Gracias Jean.... Ese es mi problema... No encuentro una página oficial para consulta de DNI...

El 12/02/2015 11:38, "Jean Pierre Adonis De La Cruz Garcia" <elconsultor...@gmail.com> escribió:

Ricardo, esa no es la pagina oficial, para la consulta de DNI de argentina, solo es para ver el nuevo tramite de DNI, pagina no oficial, por eso le ecia a el, ya que es argentino, cual es la ofical, o que pregunte nomas.

[Jean Pierre Adonis De La Cruz Garcia]

en aregntina como se llama la Entidad que da los DNI, aca en peru se llama reniec, al menos por eso puedo ayudarte

consulta cual es el lugar o la entidad que dan los DNI de argentina, y asi hallaremos resultado

[Jean Pierre Adonis De La Cruz Garcia]

Bueno, creo que te tengo servida la comida, espero que comas tu sopa, jejeje

La entidad se llama RENAPER

aca un poc de informacion para los DNI de argentina

http://www.nuevodni.gov.ar/preguntas-frecuentes/instructivo-requisitos.pdf

y aca la pagina oficial para que hagas las consultas.

http://www.nuevodni.gov.ar/inicio/index.php

ahora si desees que te ayude a automatizar, mandame el ejmplo de 02 DNI y procedo hacer la automatizacion si es wque es posible.

[Jean Pierre Adonis De La Cruz Garcia]

Ricardo, esa no es la pagina oficial, para la consulta de DNI de argentina, solo es para ver el nuevo tramite de DNI, pagina no oficial, por eso le ecia a el, ya que es argentino, cual es la ofical, o que pregunte nomas.

El jueves, 12 de febrero de 2015, 7:45:48 (UTC-5), Ricardo Pina escribió:

[Jean Pierre Adonis De La Cruz Garcia]

Dr, estabas vivo, a los años, jejeje "t.E.C."

Excelente mi estimado, ya era hora de acoplarte de nuevo, y ponerte en marcha. jejejeje

El sábado, 29 de agosto de 2015, 15:55:01 (UTC-5), YuLSoft escribió:

Asi de sencillo:

*/////

CLEAR

SET SAFETY OFF

LOCAL lcNUM_DOC

lcNUM_DOC = "22306219"

 

#DEFINE CRLF CHR(13)+CHR(10)

LOCAL oErr as Exception

LOCAL cStr as Character

LOCAL SW AS Boolean

SW = .T.

TRY

TEXT TO lcURL TEXTMERGE PRETEXT 11

http://www.sbs.gob.pe/app/spp/Afiliados/afil_detalle.asp?tp=2&tip_doc=00&num_doc=<<lcNUM_DOC>>

ENDTEXT

loIE = CREATEOBJECT("InternetExplorer.Application")

loIE.Navigate2(lcURL)

loIE.Visible = .F.

* Esperar mientras se obtiene página

WAIT WINDOW "Espere por favor, obteniendo datos..." NOWAIT

DO While loIE.Busy OR loIE.ReadyState#4

ENDDO

loDoc = loIE.Document

DECLARE Sleep IN Win32API INTEGER

SLEEP(5000)

lcHTML = loDoc.body.innerText

CATCH TO oErr

cStr = "Error:" + CRLF + CRLF + ;

"[ Error: ] " + STR(oErr.ErrorNo) + CRLF + ;

"[ Linea: ] " + STR(oErr.LineNo) + CRLF + ;

"[ Mensaje: ] " + oErr.Message + CRLF + ;

"[ Procedimiento: ] " + oErr.Procedure + CRLF + ;

"[ Detalles: ] " + oErr.Details + CRLF + ;

"[ StackLevel: ] " + STR(oErr.StackLevel) + CRLF + ;

"[ Instrucción: ] " + oErr.LineContents

MESSAGEBOX(cStr,4112,"Error...!!!")

SW = .F.

ENDTRY

IF SW = .F.

RETURN .F.

ENDIF

IF LEN(lcHTML) < 532

lcMSG = SUBSTR(ALLTRIM(lcHTML), 1, 49)

MESSAGEBOX(lcMSG,64,"Aviso")

RELEASE loIE

RETURN .F.

ENDIF

lcFile = "Datos_Afiliados.txt"

*** DNI ***

posini = AT("Electoral", lcHTML)+10

lcDni = SUBSTR(lcHTML, posini, 8)

STRTOFILE(lcDni+CHR(13)+CHR(10), lcFile)

*** APE. PATERNO ***

posini = AT("Paterno", lcHTML) + 8

posfin = AT("Materno", lcHTML) - 9

lcApe_Pat = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcApe_Pat+CHR(13)+CHR(10), lcFile, 1)

*** APE. MATERNO ***

posini = AT("Materno", lcHTML) + 8

posfin = AT("Primer Nombre", lcHTML)-2

lcApe_Mat = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcApe_Mat+CHR(13)+CHR(10), lcFile, 1)

*** PRIMER NOMBRE ***

posini = AT("Primer Nombre", lcHTML) + 14

posfin = AT("Segundo Nombre", lcHTML)

lcNom1 = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcNom1+CHR(13)+CHR(10), lcFile, 1)

*** SEGUNDO NOMBRE ***

posini = AT("Segundo Nombre", lcHTML) + 15

posfin = AT("Fecha Nacimiento", lcHTML) - 2

lcNom2 = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcNom2+CHR(13)+CHR(10), lcFile, 1)

*** FECHA DE NACIMIENTO ***

posini = AT("Fecha Nacimiento", lcHTML) + 17

posfin = AT("Sexo", lcHTML)

lcFecNac = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcFecNac+CHR(13)+CHR(10), lcFile, 1)

*** SEXO ***

posini = AT("Sexo", lcHTML) + 7

posfin = AT("Estado Civil", lcHTML)

lcSexo = SUBSTR(lcHTML, posini, posfin-posini)

STRTOFILE(lcSexo +CHR(13)+CHR(10), lcFile, 1)

*** ESTADO CIVIL ***

posini = AT("Estado Civil", lcHTML) + 14

posfin = AT("Lugar Nacimiento", lcHTML) - 2

lcEstadoCivil = SUBSTR(lcHTML, posini, posfin-posini)

...

[Jean Pierre Adonis De La Cruz Garcia]

Ta bonito, Dr. pero ya lo hemos logrado hacerlo sin digitar la imagen Captcha, jejeje.

Ya hay metodos para hacerlo, hay te dejo tu reto, como lo sabes, siempre hay retos que hay que superar, 

Tu Amigo tEc - "El Pajarraco"

El viernes, 4 de septiembre de 2015, 11:08:44 (UTC-5), YuLSoft escribió:

Y la de Reniec...

Salu2sss