HeaderValue

HeaderValue recupera o valor do cabeçalho do objeto HTTPHeaders.

Sintaxe

HeaderValue (VARIANTE índice)

Na qual:

• Índices é uma cadeia de caracteres ou valor longo
• O valor da cadeia de caracteres será usado se você quiser recuperar um valor ao informar o nome do cabeçalho (exemplo: Servidor ). HeaderValue também pode ser recuperado a partir de um índice. O intervalo válido para esse índice é entre 0 e o número de cabeçalhos.

Retorno

Uma cadeia de caracteres contendo o valor do cabeçalho.

Exemplo

Este script imprime o nome do servidor HTTP:

Function Main

Dim HTTPObj as Object

Dim headers as Object

ip = "www.gfi.org"

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

'HTTPResponse contém o código de retorno

echo “Resultado: " + cstr(HTTPResponse) + cr

echo “O servidor executando em " + ip + " é " + headers.HeaderValue("server") + cr

End Function