Question

VB如何获取网页中文字？

例如：http://hi.baidu.com/exeversion/blog/item/d3572b351825a849251f14e4.html
我想要获取那个”可用“
铁血黄昏大侠 下标越界
ljl88900大侠，如果我要获取内容而不是判断是否可用呢？

Answer 1

首先需要加载需要获取网页文的网址，然后根据WebBrowser1.document.body.innertext来获取文字，可参考下面部分代码

Private Sub cmdcommand1_click()
WebBrowser1.navigate "具体网页地址"
End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
txtText1 = WebBrowser1.document.body.innertext
End Sub

Answer 2

根据反馈，修改如下：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "你要获取的内容是：" & WebBrowser1.Document.body.innertext
'你可以在此基础上进行下一步的筛选
End Sub

Answer 3

方法有：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "你要获取的内容是：" & WebBrowser1.Document.body.innertext
'你可以在此基础上进行下一步的筛选
End Sub

Answer 4

dim a as string
a=inet1.openurl("http://hi.baidu.com/exeversion/blog/item/d3572b351825a849251f14e4.html
")
b=split(a,"<tr><td><div id=""blog_text"" class=""cnt""><p>")
c=split(b(1),"</p></div></td></tr></table>")
msgbox c(0)'c(0)就是你需要的东西