Correos electrónicos afectados
Devuelve el número de entradas de encabezado en el objeto HTTPHeaders.
Sintaxis
HTTPHeadersObject.Count
Donde:
Count
es largo (lectura)
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