Question

VB如何获取webbrowser源码指定文本

这时一个QQ空间快速登录的网页，请问用VB中的webbrowser控件，如何获取 网页源码中当前已登录的QQ文本

如果满意 额外添加100 悬赏最高100 没办法

Answer 1

第一个红框的文本：
WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(0).innerText

第二个红框的文本：
WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(1).innerText

追问

如何去判断 label 标签数字个数 ，因为那些文本是根据登录QQ个数决定的 ，所以这个也是一个变量

追答

WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label").length
就是个数

Answer 2

rivate Sub Command1_Click()
Dim YDM
YDM = WebBrowser1.Document.body.createtextrange().htmltext
Open "D:\WEB.html" For Output As #1
Print #1, YDM
Close #1
End Sub
=================
工程里引用：Microsoft HTML object Library
工程里部件：Microsoft Internet controls
Microsoft rich textbox controls 6.0 (SP6)

在窗体中放置一个WEBbrowser控件，放置一个richtextbox控件
代码：

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.sohu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.Document.documentElement.outerHTML
End Sub

如需修改网页内容，增加以下代码：
Private Sub Command1_Click()
Dim wdoc As HTMLDocument
Set wdoc = WebBrowser1.Document
wdoc.body.innerHTML = "<font size=10>dfkdjfkdfjdkfjdkfjdk</font>" ‘网页内容
'WebBrowser1.Document.body.innerHTML = "<font size=10>dfkdjfkdfjdkfjdkfjdk</font>" 与上句二选一
End Sub

Answer 3

Private Sub Command1_Click()
Set vDocs = WebBrowser1.Document.getElementsByTagName("ul")
Text1.Text = vDocs(32).innerText
End Sub
如果是想用软件自动提取这个信息，到其它地方用。那就不要用WebBrowser，这个太慢。直接用 inet控件，或者用xmlhttp等获取源码再取信息。

Answer 4

Private Sub Command1_Click()
Set vDocs = WebBrowser1.Document.getElementsByTagName("ul")
Text1.Text = vDocs(32).innerText
End Sub

Answer 5

第一个红框的文本：
WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(0).innerText

第二个红框的文本：
WebBrowser1.Document.getElementById("list_uin").getElementsByTagName("label")(1).innerText