VB.NET: How to accept web service SSL Certificate Policy in run-time?

The Problem. I am creating a .NET windows application that will connect to particular web service located in a HTTPS site. The challenge was, the HTTPS site I'm accessing requires all request to accept it's certificate policy. So the design of my application should accept security certificate dialog boxes automatically. A sample security dialog is shown below:




The solution. First we have to create a class that will override CheckValidationResult function of System.Security.Cryptography.X509Certificates; Here's the custom code of the class I created:

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

Public Class MyPolicy
Implements ICertificatePolicy

Public Function CheckValidationResult(ByVal srvPoint As ServicePoint, _
ByVal cert As X509Certificate, ByVal request As WebRequest, _
ByVal certificateProblem As Integer) _
As Boolean Implements ICertificatePolicy.CheckValidationResult
'Return True to force the certificate to be accepted.
Return True
End Function
End Class

Then you can call the class anywhere before you execute the web service.

System.Net.ServicePointManager.CertificatePolicy = New MyPolicy
'Call web service here

Summary. On this solution we override the CheckValidationResult function of System.Net.ServicePointManager.CertificatePolicy class to create a custom one that will accept all security certificate automatically. You can also implement this solution to any .NET languages like C# and C++

Now were done. Happy Coding to all!