Visual Basic

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

        Return 1
    End Function

    Public Sub BrowserLoop()
        Do Until ASPComplete = 1
            Application.DoEvents()
        Loop

    End Sub



    Private Sub WB_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
        ASPComplete = 1
        frmMain.tsProgress.Visible = False
        frmMain.lblProgress.Text = ""
    End Sub


    Private Sub WB_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB.Navigating
        frmMain.tsProgress.Visible = True
        frmMain.lblProgress.Text = "Navagating"
    End Sub

    Public Sub WB_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WB.ProgressChanged
        frmMain.tsProgress.Maximum = Convert.ToInt32(e.MaximumProgress)
        frmMain.tsProgress.Value = Convert.ToInt32(e.CurrentProgress)
    End Sub

    Public Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As Security.SslPolicyErrors) As Boolean
        'Return True to force the certificate to be accepted.
        Return True
    End Function
End Module

frmMain_Load Event()
ServicePointManager.ServerCertificateValidationCallback = New CertPolicyOverride





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

Public Class CertPolicyOverride
    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

ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)

        
Public Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As Security.SslPolicyErrors) As Boolean
        'Return True to force the certificate to be accepted.
        Return True
    End Function

Sum modulo $FFFF of all characters from position two of the data and up to the last
character prior to the checksum identifier character. Value is a 4-byte hexadecimal number
preceded by space. Hex number is represented as a lowercase ASCII hex.