1.VB如何获取webbrowser源码指定文本
VB如何获取webbrowser源码指定文本
先引用正则库，然后编写如下代码，传奇加速外挂 源码其中html的大抄底指标源码值替换为你问题中的html源码。Private Sub Form_Load()
Dim html As String
html = "<li><em>经验值</em></li><li><em>金币数</em></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 Matches.Count = 0 Then
FindFirstGroup = ""
Else
FindFirstGroup = Matches(0).SubMatches(0)
End If
End With
End Function
