Obtener título de una ventana Https

[afigueroaf]

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,

[Abraham Valencia]

Hola

Pon algunos ejemplos de webs con las que no te resulta ya que no hay relación con que uses https. No olvides que no todas las web usan la etiqueta TITLE.

Saludos.

[afigueroaf]

Hola Abraham,

Muchas gracias nuevamente por responder, por ahora sólo tengo un ejemplo, pero si sirve para este estamos bien
https://coiquen-acot.enlazza.net:16900/

[Abraham Valencia]

Bueno, al parecer es una web de intranet o no existe o etc. Ese es el dilema.

[afigueroaf]

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 

[afigueroaf]

Incluso si lo abro directamente desde Excel ocurre algo parecido

[Abraham Valencia]

"o etc."... cuando  no tienen certificado, no puedes entrar a ellas con VBA usando GET o POST (o similar) como cuando lo haces de forma manual, que es lo que has puesto de ejemplos.

[afigueroaf]

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