可以遍历页面,也可以~~如果你只是想得到网页中的所有连接,这样就OK了~~Option ExplicitPrivate Sub Command1_Click() Command1.Enabled = False WebBrowser1.Navigate2 Text1.Text End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim x As Long List1.ClearFor x = 0 To WebBrowser1.Document.Links.length - 1 List1.AddItem WebBrowser1.Document.Links.Item(x) Next x Command1.Enabled = True End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String) Label3 = Text End Sub
结果提示 实时错误 "-2147221248(80040100)"
对象"ExecWB" IWebBrower2失败
比如图片,cssvb中有没有控件可以实现?
而且不需要提示?
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim x As Long
List1.ClearFor x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label3 = Text
End Sub
网上这样的例子一抓一把的,呵呵~~