Public Class frmBundesanzeigerZollTarif

    ' Public url As String = "http://www.awr-portal.de/startt.jsp?userName=TNVERAG&userPw=zoll&product=ta"
    Public url As String = "http://www.awr-portal.de/startt.jsp?userName=TNVERAG&userPw=ZOLL&product=ta"
    Dim cnt As Integer = 0

    Sub New(Optional Link = "")

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Select Case Link
            Case "EU"
                url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
        End Select
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmBundesanzeigerZollTarif_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
        Me.Top = 0
        cnt = 0
        lblError.Visible = False
        WebBrowser.Navigate(New Uri(url))
        WebBrowser.AllowNavigation = True
        WebBrowser.ScriptErrorsSuppressed = True 'Hinweismeldungen bzgl sicherer Verbindung unterbinden

    End Sub

    Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowser.NewWindow2
        Dim F As New frmPopup
        F.Show() 'important to call show method before the following lines to ensure
        F.Name = ""
        e.ppDisp = F.WebBrowserEx1.Application
        F.WebBrowserEx1.RegisterAsBrowser = True
    End Sub


    Private Sub WebBrowser_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs)
        If WebBrowser.DocumentText.ToString.Contains("Zur Anmeldung") Then
            If cnt <= 3 Then
                WebBrowser.Navigate(New Uri(url))
                cnt += 1
            Else
                lblError.Visible = True
            End If
        Else
            cnt = 0
        End If
    End Sub
    Sub submit()
        ' WebBrowser.Document.Forms.GetElementsByName("fm_schnellsuche").Item("sText").InnerText = "123"
        ' WebBrowser.Document.Forms(0).GetElementsByName("sucheBtn").Item(0).InvokeMember("submit") '61159699000
        MsgBox(WebBrowser.Document.Forms("fm_schnellsuche").Name)
        MsgBox(WebBrowser.Document.Forms(0).Children(0).Name)
        MsgBox(WebBrowser.Document.Forms(0).Children(1).Name)
        MsgBox(WebBrowser.Document.Forms(0).Children(2).Name) '("sucheBtn").Item(0).InvokeMember("submit")
        '"sucheBtn"
    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
        ProgressBar.Visible = True
        With ProgressBar
            .Minimum = 0
            .Maximum = 50
            .Step = 5
        End With
        For index As Integer = 0 To 50 Step 5
            ProgressBar.Value = index
            System.Threading.Thread.Sleep(35)
        Next
    End Sub



    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted
        ProgressBar.Visible = False
    End Sub

    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
        WebBrowser.GoBack()
    End Sub

    Private Sub btnForward_Click(sender As Object, e As EventArgs) Handles btnForward.Click
        WebBrowser.GoForward()
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        frmBundesanzeigerZollTarif_Load(Me, New EventArgs)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
        submit()
    End Sub
End Class