Port
Establece o recupera el puerto del servidor HTTP con el que se establecerá la conexión.
Sintaxis
HTTPObject.Port
Donde:
Port
es una cadena (lectura/escritura)
Ejemplo
Este script reutilizará el mismo objeto para establecer la conexión con un puerto diferente y enviar la misma solicitud:
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,puerto1)
' Set up the request type
HTTPobj.GetURL("/")
'para pasar a través del proxy con autenticación automática
'La autenticación se debe fijar en “1”
HTTPobj.Authentication = 1
'Enviar la solicitud GET
HTTPResponse1 = HTTPobj.SendRequest ()
HTTPobj.PORT = puerto2
HTTPResponse2 = HTTPobj.SendRequest ()
echo "Result: " + cstr(HTTPResponse1)+cr
echo "Result: " + cstr(HTTPResponse2)+cr
End Function