Hallo liebe Leute,
ich habe seit langem mal wieder ein Problem.
Ich arbeite an einer Applikation die mich automatisiert auf einer Website einloggen soll.
Nun diese lief mit dem mitgelieferten Webbrowser sehr gut, allerdings war mir dieser zu langsam und ich wechselte zu GeckoFX und xulrunner.
Das ausfüllen der beiden Inputfelder (Benutzername/Email und Passwort) klappt wie es soll, nur beim Submit/Absenden hänge ich. Weiss da jemand wie man das am besten löst?
Beim WebBrowser ging dies ja mit "invokeMember()" das geht aber bei GeckoFX nicht und via Google und VB-Paradise-Suche bin ich nicht fündig geworden
Hauptsächlich geht's um Zeile 10-12.
Hier der Code:
Für Hilfe wäre ich dankbar.
Mfg,
Sascha3008
ich habe seit langem mal wieder ein Problem.
Ich arbeite an einer Applikation die mich automatisiert auf einer Website einloggen soll.
Nun diese lief mit dem mitgelieferten Webbrowser sehr gut, allerdings war mir dieser zu langsam und ich wechselte zu GeckoFX und xulrunner.
Das ausfüllen der beiden Inputfelder (Benutzername/Email und Passwort) klappt wie es soll, nur beim Submit/Absenden hänge ich. Weiss da jemand wie man das am besten löst?
Beim WebBrowser ging dies ja mit "invokeMember()" das geht aber bei GeckoFX nicht und via Google und VB-Paradise-Suche bin ich nicht fündig geworden
Hauptsächlich geht's um Zeile 10-12.
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Dim fullscreen As Boolean
- Dim done As Boolean = False
- Private Sub GeckoWebBrowser1_DocumentCompleted(ByVal sender As Skybound.Gecko.GeckoWebBrowser, ByVal e As EventArgs)
- Dim el As Skybound.Gecko.GeckoElement = sender.Document.GetElementsByName("credentials.username")(0)
- el.SetAttribute("value", "username")
- Dim el2 As Skybound.Gecko.GeckoElement = sender.Document.GetElementsByName("credentials.password")(0)
- el2.SetAttribute("value", "password")
- Dim el3 As Skybound.Gecko.GeckoElement = sender.Document.GetElementById("login-submit-button")
- el3.Focus()
- SendKeys.Send("{ENTER}")
- End Sub
- Private Sub WebBrowser1_Navigating(sender As Object, e As Skybound.Gecko.GeckoNavigatingEventArgs) Handles GBW.Navigating
- wbStat.Text = "Lade Seite..."
- End Sub
- Private Sub WebBrowser1_Navigated(sender As Object, e As Skybound.Gecko.GeckoNavigatedEventArgs) Handles GBW.Navigated
- wbStat.Text = "Fertig"
- End Sub
- Private Sub toggleScreenMode()
- If fullscreen Then
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
- Me.WindowState = FormWindowState.Normal
- Else
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- Me.WindowState = FormWindowState.Maximized
- End If
- fullscreen = Not fullscreen
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- fullscreen = False
- GBW.Navigate("http://www.url.de")
- AddHandler GBW.DocumentCompleted, New EventHandler(AddressOf GeckoWebBrowser1_DocumentCompleted)
- End Sub
- Private _skipPreviewKeyDown As Boolean = False
- Private Sub hwb_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles GBW.PreviewKeyDown
- If _skipPreviewKeyDown = True Then
- _skipPreviewKeyDown = False
- Exit Sub
- Else
- _skipPreviewKeyDown = True
- End If
- If e.KeyCode.Equals(Keys.F11) Then
- toggleScreenMode()
- End If
- End Sub
- End Class
Für Hilfe wäre ich dankbar.
Mfg,
Sascha3008
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sascha3008“ ()