T
Toby
After running the following code i get the error.
An unhandled exception of type 'System.NotSupportedException' occurred in
system.dll
Additional information: The ServicePointManager does not support proxies of
https scheme.
All i'm trying to do is authenticate to a proxy and then use a web service.
everything is over https
Please any help would be great.
Toby
Public Class TrustAllCertificatePolicy
Implements System.Net.ICertificatePolicy
Sub New()
End Sub
Public Function CheckValidationResult(ByVal srvPoint As
System.Net.ServicePoint, _
ByVal
certificate As
System.Security.Cryptography.X509Certificates.X509Certificate, _
ByVal
request As System.Net.WebRequest, _
ByVal
certificateProblem As Integer) As Boolean Implements
System.Net.ICertificatePolicy.CheckValidationResult
Return True
End Function
End Class
Private Sub Test()
Dim oCD As New cdprocess.CDProcess
Dim cache As CredentialCache = New CredentialCache
Dim proxyObject As New WebProxy("https://secureproxy", True)
cache.Add(New Uri("https://secureproxy"), "Basic", New
NetworkCredential("username", "password"))
oCD.Proxy = proxyObject
oCD.Proxy.Credentials = cache
System.Net.ServicePointManager.CertificatePolicy = New
TrustAllCertificatePolicy
Me.TextBox1.Text = oCD.Test("username", "password")
End Sub
An unhandled exception of type 'System.NotSupportedException' occurred in
system.dll
Additional information: The ServicePointManager does not support proxies of
https scheme.
All i'm trying to do is authenticate to a proxy and then use a web service.
everything is over https
Please any help would be great.
Toby
Public Class TrustAllCertificatePolicy
Implements System.Net.ICertificatePolicy
Sub New()
End Sub
Public Function CheckValidationResult(ByVal srvPoint As
System.Net.ServicePoint, _
ByVal
certificate As
System.Security.Cryptography.X509Certificates.X509Certificate, _
ByVal
request As System.Net.WebRequest, _
ByVal
certificateProblem As Integer) As Boolean Implements
System.Net.ICertificatePolicy.CheckValidationResult
Return True
End Function
End Class
Private Sub Test()
Dim oCD As New cdprocess.CDProcess
Dim cache As CredentialCache = New CredentialCache
Dim proxyObject As New WebProxy("https://secureproxy", True)
cache.Add(New Uri("https://secureproxy"), "Basic", New
NetworkCredential("username", "password"))
oCD.Proxy = proxyObject
oCD.Proxy.Credentials = cache
System.Net.ServicePointManager.CertificatePolicy = New
TrustAllCertificatePolicy
Me.TextBox1.Text = oCD.Test("username", "password")
End Sub