Dim callback As New RemoteCertificateValidationCallback(AddressOf OnCertificateValidation)
lFileStream = New FileStream(Filename, FileMode.Create)
Stream = New SslStream(lFileStream, False, callback)
Stream.AuthenticateAsClient(server)
If Stream.IsAuthenticated Then
' Indicates whether the authentication was successful.
Console.WriteLine("IsAuthenticated: {0}", Stream.IsAuthenticated)
' Indicates whether both the client and server has been authenticated.
' In this example only the server is authenticated.
Console.WriteLine("IsMutuallyAuthenticated: {0}", Stream.IsMutuallyAuthenticated)
' Indicates whether the SslStream uses data encryption.
Console.WriteLine("IsEncrypted: {0}", Stream.IsEncrypted)
' Indicates whether the data sent is signed.
Console.WriteLine("IsSigned: {0}", Stream.IsSigned)
' Indicates whether the current side of the connection is authenticated as a server.
Console.WriteLine("IsServer: {0}", Stream.IsServer)
End If
lHttpWebRequest = CType(WebRequest.Create(sURL), HttpWebRequest)
lHttpWebResponse = CType(lHttpWebRequest.GetResponse, HttpWebResponse)
lHttpWebResponseStream = lHttpWebRequest.GetResponse.GetResponseStream
pProgress.Value = 0
pProgress.Maximum = CType(lHttpWebResponse.ContentLength, Integer)
Do
bytesRead = lHttpWebResponseStream.Read(byteBuffer, 0, 1000)
lFileStream.Write(byteBuffer, 0, bytesRead)
