WebBrowser control, HTTPS SSL certificate security dialog

[akuma6099]

I'm writing a util that uses a hidden webbrowser control to traverse through a few .aspx pages. These are through an SSL enabled site. I want to accept the certificate and or install it locally instead of the end user clicking on "yes" to accept it. I've googled for quite some time and found 2 different methods. One for .NET 1.1 and .NET 2.0. I cannot get either to work. The dialog still pops up. I am trying to put this into a module. Here's what I have tried.

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

Module VWeb

Dim WithEvents WB As New WebBrowser
Dim ASPComplete As Integer = 0
Dim LoginURI As New Uri("https://XXX.com/Login.aspx")
Dim OpenCallsURI As New Uri("https://XXX.com/openCallReport.aspx")
Dim MainPage As New Uri("https://XXX.com/Default.aspx")
Dim TestTimer As New Timer()

Public Function LoginAsTech(ByVal UserID As String, ByVal Pass As String) As Boolean
Dim MyDoc As New mshtml.HTMLDocument
Dim DocElements As mshtml.IHTMLElementCollection = Nothing
Dim LoginForm As mshtml.HTMLFormElement = Nothing

    ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)
    
    ASPComplete = 0
    WB.Navigate(LoginURI)
    BrowserLoop()

    MyDoc = WB.Document.DomDocument
    DocElements = MyDoc.getElementsByTagName("input")
    For Each i As mshtml.IHTMLElement In DocElements

        Select Case i.name
            Case "seLogin$UserName"
                i.value = UserID
            Case "seLogin$Password"
                i.value = Pass
            Case Else
                Exit Select
        End Select

        frmServiceCalls.txtOut.Text &= i.name & " : " & i.value & " : " & i.type & vbCrLf
    Next i
    'WB.Document.Forms("form1").InvokeMember("submit")


    LoginForm = MyDoc.forms.item("form1")
    LoginForm.item("seLogin$LoginButton").click()
    ASPComplete = 0
    BrowserLoop()



    MyDoc = WB.Document.DomDocument
    DocElements = MyDoc.getElementsByTagName("input")
    For Each j As mshtml.IHTMLElement In DocElements
        frmServiceCalls.txtOut.Text &= j.name & " : " & j.value & " : " & j.type & vbCrLf

    Next j

    frmServiceCalls.txtOut.Text &= vbCrLf & vbCrLf & WB.Url.AbsoluteUri & vbCrLf

[sph3rex]

You still can process the output of webrequest or httpwebrequest with webbrowser control using WebBrowser.DocumentStream property ... so for test purposes make the request with a webrequest and redirect the incoming stream to documentstream property. Additionally ServicePointManager serves for managed code usage, while webbrowser is a wrapper around the shdocwhatever.

[BimJeam]

The answer from sph3rex is an entirely valid one, however if you still want to do it using your hidden window I have a solution that will assist you. It is part of an article detailing various WebBrowser/Security 'tricks' that I have employed that I am currently writing up. It should be published here on Code Project shortly (i.e. in the next week) and I will notify you when it is ready. BimJeam

[akuma6099]

I look forward to it. I'm sure it will help others. I'm experimenting with the DocumentStream property. So far it's been ok. Not getting what I wanted but still tweaking about. Thanks.

[BimJeam]

Ok, it is up - see http://www.codeproject.com/KB/shell/WebBrowserControlDialogs.aspx[^] Hopefully this helps.