vb抓取网页内容(自动跳转如何获取完你要的代码(图))

　　vb抓取网页内容(自动跳转如何获取完你要的代码(图))

　　我用vb一个一个的下载页面。如何获得我需要的内容？我需要拦截功能。提到内容后，如何自动跳转到下一页。请教高手，我用的是webbrowser控件，你的问题有点大，直接在DOCUMENTCOMPLETE事件中写webbrowser获取HTML1.document.body.outhtml

　　这就是所有的HTML代码，然后分析你想要什么。你可以通过分析字符串来截取你想要的内容

　　你也可以根据HTML代码的属性获取你想要的内容。

　　自动跳跃更容易。得到你想要的代码后，webbrowser1.再次导航url。

　　'提取每个文本分区标签（div）中的源代码

　　VB代码：

　　私有子Form_Load()

　　WebBrowser1.导航“”

　　结束子

　　Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

　　j = WebBrowser1.Document.getElementsByTagName("div").Length - 1

　　将 aa 调暗为对象

　　对于 i = 0 到 j

　　设置 aa = WebBrowser1.Document.getElementsByTagName("div")(i)

　　s = s & aa.innerHTML & vbCrLf & "---------------------------th" & i & " div 来源--------------------------------" & vbCrLf的代码

　　下一个

　　静态 k 作为整数

　　k = k + 1

　　如果 s "" 那么

　　s1 = App.Path & "\" & k & ".txt"

　　打开 s1 输出为 #1

　　打印 #1，s

　　关闭#1

　　Shell "notepad.exe" & s1, vbNormalFocus

　　如果结束

　　结束子