[Web Service]Console Mode 基礎連接已關閉: 無法為SSL/TLS 安全通道 忽略認證

 
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates

Module Module1

    Sub Main()
        Dim oWebCilent As New TEST.ReceiveClient
        Dim oResponse As TEST.ServiceResponse
        '委派認證回呼
        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateServerCertificate)
        Try
            '........
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
    '忽略認證直接回傳True
    Public Function ValidateServerCertificate(ByVal sender As [Object], ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
        Return True
    End Function
End Module