AddHeader
AddHeader 用于修改添加、删除或修改现有标头的初始请求。
语法
AddHeader (STRING 名称, STRING 值)
其中：
名称是字符串（例如：Content-Type）。 如果名称已存在，将使用指定的值覆盖该名称的值。值是字符串，例如：text/html。 如果值为空，则标头（如果存在）将被删除。
返回值
不返回数据。
示例
此脚本将修改一些标头，尝试启动日志文件分析程序上的跨站点脚本攻击：
函数 Main
Dim HTTPObj As Object
Dim headers As Variant
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
XSSTest = "<script>alert('新的 GFI LanGuard 包含跨站脚本攻击检测功能')</script>"
Set HTTPobj = HTTP.Connect (ip,port)
'要尝试的标头
headers = Array ( "Host", "User-Agent", "Accept", "X-Header1" , "X-Proxy", "Cookie" )
HTTPobj.GetURL("/")
HTTPobj.Authentication = 1
'可能要使用的每个标头的循环
'插入 XSS 签名。 每次发送一个请求
For a = LBound(headers) To UBound(headers)
HTTPobj.ClearRequestHeaders
HTTPobj.AddHeader headers(a), XSSTest
'使用我们自定义的标头发送 GET 请求
HTTPResponse = HTTPobj.SendRequest ()
echo CStr(a) + " result: " + CStr(HTTPResponse)+cr
下一步
End 函数