ClearRequestHeaders
以前に AddHeader メソッドで設定されていたすべてのヘッダーをクリアします。
構文
ClearRequestHeaders
戻り値
戻されるデータはありません。
例
このスクリプトは、ログ ファイル パーサーに対するクロス サイト スクリプト攻撃を起動する試行において、いくつかのヘッダーを変更します。
Function Main
Dim HTTPObj As Object
Dim headers As Variant
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
XSSTest = "<script>alert('The new GFI LanGuard features detection of Cross Site Scripting Detection')</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
HTTPResponse = HTTPobj.SendRequest ()
echo CStr(a) + "結果: " + CStr(HTTPResponse)+cr
Next
End Function