Foro de elhacker.net

Hay alguna funcion para poder manejar cosas web? :rolleyes:

uhm creo q esto no explica nada xDD

Por ejemplo, mirar si www.paginainventada.com tiene la palabra "NovLucker" escrita en el code fuente, etc.. ;D

Dos objetos que si bien comence a escribir, quedaron por la mitad y nunca los incluí en el tuto :-X

set objie = createobject("internetexplorer.application")
url = "http://www.google.es"
 
objie.navigate url
objie.visible = true
 
Do while objie.busy
 wscript.sleep 200
Loop
 
msgbox objie.document.body.innerhtml
'Codigo fuente web
msgbox objie.document.body.innertext
'Tal cual se ve la web
 
'No se muestra todo el texto porque el msgbox no tiene espacio

Set objxmlhttp = createobject("microsoft.xmlhttp")
url = "http://www.google.es"
 
objxmlhttp.open "GET", url, 0
objxmlhttp.send()
 
Do until objxmlhttp.readystate = 4
 wscript.sleep 200
Loop
 
msgbox objxmlhttp.responsetext
'No se muestra todo el texto porque el msgbox no tiene espacio

Te los dejo como ejemplo, te toca investigar un poquito en lo referente a ellos

Saludos

Probe el primer code y da error la linea 11  :-\

Que error? a mi me va bien :-\ ... intenta ser un poco más específico

Y el segundo?

Saludos

El primer code me abre google y luego me salta el error:



El segundo va 100%

Entonces esta claro ...

Raro  :-\ .. que win tienes? tradicional? UE? navegador?

Saludos

Vista

Firefox Rulez

Vista ... voy a ver de probar ese código en Vista
El navegador me refería a versión del iexplorer ... es que el código hace uso de este  :P

Saludos

8

Otra cosa, hay alguna forma de comprobar que lo introducido es una web/es una web que existe o no?

Por ejemplo si la introduce el usuario con un inputbox.

Si introduce "ASFASDFADfakdjfñlakdj" el code fallara logicamente, como podría comprobar que es una web?


Gracias :P

Me había olvidado ...

No puedes verificar que es una web directamente ... deberías de crearte una función para eso.

Otra opción es utilizar "on error resume next" u "on error goto", intentar hacer un GET a la web, si va bien todo ok, y si tira error entonces hay algo mal

Saludos