Hola,
Hace poco plantee un problema que tenia para acceder a una web con usuario y contraseña, no sabia como hacerlo. Bueno la forma que he encontrado de hacerlo es usando el objeto
Microsoft.XMLHTTP pero le veo un pequeño problema.... No siempre me funciona, muchas de las veces me da
error 401 No autorizado . La cosa es que si me conecto yo manualmente y luego ejecuto el programa si que me funciona pero si lo hago directamente por programa es cuando me suele dar este error.
El problema es que lo tengo que lanzar una vez al día y si me da error de vez en cuando pues no se que hacer.....Las veces que me da el error 401 por programa seguido me he conectado manualmente y no tengo ningún problema....
Os adjunto el código por si a alguien le sirve de algo..... y si me pudieseis ayudar con alguna solución....
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
xmlHTTP.open "GET", sUrl & sNomFichero, False, sUsuario, sContra
xmlHTTP.setRequestHeader "Accept-Language", "sp"
xmlHTTP.setRequestHeader "Pragma", "no-cache"
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHTTP.setRequestHeader "Content-Type", "text/html"
xmlHTTP.setRequestHeader "charset", "ISO-8859-1"
xmlHTTP.send
If xmlHTTP.Status <> 200 Then
'Error
End If
sResul = xmlHTTP.responseXML.xml
bOk = xmlHTTP.abort()
