Porta
Define ou recupera a porta do servidor HTTP para se conectar.
Sintaxe
HTTPObject.Porta
Na qual:
Portaé uma cadeia de caracteres (leitura/gravação).
Exemplo
Este script usará novamente o mesmo objeto para se conectar a uma porta diferente e enviar a mesma solicitação:
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)
' Configura o tipo de solicitação
HTTPobj.GetURL("/")
'para passar pelo proxy com autenticação automática
'Precisa alterar autenticação para 1
HTTPobj.Authentication = 1
'Envia solicitação GET
HTTPResponse1 = HTTPobj.SendRequest ()
HTTPobj.PORT = port2
HTTPResponse2 = HTTPobj.SendRequest ()
echo “Resultado: " + cstr(HTTPResponse1)+cr
echo “Resultado: " + cstr(HTTPResponse2)+cr
End Function