Question

用vb打开网页 判断网页是否存在已知id 或者说如何获取网页打开失败

用VB操作网页 判断打开网页中是否存在已知ID 如果存在则自动点击 不存在则代表当前网页打开失败(因为是已经知道了当前页面有这个ID) 则显示网页打开失败 这里主要是如何判断呢？ 或者有没有其他方法可以获取到网页打开失败(有可能是网速过差导致失败，或其他因素) 请高手们帮助一下，谢谢了。

Answer 1

你是用什么方法打开网页的呢？如果是用WebBrowser控件，那么很简单：

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
MsgBox "网页打开失败！"
Cancel = True
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser1.Object Then
'这里放点击页面的代码
End If
End Sub

追问

谢谢你了 可是下面的一段代码我放进去了页面id 怎么不能实现自动点击呢？ 而且好像提示出错了？ 如果网页id是h1XXCX 那该怎么加入呢？ 谢谢了

追答

比如网页中有这样的链接：
请点我

那么在VB中可以这样模拟点击：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser1.Object Then
WebBrowser1.Document.getElementById("h1XXCX").Click
End If
End Sub

追问

再问一下，那如果没有id 和name，怎么点击他？比如像百度的“百度一下”按钮

追答

“百度一下”是有ID的（id=su）。

没有ID和name的，可以根据标签名来点击，比如下面的

WebBrowser1.Document.getElementsByTagName("input")(1).Click

要注意的是，如果页面上的同名标签有多个，那么你要根据这些标签在页面上的顺序号来决定()中的数字，比如上面共有两个input，你要点击的是第二个，那么就是(1)（从0起算的）

追问

谢谢你了