OleObject HTTPRequest
Long ret,ll_PosicionCadena
Boolean lb_Error
String ls_HTML,ls_URL,ls_Cadena
HTTPRequest = Create OLEObject
ret = HTTPRequest.ConnectToNewObject( "Msxml2.XMLHTTP" )
if ret<0 then
ret = HTTPRequest.ConnectToNewObject("Microsoft.XMLHTTP" )
end if
// Si ocurre un error detenemos la rutina
if ret <0 then
MessageBox('Error','No ha sido posible crear el objeto')
return
end if
//Llamar Pagina
ls_URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias"
lb_Error=false
HTTPRequest.open("GET",ls_URL,false)
HTTPRequest.send()
if HTTPRequest.status=200 then
ls_HTML = HTTPRequest.responseText
yield()
else
ls_HTML ='Sitio No Disponible'
lb_Error=true
end if
//Obtenemos el Codigo de la Pagina HTML
//MessageBox(ls_URL,ls_HTML) <==============================
if not lb_Error then
//Buscar Una Cadena en el Codigo Fuente
ls_Cadena ='Para efectos del Impuesto'
ll_PosicionCadena = Pos(ls_HTML,ls_Cadena)
if ll_PosicionCadena >0 then /* Cadena Encontrada */
/* Mostrar la cadena que aparece en el sitio (como Ejemplo):
=========================================
" Para efectos del Impuesto a la Renta, se deberá tomar el tipo de cambio de cierre, al 31 de Diciembre del ejercicio correspondiente "
=========================================
*/
MessageBox('SoloCodigo.com - F_Tanori ','~n'+'SUNAT dice: ~n ~n'+mid(ls_HTML,ll_PosicionCadena,135) +'~n ~n'+ls_URL)
end if
end if