VBA Internet Explorer自动化，无法触发事件输入填充事件

Question

我已经编写了代码来查找特定的Internet Explorer页面并填写输入。输入到HTMLInputElement中的任何输入都会导致搜索得到触发，我想复制同一事件。但是我不能使用FireEvent方法来触发它。请看一下让我知道我要去哪里了。让我知道是否需要更多信息。

parameters:
    locale: 'en'
    app_locales: en

以下是网页上输入元素的详细信息

For Each open_window In shell.Windows
    If TypeName(open_window.document) = "HTMLDocument" Then
        If open_window.document.Title = "abc" Then
        Set hDoc = open_window.document
        Set ssearch = hDoc.getElementsByTagName("input")
        For Each i In ssearch
            ActiveCell.Value = i.Type
            If i.Type = "search" Then
                Set ssearch = i
                ssearch.Focus
                ssearch.Value = "123"
                ssearch.FireEvent("oninput")
            Exit For
            End If
        Next i
        End If
    End If
Next