Contagem

Retorna o número de entradas de cabeçalho no objeto HTTPHeaders.

Sintaxe

HTTPHeadersObject.Count

Na qual:

• Count é longo (leitura)

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