{Resuelto} [vbs] dudaas web.. =P

[xassiz_]

Hay alguna funcion para poder manejar cosas web?

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..

[Novlucker]

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

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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

[xassiz_]

Probe el primer code y da error la linea 11 

[Novlucker]

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

Y el segundo?

Saludos

[xassiz_]

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

Código [Seleccionar] Expandir


Linea: 11
Caracter: 1
Error: Error no especificado
Codigo: 80004005
Origen: (null)



El segundo va 100%

[Novlucker]

Entonces esta claro ...

Error: Error no especificado

Raro  .. que win tienes? tradicional? UE? navegador?

Saludos

[xassiz_]

que win tienes?

Vista

navegador?

Firefox Rulez

[Novlucker]

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 

Saludos

[xassiz_]

8

[xassiz_]

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