Jump to content

Obtener título de una ventana Https


Recommended Posts

Dim Titulo$
Dim objHttp As Object

Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "GET", "https://sitioaverificar", False
objHttp.Send ""

Titulo = objHttp.ResponseText

If InStr(1, UCase(Titulo), "<TITLE>") Then
    Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>"))
    Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1)
Else
    Titulo = ""
End If

MsgBox Titulo

Hola a todos,

Estoy utilizando esta macro para obtener el título de un sitio http para saber si se encuentra ok o no, funciona a la perfección, pero no me resulta para los sitios https

Sólo necesito extraer el título  de la venta (ver foto adjunta de ejemplo) 

Si oz pudierais ayudarme lo agradecería infinitamente 

Gracias,

Imagen2.jpg

Link to comment
Share on other sites

Yo si puedo entrar, primero hago clic en avanzado y luego en continuar y entonces llego a la página que necesito revisar. Esto sólo ocurre la primera vez, luego si lo intento nuevamente carga el sitio inmediatamente y no me vuelve a preguntar 

Imagen17.jpg

Link to comment
Share on other sites

  • 2 weeks later...

Nuevamente muchas gracias Abraham por tu tiempo y la ayuda, tienes razón,  no se puede automatizar a través de código VBA, por lo tanto, tuvimos que implementar una solución Semiautomática o Artesanal, con la opción "Ver Código Fuente de la Página" (Ctrl + U) y ahí recién logramos obtener el title

image.thumb.jpeg.ae6ee4afb6022f55105ba06e2151b956.jpeg

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy