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

先引用正则库，然后编写如下代码，其中html的值替换为你问题中的html源码。

Private Sub Form_Load()

Dim html As String

html = "<li><em>经验值</em>28733</li><li><em>金币数</em>2300</li>"

ExpeValue = FindFirstGroup("<em>经验值</em>(\d+)</li>", html)

CoinValue = FindFirstGroup("<em>金币数</em>(\d+)</li>", html)

MsgBox "经验值为" & ExpeValue

MsgBox "金币值为" & CoinValue

End Sub

Private Function FindFirstGroup(pattern As String, src As String) As String

Dim re As RegExp

Set re = New RegExp

With re

pattern = pattern

Set Matches = Execute(src)

If MatchesCount = 0 Then

FindFirstGroup = ""

Else

FindFirstGroup = Matches(0)SubMatches(0)

End If

End With

End Function

Dim url As String=" 网址"

Dim >

Private Function GetHtmlStr$(StrUrl$) '获取源码

Dim Xml>

你好！

webbrowser控件有DocumentCompleted加载事件的。这个事件微软给出的解释也是当文档加载完毕时触发。

假设你的webbrowser控件name是wb

那么在这个事件写就行了。

private void wb_DocumentCompleted(object sender, WebBrowserNavigatedEventArgs e)

{

if (eUrlToString() != extendedWebBrowser1UrlToString())

return;

if (extendedWebBrowser1ReadyState != WebBrowserReadyStateComplete)

return;

string html_code=wbDocumentBodyOuterHtml;//获取当前网页源码

// Do Something

}

1、提取：用这个vb小程序可以！

2、网页显示(必须先用上面程序将源码保存为txt，并且在打开窗口里选择该txt文件！)：

拖进一个webbrowser1，一个commondialog1，一个command1

Private  Sub Command1_Click()

CommonDialog1ShowOpen

WebBrowser1Navigate (CommonDialog1FileName)

End Sub

以上就是关于VB如何获取webbrowser源码指定文本全部的内容，包括:VB如何获取webbrowser源码指定文本、如何用vb.net获得网页的源代码、VB 获取网页源代码（成功后给分50）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！