Port
Dient zum Festlegen oder Abrufen des Ports des HTTP-Servers, mit dem eine Verbindung hergestellt werden soll.
Syntax
HTTPObject.Port
Bedeutung der Parameter:
Portist eine Zeichenfolge (read/write).
Beispiel
Dieses Skript verwendet dasselbe Objekt erneut, um eine Verbindung zu einem anderen Port herzustellen und dieselbe Anforderung zu übermitteln:
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)
'Anforderungstyp festlegen
HTTPobj.GetURL("/")
'Um durch den Proxy mit automatischer Authentifizierung zu gelangen,
'muss die Authentifizierung auf den Wert 1 festgelegt werden.
HTTPobj.Authentication = 1
'GET-Anforderung absenden
HTTPResponse1 = HTTPobj.SendRequest ()
HTTPobj.PORT = port2
HTTPResponse2 = HTTPobj.SendRequest ()
echo "Ergebnis: " + cstr(HTTPResponse1)+cr
echo "Ergebnis: " + cstr(HTTPResponse2)+cr
End Function