Public Class ierep
    Friend WithEvents ie As New SHDocVw.InternetExplorer
    Private Sub ierep_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim args As String() = Environment.GetCommandLineArgs()
 
        Dim givenURL As String = "False"
        For i As Integer = 1 To args.Length - 1
            givenURL = args(i)
        Next
 
        ie.Visible = True
        If Not givenURL = "False" Then
            ie.Navigate(givenURL)
        Else
            ie.Navigate(IEGetStartPage)
        End If
    End Sub
    Private Sub changedURL() Handles ie.DocumentComplete
        If ie.LocationName = "https://zertifikatfehler" Then
            ie.Document.getelementbyid("overridelink").click()
        End If
        If ie.LocationURL = "https://blablabal.de/login.php" Then
            ie.Document.getelementbyid("username").value = "user"
            ie.Document.getelementbyid("password").value = "pass"
            ie.Document.getelementbyid("login_submit").click()
        End If
        If ie.LocationURL = "https://www.google.de/" Then
            ie.Document.getelementbyid("gbqfq").value = "test"
        End If
    End Sub
    Public Function IEGetStartPage() As String
        Dim sURL As String = CStr(My.Computer.Registry.GetValue( _
          "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\", _
          "Start Page", ""))
        Return sURL
    End Function
End Class