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

那个是div层来的，用div层来嵌入网页，你那个网页里只有一个div层吗？

如果它有id或name就好办了，这个你可以看下那网页的源码

搜索

符号，这个符号的左边）有没有

“id=”

或

“name=”（注意，不包括双引号的），如果有的话就看它等号后面的是什么内容，有的话，程序很好写。实在不会看，你就直接复制那行代码给我好了。

用API 实现是最好的，，新建 模块 写下

Option Explicit

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Public Const INTERNET_OPEN_TYPE_DIRECT = 1

Public Const INTERNET_OPEN_TYPE_PROXY = 3

Public Const scUserAgent = "Microsoft Internet Explorer 60"

Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Declare Function InternetOpen Lib "wininetdll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininetdll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininetdll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininetdll" (ByVal hInet As Long) As Integer

Public Function GetUrlStr(URL As String) As String '调用时 URL 参数一定要带 >

如果这个程序带工程文件，你找到vbp文件双击打开，然后在各窗体双击查看代码。

如果没有工程文件，你可以自己建一个工程文件，然后把这些窗体文件加入。

如果不想建你可以直接双击某个窗体文件，也能打开，打开后双击窗体，可以看到代码。

以上就是关于VB如何获取webbrowser源码指定文本全部的内容，包括:VB如何获取webbrowser源码指定文本、如何用VB提取本网页的源代码、vb高手进来下 获取网页源码好点的方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！