Antwort an „Oe“ verfassen

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
freiwillig, öffentlich sichtbar
freiwillig, öffentlich sichtbar
freiwillig, öffentlich sichtbar

Ihre Identität in einem Cookie zu speichern erlaubt es Ihnen, Ihre Beiträge zu editieren. Außerdem müssen Sie dann bei neuen Beiträgen nicht mehr die Felder Name, E-Mail und Homepage ausfüllen.

abbrechen