Ok, I try to communicate with a web service who receive xml message under a
https using SSL.

I have a directory with 240 XML files on my desktop. I loop into it to send
each file one by one.

Abritrary, after 10, 15, 56, 79.... files, (sometimes I can pass all of
them??? ) I receive this error :

The underlying connection as closed: Could not establish secure channel for
SSL/TLS

I tried to connectiong to the webservice once for all the files, then  i
tried to open a connection for
every file, same result.

Anyone have an idea of what's going on? Is it my code or the webservice?

Tks

Here is my code.

////////////////////////////////////  MessagerieService class generate by
WSDL   ////////////////////////////////////////////////

Public Sub New(ByVal _Url As String, ByVal _UserName As String, ByVal
_PassWord As String)
       MyBase.New()
       Me.Url = _Url
       Me.Credentials = New NetworkCredential(_UserName, _PassWord)
       strNomUtil = _UserName
       strMotPs = _PassWord
   End Sub

   <System.Web.Services.Protocols.SoapRpcMethodAttribute("",
RequestNamespace:="urn:Messagerie", ResponseNamespace:="urn:Messagerie")> _
      Public Function SendindMessage(ByVal nomFile As String, _
                                     ByVal msg As String) _
                                     As
<System.Xml.Serialization.SoapElementAttribute("result")> String

       Dim results() As Object = Me.Invoke("SendindMessage", New Object()
{nomFile, msg})
       Return CType(results(0), String)

   End Function

////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////

This is my class who encapsulate the proxy class

//////////////////////////////////////////////////////  ServiceWeb Class
//////////////////////////////////////////////////////////

Public Sub New(ByVal _Url As String, _
                  ByVal _NomUtil As String, _
                  ByVal _MotPs As String)

       strUrl = _Url
       strUtil = _NomUtil
       strMotPs = _MotPs
   End Sub

   Public Function SendindMessage(ByVal _nomFile As String, ByVal _msg As
String) As String

       msg = New MessagerieService(strUrl, strUtil, strMotPs)
       Return msg.SendindMessage(_nomFile, _msg)

   End Function

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
///////

///////////////////////////////////////////////   My form who call my
ServiceWeb ////////////////////////////////////////////////////////

Private Sub SendindMessage(ByVal _Fichier() As String)
       Dim intFile As Integer = _Fichier.Length
       Dim intCtr As Integer
       Dim strTest As String

       For intCtr = 0 To intFile - 1
           Try
               Dim sr As New StreamReader(File.OpenRead(_Fichier(intCtr)))
               Dim msg As New ServiceWeb(txtUrl.Text,
txtNomUtilisateur.Text, txtMotPasse.Text)
               txtIdMessage.Text = msg.SendindMessage(txtNomDeFile.Text,
sr.ReadToEnd)
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       Next
       MessageBox.Show("Success")
   End Sub

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////