HeaderName

HeaderName devuelve el nombre del encabezado del objeto HTTPHeader.

Sintaxis

HeaderName (índice LARGO)

El intervalo válido para el índice se encuentra entre 0 y el número de encabezados.

Devolución

Una cadena que contiene el nombre del encabezado.

Ejemplo

Este script imprimirá los encabezados:

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,puerto)

'Configurar el tipo de solicitud

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

'Enviar la solicitud HEAD

HTTPResponse = HTTPobj.SendRequest ()

'Establecer nuevo objeto llamado encabezados

Set headers = HTTPobj.ResponseHeaders

'“headers.count” contiene el número de encabezados (largos)

echo "header count: " & CStr(headers.Count) & cr

upbound = headers.Count - 1

'para cada encabezado, aplicar repetición hacia atrás a Nombre de Encabezado y Valor de Encabezado

For hn=0 To upbound

echo headers.HeaderName(hn) & vbTab & "-->" & vbtab & headers.HeaderValue(hn) & cr

Siguiente

End Function