Port
接続する HTTP サーバーのポートを設定または取得します。
構文
HTTPObject.Port
内容:
Portは文字列です (読み取り/書き込み)。
例
このスクリプトは同じオブジェクトを再利用して異なるポートに接続し、同じリクエストを送信します。
Function Main
Dim HTTPObj as Object
ip = "127.0.0.1"
port1 = 80
port2 = 81
cr = Chr(13) + Chr(10)
Set HTTPobj = HTTP.Connect (ip,port1)
' リクエスト タイプを設定
HTTPobj.GetURL("/")
' 自動認証でプロキシを通過
' 認証を 1 に設定
HTTPobj.Authentication = 1
' GET リクエストを送信
HTTPResponse1 = HTTPobj.SendRequest ()
HTTPobj.PORT = port2
HTTPResponse2 = HTTPobj.SendRequest ()
echo "Result: " + cstr(HTTPResponse1)+cr
echo "Result: " + cstr(HTTPResponse2)+cr
End Function