您所在位置：主题：VB怎么点击网页中的某个链接?我这个语句从别处学的究竟该怎么用??
caline
[专家分：20] 发布于 2009-03-09 16:41:00
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.hao123.com/"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim a
For Each a In WebBrowser1.Document.All
If a.tagname = "A" Then
If a.href = "http://www.sohu.com.cn/" Then
a.Click
End If
End If
Next
End Sub
语句的意思我基本看得懂,但是有个问题,怎么让第二个运行?
还有就是有时候是需要在一些位置填写数据,怎么确定那个空白的位置就是我想要的位置?
点击链接后怎么判断网页打开完毕?
WebBrowser1.Navigate "http://www.hao123.com/"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim a
For Each a In WebBrowser1.Document.All
If a.tagname = "A" Then
If a.href = "http://www.sohu.com.cn/" Then
a.Click
End If
End If
Next
End Sub
语句的意思我基本看得懂,但是有个问题,怎么让第二个运行?
还有就是有时候是需要在一些位置填写数据,怎么确定那个空白的位置就是我想要的位置?
点击链接后怎么判断网页打开完毕?