ClearRequestHeaders
Borra todos los encabezados previamente establecidos con el método AddHeader.
Sintaxis
ClearRequestHeaders
Valor devuelto
No se devuelven datos.
Ejemplo
Este script modificará algunos encabezados en un intento por iniciar un ataque de scripts entre sitios en analizadores de archivos de registro:
Function Main
Dim HTTPObj As Object
Dim headers As Variant
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
XSSTest = "<script>alert('El nuevo GFI LanGuard incorpora la detección de scripts entre sitios')</script>"
Set HTTPobj = HTTP.Connect (ip,puerto)
'encabezados para probar
headers = Matriz ( "Host", "Usuario-Agente", "Accept", "X-Header1" , "X-Proxy", "Cookie" )
HTTPobj.GetURL("/")
HTTPobj.Authentication = 1
'un ciclo para cada encabezado que se podría utilizar para
'inyectar una firma XSS. Enviar una solicitud en cada ocasión
For a = LBound(encabezados) To UBound(encabezados)
HTTPobj.ClearRequestHeaders
HTTPobj.AddHeader headers(a), XSSTest
'Enviar la solicitud GET con los encabezados personalizados
HTTPResponse = HTTPobj.SendRequest ()
echo CStr(a) + " result: " + CStr(HTTPResponse)+cr
Siguiente
End Function