vb6.0中webbrowser 模拟点击事件无效,但鼠标手动点击有效
网页源码如下:
VB6.0编程如下:
Dim X As Object
For Each X In WebBrowser1.document.getElementsByTagName("a")
If Trim(X.innerText) = "学习详情" Then
X.Click
Exit For
End If
Next
VB代码操作无效,在webbrowser环境下,鼠标点击 学习详情 这个超链接,能正常跳转。
vb6.0中webbrowser 模拟点击事件无效,但鼠标手动点击有效
网页源码如下:
VB6.0编程如下:
Dim X As Object
For Each X In WebBrowser1.document.getElementsByTagName("a")
If Trim(X.innerText) = "学习详情" Then
X.Click
Exit For
End If
Next
VB代码操作无效,在webbrowser环境下,鼠标点击 学习详情 这个超链接,能正常跳转。