100 lines
3.6 KiB
VB.net
100 lines
3.6 KiB
VB.net
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
|
|
|