jQuery .change() Method - automatisches Nachladen bei automatisierter Webseitenbestückung funktionert nicht

[Oe]

Hallo Rolf,

Bitte nimm diesen Code. Damit kannst du direkt gegen eine Live Site testen.

Option Explicit On
Imports SHDocVw 'aus Microsoft Internet Controls
Public Module Main
    Dim IEApp As SHDocVw.InternetExplorer
    Public Sub Main()
        Call initialization()
        IEApp.Document.getElementById("wb-auto-1").Click
        Call Drop_Down("RSS252", "radioSpecification")
        MsgBox("Einmal im Browser den "search" butoon drücken, dann wieder zurückgehen")
        Call Drop_Down("RSS210", "radioSpecification")
        MsgBox("Program finished")
    End Sub
    Sub initialization()
        IEApp = CreateObject("InternetExplorer.Application")
        IEApp.Visible = True
        IEApp.Navigate("https://sms-sgs.ic.gc.ca/equipmentSearch/searchRadioEquipments?execution=e1s1&lang=en")
        System.Threading.Thread.Sleep(2000) : Do While IEApp.Busy Or IEApp.Document.ReadyState <> "complete" : System.Threading.Thread.Sleep(1000) : Loop        '-- Warten
    End Sub
    Sub Drop_Down(Auswahl, ElementName)
        Dim objEvent
        For Each htmloption As Object In IEApp.Document.GetElementsByName(ElementName)
            For Each element In htmloption.Options
                If element.Text = Auswahl Then
                    element.Selected = True
                    objEvent = IEApp.Document.createEvent("HTMLEvents")
                    objEvent.initEvent("change", True, False)                            ' keine Fnktion auf dieser Seite - nur zum Testen
                    IEApp.Document.getElementById(ElementName).dispatchEvent(objEvent)   ' keine Funktion auf dieser Seite - nur zum Testen
                    Exit Sub
                End If
            Next
        Next
    End Sub
End Module