Aplicación no se puede comunicar a webservices en conexiones con proxy

[gnzsoloyo]

Tengo una aplicación de escritorio en Vb.Net 2003 que utiliza algunos webservices y tiene que conectarse a ciertos recursos en web. En general anda perfectamente en todas las computadoras, servidores, etc.
Pero algunas empresas tienen proxys instalados, y en esos casos las peticiones HttpRequest que intenta usar este programa no pueden acceder al destino, o no pueden recibir los datos. No he logrado saberlo.
Se supone que la programación de la petición está incluyendo código para resolver el problema, el cual saqué de la documentación de Microsft en el MSDN, pero no funciona.

¿ALguien me puede decir cómo se hace para resolver que un programa pueda comunicarse, enviar y recibir información de un webservice en un sistema que tiene un proxy de salida?
¿Cómo se programa esto?

[gnzsoloyo]

Voy a tratar de replantear el problema.
- El programa que hice tiene que enviar un XML que se almacenará tal y como está en una base de datos. Para ello realiza una petición HttpRequest dirigida a un script de PHP que está en la web, en una página.

Carga de parámetros y petición:

Código vb:

oScript = "setactivate"
                        oWB = New BridgeClass.WebBridge
                        With oWB
                            .Parametro = "usr=" & Convert.ToString(oTabla.Rows(0).Item("unm"))
                            .Parametro = "pwd=" & Convert.ToString(oTabla.Rows(0).Item("prd"))
                            .Parametro = "fecha=" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
                            .Parametro = "pet=A"
                            .Parametro = "stat=P"
                            .Parametro = "soft=1"
                            .Parametro = "xmlMsg=" & oXml
                            .Parametro = "c=" & wBase
                            .Parametro = "q=" & pSoft
                            .Parametro = "t=" & uSoft
                        End With
                        GetData(1)
 

- "setactivate" es el nombre del script.
- BridgeClass es una clase creada para generar el enlace, enviar la petición y recibir la respuesta.
- oXML es un String conteniendo el XML, en formato texto plano.
- c, q, t, son los parámetros de base, usuario y password que se utilizarán en el script. El resto son diferentes parámetros del script.
- AL crear el objeto solo se cargan los parámetros c, q y t.

Envío de petición (GetData())

Código vb:

Private Function GetData(ByVal View As Byte) As DataSet
            'Establecer los valores del objeto WebBridge y lamara a Connect()
            Dim Xdoc As New Xml.XmlDocument
            DSet = New DataSet
            With oWB
                .URL = oPath & oScript & ".php"
                .PostData = "view=" & View & "&" & .Parametros
                .Connect()
            End With
            Try
                Xdoc.LoadXml(oWB.XMLResponse)
                Dim sReader As New StringReader(Xdoc.InnerXml)
                DSet.ReadXml(sReader)
            Catch ex As System.Xml.XmlException
                Return New DataSet
            Catch ex As Exception
                DSet = New DataSet
            End Try
            Return DSet
        End Function
 

- En esta parte se combinan la URL cargada, el nombre del script y los parámetros.
- Connect() es el que genera toda la tarea.

Conexión, petición y respuesta:

Código vb:

Public Sub Connect()
            ServicePointManager.UseNagleAlgorithm = True
            ServicePointManager.Expect100Continue = False
            ServicePointManager.CheckCertificateRevocationList = True
            ServicePointManager.DefaultConnectionLimit = ServicePointManager.DefaultPersistentConnectionLimit
            ' ---------------------------------------------------------------------------------
            Dim rq As WebRequest = WebRequest.Create(URL)
            Dim newUri As Uri
            Dim pr As System.Net.WebProxy
            Try
                With rq
                    If nuevoLogin.RegServer.RutaProxy <> "" Then
                        pr = New System.Net.WebProxy(login.RgServer.UrlProxy, Convert.ToInt32(login.RgServer.PortProxy))
                        rq.Proxy = pr
                    End If
                    .Method = "POST"
                    .ContentType = "application/x-www-form-urlencoded"
                    If _to > 0 Then
                        .Timeout = _to
                    End If
                End With
                SendData(rq, PostData)
                _rsp = GetXMLResponse(rq)
            Catch ex As System.Net.WebException
                oLogWriter.Escribir("WebExcepción en WebBridge.Connect()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
            Catch ex As Exception
                oLogWriter.Escribir("Excepción en WebBridge.Connect()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
            End Try
        End Sub
 

- login.RgServer.UrlProxy es la url local donde está el proxy, según declaró el usuario.
- login.RgServer.PortProxy es el Port del proxy declarado por el usuario.
- SendData() envía la petición.

SendData

Código vb:

Private Sub SendData(ByRef req As WebRequest, ByVal data As String)
            Dim sr As Stream
            Dim b As Byte() = Encoding.UTF8.GetBytes(data)
            req.ContentLength = b.Length
            If _to > 0 Then
                Try
                    sr = req.GetRequestStream()
                Catch ex As System.Net.WebException
                    Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes("F")
                    sr = New MemoryStream(bytes)
                    oLogWriter.Escribir("WebExcepción en WebBridge.SendData()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
                Catch ex As Exception
                    Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes("F")
                    sr = New MemoryStream(bytes)
                    oLogWriter.Escribir("Excepción en WebBridge.SendData()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
                End Try
            Else
                sr = req.GetRequestStream()
            End If
            sr.Write(b, 0, b.Length)
            sr.Close()
        End Sub
 

Este es el conjunto de códigos que se usa. En esta última función es donde se manifiesta el problema, simplemente no puede salir o retornar el envío al script.
El problema es que sólo falla si el usuario tiene un proxy propio instalado (usualmente en algunas), pero no trae problemas en ningún otro caso, incluyendo conexiones hogareñas, publicas con WiFi, o la que sea. Sólo si hay un proxy en ese sitio, y obviamente no se les puede pedir que lo quiten...

¿Hay algún error en estos códigos? ¿Habrá una forma de evitar este problema?

[NetFcruz]

Hola Hermano, soy nuevo en esto de consumir un webservice desde vb.net 2010, pasa que genero un xml y este lo tengo que enviar al webservice siguiente: http://www2.soriana.com/Integracion/RecibeCFD/wseDocRecibo.asmx
Ahora solo me falta implementar el codigo, pero me podrias auxiliar veo ke se parece tu codigo al que prentendo generar como enviar el XML si como string o tomo el valor de la variable que contiene mi xml como xmldocument, o cargar desde un dir el xml y enviarlo, saludos, espero me haya explicado.

[gnzsoloyo]

Pues, mira, yo ya no trabajo en ese proyecto. E incluso ya no estoy en desarrollo, sino que trabajo como Analista Funcional para una consultora, por lo que lamento no poder aportarte una solución.
También te comento que no pude en ese tiempo resolver el dilema, y obviamente nadie me contestó.
Desconozco el estado actual del proyecto, debido a que no conservo vínculos con el equipo actual de desarrollo.