Alle Links eines bestimmten DIV-Tags anklicken

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Visual Basic-Quellcode

    1. Private Sub Links_holen()
    2. Dim link As HtmlElement, value As String
    3. Dim links As HtmlElementCollection = WebBrowser1.Document.Links
    4. For Each link In links
    5. value = link.GetAttribute("href")
    6. If value.Contains("change_please") Then link.InvokeMember("click")
    7. Next
    8. End Sub

    Irgendwie passiert da garnix :?:
    Ich bin einfach zu blöd für VB :(

    Dann warte mit dem anklicken des neuen Links, bis er den anderen sauber annavigiert hat:

    Setze eine Variable oben in die Forms:

    VB.NET-Quellcode

    1. Private _isBusy as Boolean

    Im Webbrowser.DocumentCompleted Event setzt Du

    VB.NET-Quellcode

    1. _isBusy=false


    Und dazu naoch eine Methode:

    VB.NET-Quellcode

    1. Public Shared Sub waitComplete()
    2. While _isBusy
    3. Application.DoEvents()
    4. End While
    5. End Sub

    Und wartest nach dem InvokeMember mit dem Aufruf waitComplete()

    VB.NET-Quellcode

    1. Private Sub Links_holen()
    2. Dim link As HtmlElement, value As String
    3. dim doc as HTMLCollection=WebBrowser1.Document
    4. Dim links As HtmlElementCollection = doc.Links
    5. For Each link In links
    6. value = link.GetAttribute("href")
    7. _isBusy=true
    8. If value.Contains("change_please") Then link.InvokeMember("click")
    9. waitComplete()
    10. Next
    11. End Sub


    Hoffe so aus dem Kopf ist das auch richtig

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

    Ok, also er bringt zwar keinen Fehler, aber dafür macht er auch nix ^^
    Hier mal mein kompletter Code: (meine "einfallsreichen" Kommentare einfach ignorieren :D )

    Visual Basic-Quellcode

    1. Public Class Form1
    2. Private _isBusy As Boolean
    4. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    6. Me.Text = "Spendenautomat v1.7 ~"
    8. '<unsichtbar machen!>
    9. Me.Button2.Visible = False
    10. Me.link_txt.Visible = False
    11. Me.link_submit.Visible = False
    12. Me.ProgressBar1.Visible = False
    13. Me.WebBrowser1.Navigate("http://www.spenden-muenchen.de")
    14. Application.DoEvents()
    15. Me.WebBrowser1.Visible = False
    16. '</unsichtbar machen!>
    18. End Sub
    21. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    22. Me.link_txt.Visible = True
    23. Me.Button1.Enabled = False
    24. Me.Button1.BackColor = Color.AntiqueWhite
    25. End Sub
    28. Private Sub link_txt_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles link_txt.TextChanged
    29. If Len(Trim(link_txt.Text)) > 45 Then
    30. link_submit.Visible = True
    31. End If
    32. End Sub
    35. Private Sub link_submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles link_submit.Click
    36. Me.link_txt.Enabled = False
    37. Me.link_submit.Enabled = False
    38. Me.link_submit.BackColor = Color.AntiqueWhite
    40. WebBrowser1.Document.GetElementById("link").InnerText = Me.link_txt.Text
    41. WebBrowser1.Document.Forms(0).InvokeMember("submit")
    43. Me.Button2.Visible = True
    44. Me.Button2.Enabled = False
    45. Me.Button2.BackColor = Color.AntiqueWhite
    46. Me.WebBrowser1.Visible = True
    47. Me.ProgressBar1.Visible = True
    49. 'AM BESTEN BISSCHEN WARTEN (TIMER)!
    51. Me.Button2.Visible = True
    52. Me.Button2.Enabled = True
    53. Me.Button2.BackColor = Color.LightGreen
    54. End Sub
    57. Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    58. Me.Button2.Enabled = False
    59. Me.Button2.BackColor = Color.AntiqueWhite
    61. '####################-> BOT WIRD GESTARTET <-####################
    62. Links_holen()
    63. '################################################################
    65. End Sub
    68. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    69. _isBusy = False
    71. End Sub
    74. Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
    75. Dim d, t As Integer
    77. d = e.CurrentProgress
    78. t = e.MaximumProgress
    80. If d <= 0 Then
    82. ProgressBar1.Value = 0
    84. Else
    85. ProgressBar1.Value = Math.Min(ProgressBar1.Maximum, Convert.ToInt32(Math.Floor(ProgressBar1.Maximum * (d / t))))
    86. End If
    87. End Sub
    90. Private Sub Links_holen()
    91. Dim link As HtmlElement, value As String
    92. Dim links As HtmlElementCollection = WebBrowser1.Document.Links
    93. For Each link In links
    94. value = link.GetAttribute("href")
    95. _isBusy = True
    96. If value.Contains("change_please") Then link.InvokeMember("click")
    97. waitComplete()
    98. Next
    99. End Sub
    102. Private Sub waitComplete()
    103. While _isBusy
    104. Application.DoEvents()
    105. End While
    106. End Sub
    108. End Class


    Vielleicht hat ja jemand noch die Lust und die Zeit, mir zu helfen :)
    LG DiDi

    ERLEDIGT!!! :D

    Hab einfach anstelle von:

    Visual Basic-Quellcode

    1. If value.Contains("change_please") Then link.InvokeMember("click")


    Das hier gemacht

    Visual Basic-Quellcode

    1. If value.Contains("muenchen") Then link.InvokeMember("click")


    Klappt prima!!

    DANKE FÜR EURE HILFE!!
    IHR SEID DIE BESTEN!!! :D

    Lg Markus

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

    So ist die Link-holen Sub korrekt und member werden auch invoked:

    VB.NET-Quellcode

    1. Private Sub Links_holen()
    2. Dim link As HtmlElement, value As String
    3. Dim doc As HtmlDocument = WebBrowser1.Document
    4. Dim links As HtmlElementCollection = doc.Links
    5. For Each link In links
    6. value = link.GetAttribute("href")
    7. If value.Contains("donate") Then
    8. Debug.Print("found: " & value)
    9. _isBusy = True
    10. link.InvokeMember("click")
    11. waitComplete()
    12. End If
    13. Next
    14. End Sub

    Folgefehler kommen, insbesondere Popups, die aber wohl eher mit dem Pennergame, eigenen Spendenlink und spendenspezifischen Details zu tun haben. Aber das musst Du bitte selber klären, ich bin kein Anhänger von diesem Game und wir sind auch keine Cheat-Programmierer.

    Mir ging es nur darum das invoke zu überprüfen ...