Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/frmBundesanzeigerZollTarif.vb
+++ b/Aviso/frmBundesanzeigerZollTarif.vb
@@ -0,0 +1,99 @@
+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
+
+    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
+