Antwort an „Oelkanne“ verfassen

Hallo Rolf,

Hier der VB.NET Code, falls du bereit wärst, den Fehler nachzustellen.

Dieser trägt in das drop down erst "RSS252" ein. Dann wird die Routine nochmal aufgerufen und es wird "RSS210" eingetragen.

soweit funktiniert es.

Wenn ich jedoch die Seite nach dem ersten Aufruf ändere (zb. Home und wieder zurück) läuft es in den Fehler.

Option Explicit On
Imports SHDocVw 'aus Microsoft Internet Controls
Public Module Main
    Dim IEApp As SHDocVw.InternetExplorer
    Public Sub Main()
        Call initialization()
        Call Drop_Down("RSS252", "standardCode")
        MsgBox("Bitte einmal im Browser die Seite ändern und wieder zurückgehen")
        Call Drop_Down("RSS210", "standardCode")
        MsgBox("Program finished")
    End Sub
    Sub initialization()
        IEApp = CreateObject("InternetExplorer.Application")
        IEApp.Visible = True
        IEApp.Navigate("C:\ISED\trial.html")
        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)
                    IEApp.Document.getElementById(ElementName).dispatchEvent(objEvent)
                    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