For Each link In IEApp.Document.Links geht nur einmal

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Oelkanne.

    For Each link In IEApp.Document.Links geht nur einmal

    Guten Abend,

    Guten Abend, Im Beitrag Fehlermeldung:Unbehandelte Ausnahme: System.NotSupportedException konnte das Problem nicht gelöst werden.Deshalb habe ich mal einen Bespielcode generiert, mit dem man das Problem nachvollziehen kann. Das Problem: Die Codezeile For Each link In IEApp.Document.Links funktioniert immer nur beim ersten Aufruf. Wird im späteren Verlauf erneut For Each link In IEApp.Document.Links aufgerufen kommt es zum Fehler. Fehler :Unbehandelte Ausnahme: System.NotSupportedException {"Ausnahme von HRESULT: 0x800A01B6"} Ich komme nicht dahinter warum es nicht funktioniert.


    Quellcode

    1. Public Module Main
    2. Public Sub Main()
    3. Dim IEApp, link As Object
    4. Dim url As String
    5. url = ("https://www.vb-paradise.de/")
    6. IEApp = CreateObject("InternetExplorer.Application")
    7. IEApp.Visible = True
    8. IEApp.Navigate(url)
    10. System.Threading.Thread.Sleep(2000)
    11. Do While IEApp.Busy Or IEApp.Document.ReadyState <> "complete" : System.Threading.Thread.Sleep(1000) : Loop
    13. For Each link In IEApp.Document.links
    14. If link.InnerText = "Statistik" Then Exit For
    15. Next
    16. link.Click()
    18. System.Threading.Thread.Sleep(2000)
    19. Do While IEApp.Busy Or IEApp.Document.ReadyState <> "complete" : System.Threading.Thread.Sleep(1000) : Loop
    21. For Each link In IEApp.Document.links '|-
    22. If link.InnerText = "Dashboard" Then Exit For
    23. Next '|-
    24. link.Click()
    25. End Sub
    27. End Module

    Was wäre die richtige Vorgehensweise für die Aufgabenstellung?

    Hier: Auf der Seite vb-paradise.de/ auf den Button Statistik drücken;- > dann geht die neue Seite auf. Dann auf der Seite Statistik den Button Dashboard drücken - > dann sollte die Seite Dashboard wieder aufgehen.

    Kann man das wirklich nicht in VB realisieren, wenn einen nur die Bezeichner "Statistik" bzw "Dashboard" zur Verfügung stehen?

    Hi,

    realisieren kann man so ziemlich alles. Was Du als erstes machen solltest, bevor man Dir hier weiterhilft, ist => OPTION STRICT ON. Danach wirst Du wohl einige Fehlermeldungen erhalten und Du solltest versuchen, diese zu beheben. Falls Du da nicht weiterkommst, kannst Du Dich gerne melden, geholfen wird Dir immer.

    Du kannst gerne auch mehr über Dein Vorhaben erzählen, dann findet man meist einen sauberen Weg.....
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Gehen tuts schon. Man braucht einen Verweis auf die Com-Komponenten Microsoft.mshtml und Microsoft.Internet.Controls

    Benutzen kann man das Gerümpel dann in Etwa so:

    VB.NET-Quellcode

    1. ​
    2. Imports SHDocVw
    3. Imports mshtml
    5. Public Class Form1
    6. Protected Overrides Sub OnLoad(e As EventArgs)
    7. Dim ie = New SHDocVw.InternetExplorer()
    8. Dim url As Object = "www.vb-paradise.de"
    9. ie.Visible = True
    10. ie.Navigate2(url)
    12. AddHandler ie.DocumentComplete, Sub()
    13. Dim doc = DirectCast(ie.Document, mshtml.IHTMLDocument2)
    14. End Sub
    15. MyBase.OnLoad(e)
    16. End Sub
    17. End Class


    Das HTML-Document hat auch ne Property Links, welche aber wieder in irgendwas gecastet werden müssen und da hab ich dann aufgegeben, da nirgendwo irgendwas zu dem Mist steht. Ich kann gar nicht beschreiben, wie mir sowas auf den Strich geht. Darum hab ich hier auch nichts mehr gepostet und lass das Thema mal gut sein.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Scheint ja schon tricky zu sein SHDocVw überhaupt in Visual Studio hineinzubekommen für Hobbybastler.

    Wie dem auch sei:
    Dem Rat von SpaceyX folgend hake ich Visual Basic einfach ab, da es nicht möglich ist Buttons im Browser damit zu drücken.

    Dennoch Dank' an alle die es versucht haben.

    Oelkanne schrieb:

    hake ich Visual Basic einfach ab


    Wieso das denn? Das ist doch nicht die Schuld von VB. Jede andere Sprache ist ebenso auf diese unsäglichen COM-Komponenten angewiesen, wenn etwas in der Art gemacht werden soll. Und von Unmöglich hat keiner was gesagt. Ich verstehe auch nicht, warum man einen Button drücken sollte, wenn man einfach den entsprechenden Link direkt aufrufen kann.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Eine kleine Demo ... (der Code lässt sich bestimmt noch optimieren)
    Verweise wie in Post #7 werden benötigt.

    VB.NET-Quellcode

    1. Dim ieApp As SHDocVw.InternetExplorer
    2. Dim htmlDoc As mshtml.HTMLDocument
    4. Dim sUrl As String = "https://www.vb-paradise.de/"
    5. Dim arrLinkTexts As String() = {"Statistik", "Dashboard", "Mitglieder", "Spenden", "Forum", "Dashboard"}
    7. ieApp = New SHDocVw.InternetExplorer With {.Visible = True}
    8. ieApp.Navigate(sUrl)
    10. For Each sLinkText As String In arrLinkTexts
    11. Do While ieApp.Busy OrElse ieApp.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
    12. System.Threading.Thread.Sleep(1000)
    13. Loop
    15. htmlDoc = CType(ieApp.Document, mshtml.HTMLDocument)
    16. For Each htmlElement As HTMLAnchorElement In htmlDoc.links
    17. If htmlElement.innerText <> Nothing AndAlso htmlElement.innerText.Equals(sLinkText) Then
    18. htmlElement.click() : Exit For
    19. End If
    20. Next
    22. System.Threading.Thread.Sleep(5000)
    23. Next
    25. ieApp.Quit()

Facebook
Telefonspende