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

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

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

Y el segundo?

Saludos

Entonces esta claro ...

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

Saludos

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

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