VB中text如何获取webbrowser网页中的内容

在WebBrowser1的加载完成事件中写代码。

set d=WebBrowser1document

if d is nothing then exit sub

text1text=dbodyinnerTEXT '换成bodyinnerHTML可以显示HTML源代码。

提取网页中的某些数据用以下代码实现：

Set h = CreateObject("MicrosoftXML>

Private Sub Command1_Click()

Dim a As Object, a1 As Object

Set a = WebBrowser1DocumentgetElementsByTagName("a")

For Each a1 In a

If InStr(a1Title, "产品标题：") > 0 Then

Text1Text = Replace(a1Title, "产品标题：", "")

Text2Text = a1innerText

Exit For

End If

Next

Set a = Nothing

End Sub

以上就是关于VB中text如何获取webbrowser网页中的内容全部的内容，包括:VB中text如何获取webbrowser网页中的内容、vb中提取网页中的数据、VB6怎么把网页文字取到TEXT等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！