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:
Linea: 11
Caracter: 1
Error: Error no especificado
Codigo: 80004005
Origen: (null)
El segundo va 100%
Entonces esta claro ...
CitarError: Error no especificado
Raro :-\ .. que win tienes? tradicional? UE? navegador?
Saludos
Citarque win tienes?
Vista
Citarnavegador?
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