Porta
Imposta o recupera la porta del server HTTP a cui connettersi.
Sintassi
HTTPObject.Port
Dove:
Portè una stringa (lettura/scrittura)
Esempio
Lo script utilizzerà di nuovo lo stesso oggetto per connettersi a un’altra porta e inviare la stessa richiesta:
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)
' Impostazione del tipo di richiesta
HTTPobj.GetURL("/")
'passaggio tramite proxy con autenticazione automatica
'l’autenticazione deve essere impostata su 1
HTTPobj.Authentication = 1
'Invio della richiesta GET
HTTPResponse1 = HTTPobj.SendRequest ()
HTTPobj.PORT = port2
HTTPResponse2 = HTTPobj.SendRequest ()
echo "Risultato: " + cstr(HTTPResponse1)+cr
echo "Risultato: " + cstr(HTTPResponse2)+cr
End Function