Socket con Proxy

02/07/2004 - 22:01 por Fabian Brussa | Informe spam
Hola , estoy usando una conexión a un servidor de la siguente manera

mClient = New TcpClient(Servidor, 4434)
mClient.GetStream.BeginRead(marData, 0, 1024, AddressOf Leer, Nothing)

funciona perfectamente.. ahora se me presento el problema que la PC
cliente. osea en la q corro la aplicacion, esta detras de un servidor
proxy.. q puede ser http o socket.
Alguna idea de como conectarme al servidor pasando por el proxy???.

Por ahi lei algo asi :
mobjClient = New TcpClient(cProxy_ip, nProxy_puerto)

Dim ns As NetworkStream = mobjClient.GetStream()

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("CONNECT " &
Servidor & ":4434" & " HTTP/1.1" & ControlChars.CrLf & "Host: " &
Servidor & ":4434" & ControlChars.CrLf & ControlChars.CrLf)

ns.Write(sendBytes, 0, sendBytes.Length)

pero no me funciona... si alguien sabe como arracar.. gracias

Fabián
 

Leer las respuestas

#1 Fabian Brussa
07/07/2004 - 17:16 | Informe spam
nadie?

"Fabian Brussa" escribió en el mensaje
news:
Hola , estoy usando una conexión a un servidor de la siguente manera

mClient = New TcpClient(Servidor, 4434)
mClient.GetStream.BeginRead(marData, 0, 1024, AddressOf Leer, Nothing)

funciona perfectamente.. ahora se me presento el problema que la PC
cliente. osea en la q corro la aplicacion, esta detras de un servidor
proxy.. q puede ser http o socket.
Alguna idea de como conectarme al servidor pasando por el proxy???.

Por ahi lei algo asi :
mobjClient = New TcpClient(cProxy_ip, nProxy_puerto)

Dim ns As NetworkStream = mobjClient.GetStream()

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("CONNECT " &
Servidor & ":4434" & " HTTP/1.1" & ControlChars.CrLf & "Host: " &
Servidor & ":4434" & ControlChars.CrLf & ControlChars.CrLf)

ns.Write(sendBytes, 0, sendBytes.Length)

pero no me funciona... si alguien sabe como arracar.. gracias

Fabián


Preguntas similares