Form Submit mit GeckoFX und xulrunner

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Michi14.

    Form Submit mit GeckoFX und xulrunner

    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:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim fullscreen As Boolean
    3. Dim done As Boolean = False
    5. Private Sub GeckoWebBrowser1_DocumentCompleted(ByVal sender As Skybound.Gecko.GeckoWebBrowser, ByVal e As EventArgs)
    6. Dim el As Skybound.Gecko.GeckoElement = sender.Document.GetElementsByName("credentials.username")(0)
    7. el.SetAttribute("value", "username")
    8. Dim el2 As Skybound.Gecko.GeckoElement = sender.Document.GetElementsByName("credentials.password")(0)
    9. el2.SetAttribute("value", "password")
    10. Dim el3 As Skybound.Gecko.GeckoElement = sender.Document.GetElementById("login-submit-button")
    11. el3.Focus()
    12. SendKeys.Send("{ENTER}")
    17. End Sub
    19. Private Sub WebBrowser1_Navigating(sender As Object, e As Skybound.Gecko.GeckoNavigatingEventArgs) Handles GBW.Navigating
    21. wbStat.Text = "Lade Seite..."
    22. End Sub
    24. Private Sub WebBrowser1_Navigated(sender As Object, e As Skybound.Gecko.GeckoNavigatedEventArgs) Handles GBW.Navigated
    25. wbStat.Text = "Fertig"
    26. End Sub
    28. Private Sub toggleScreenMode()
    29. If fullscreen Then
    30. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
    31. Me.WindowState = FormWindowState.Normal
    32. Else
    33. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    34. Me.WindowState = FormWindowState.Maximized
    36. End If
    38. fullscreen = Not fullscreen
    39. End Sub
    41. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    42. fullscreen = False
    43. GBW.Navigate("http://www.url.de")
    44. AddHandler GBW.DocumentCompleted, New EventHandler(AddressOf GeckoWebBrowser1_DocumentCompleted)
    47. End Sub
    48. Private _skipPreviewKeyDown As Boolean = False
    49. Private Sub hwb_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles GBW.PreviewKeyDown
    50. If _skipPreviewKeyDown = True Then
    51. _skipPreviewKeyDown = False
    52. Exit Sub
    53. Else
    54. _skipPreviewKeyDown = True
    55. End If
    56. If e.KeyCode.Equals(Keys.F11) Then
    57. toggleScreenMode()
    59. End If
    61. End Sub
    62. End Class




    Für Hilfe wäre ich dankbar.


    Mfg,
    Sascha3008

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sascha3008“ ()

Facebook
Telefonspende