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

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

       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