关于模拟鼠标点击

Question

程序中用了一个WebBrowser控件和两个Button，点第一个Button，WebBrowser自动填写表单，但其中有一个select的元素直接给value赋值没用，把这个赋值的语句放在第二个Button的点击事件中就可以了，请问这是怎么回事呢？如何能模拟第二个按钮的点击呢？我在WebBrowser1_DocumentComplete事件中直接调用call Command2_click没用，怎样处理可以成功？谢谢

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    
    Dim objSelect   As Object
    
    If pDisp Is WebBrowser1.Object Then                        ' 确保整个页面加载完毕
        Set objSelect = WebBrowser1.Document.All("selType")    ' 取得某个 Select 元素
        objSelect.selectedIndex = 2                            ' 选择某一项
    End If
    
End Sub