HeaderName
HeaderName recupera o nome do cabeçalho do objeto HTTPHeader.
Sintaxe
HeaderName (índice LONGO)
O intervalo válido para indexação entre 0 e o número de cabeçalhos.
Retorno
Uma cadeia de caracteres contendo o nome do cabeçalho.
Exemplo
Este script imprime os cabeçalhos:
Function Main
Dim HTTPObj as Object
Dim headers as Object
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
Set HTTPobj = HTTP.Connect (ip,port)
'Configura o tipo de solicitação
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
'Envia solicitação HEAD
HTTPResponse = HTTPobj.SendRequest ()
'Determina novo Objeto chamado cabeçalhos
Set headers = HTTPobj.ResponseHeaders
'headers.count contém o número de cabeçalhos (longo)
echo “contagem cabeçalhos: " & CStr(headers.Count) & cr
upbound = headers.Count - 1
'para cada cabeçalho, repetir HeaderName e HeaderValue
For hn=0 To upbound
echo headers.HeaderName(hn) & vbTab & "-->" & vbtab & headers.HeaderValue(hn) & cr
Next
End Function