VB WebBrowser如何显示下拉列表的值

<div id=” BF_divGamePlayListContainer”style=” display: none; bottom: 37px; left: 436px;”>

     <div id=” BF_divGamePlayListMenu” style=” top: 3px;”>

            <div class=” BF_Title”>最近玩过的游戏账号：<div>

              <ul id=” BF_GameAccountList”>

                       <li onclick=” BeanFunBlock.StartGameWithAccountData('610074','T9','2882318');”>

                      <img height="48" width="48" alt="新枫之谷 Maplestory" src="http://tw.images.beanfun......."

                      <div class="block" tiltle="使用此账号激活游戏">

                              <h2>新枫之谷 Maplestory</h2>

                               <p>萌想之枫</p>

                      </div>

                 </li>

Private Sub TestReg()

    Dim strData As String

    Dim reg As Object

    Dim matchs As Object, match As Object



    strData = "<div id=” BF_divGamePlayListContainer”style=” display: none; bottom: 37px; left: 436px;”> <div id=” BF_divGamePlayListMenu” style=” top: 3px;”> <div class=” BF_Title”>最近玩过的游戏账号：<div> <ul id=” BF_GameAccountList”> <li onclick=” BeanFunBlock.StartGameWithAccountData('610074','T9','2882318');”> <img height=""48"" width=""48"" alt=""新枫之谷 Maplestory"" src=""http://tw.images.beanfun......."" <div class=""block"" tiltle=""使用此账号激活游戏""> <h2>新枫之谷 Maplestory</h2> <p>萌想之枫</p> </div> </li> "



    Set reg = CreateObject("vbscript.regExp")

    reg.Global = True

    reg.IgnoreCase = False

    reg.MultiLine = True

    reg.Pattern = "'(\d+)','T9','(\d+)'.*?alt=""([^ ]+)"

    Set matchs = reg.Execute(strData)

    For Each match In matchs

        'Debug.Print match.Value

        Debug.Print match.SubMatches(0)

        Debug.Print match.SubMatches(1)

        Debug.Print match.SubMatches(2)

    Next

End Sub

补充：VB ,  网络编程

上一个：vb
下一个：webbrowser控件屏蔽frame框架的其中一个