查找<label id="validateCode" > 与 </label>中的内容??比如91514,这个值每次都会变!
 <tr valign=center align=middle>
                        <td><font color=#000000>密  码 :</font></td>
                        <td align=left colspan=2>
                          <input
                                class=TextBoxFlat
                                style="WIDTH: 120px"
                                type=password maxlength=18 name="password">
                        </td>
                      </tr>
                      <tr valign=center align=middle>
                        <td><font color=#000000>验证码:</font></td>
                        <td align=left colspan=2 class="setColor">
                          <input
                                class=TextBoxFlat
                                style="WIDTH: 50px" name="validate">
                          
                          <label id="validateCode" >91514</label>
                          
                        </td>
                      </tr>
                      </tbody>
                    </table>
                    </form>
                  </td>

解决方案 »

  1.   

    参考一下
    http://zhidao.baidu.com/question/51101630.html
      

  2.   

    验证码的值竟然写在网页中,不可以思议
    Private Sub Form_Load()
        Dim strData$
        Dim reg As Object
        Dim matches As Object, match As Object
        
        strData = "<label id=""validateCode"" >91514</label>"
        Set reg = CreateObject("vbscript.regexp")
        reg.Global = True
        reg.IgnoreCase = True
        reg.Pattern = "<label id\=""validateCode"" >(.*?)</label>"
        
        Set matches = reg.Execute(strData)
        Debug.Print matches(0).SubMatches(0)
    End Sub
      

  3.   

    dim objLabel as object
    set objLabel=webbrowser.document.getelementbyid("validateCode")
    msgbox objlabel.innertext