Get POST ID from page

pageid.vbs

' Solicita ao usuário a URL
url = InputBox("Insira a URL da página:", "Capturar POST ID")

' Verifica se a URL foi inserida
If url <> "" Then
    ' Cria o objeto para fazer a requisição HTTP
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    On Error Resume Next
    ' Faz a requisição GET
    http.SetOption 2, 13056 ' Ignora erros de certificado SSL/HTTPS
    http.Open "GET", url, False
    http.Send
    On Error GoTo 0
    
    ' Verifica se a requisição foi bem-sucedida
    If http.Status = 200 Then
        ' Obtém o conteúdo da resposta
        responseText = http.responseText
        
        ' Define a expressão regular para capturar o número do POST ID
        Set regEx = CreateObject("VBScript.RegExp")
        regEx.Pattern = "<!--\s*POST ID:\s*(\d+)\s*-->"
        regEx.IgnoreCase = True
        regEx.Global = False
        
        ' Procura pelo padrão na resposta
        Set matches = regEx.Execute(responseText)
        If matches.Count > 0 Then
            ' Captura o número do primeiro match
            postId = matches(0).SubMatches(0)
            MsgBox "POST ID encontrado: " & postId, vbInformation, "Resultado"
        Else
            MsgBox "POST ID não encontrado na página.", vbExclamation, "Erro"
        End If
    Else
        MsgBox "Erro ao acessar a URL. Código de status: " & http.Status, vbCritical, "Erro"
    End If
    
    ' Libera os objetos
    Set http = Nothing
    Set regEx = Nothing
Else
    MsgBox "Nenhuma URL foi inserida.", vbExclamation, "Aviso"
End If