查找<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>
<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>
解决方案 »
- 请大侠帮我看看这条语句错在哪了,该如何写
- 现实递增,这样好像不行,请高手帮忙,谢谢啊,急!!!!!!!!!!!!!
- ADODC+DATAGRID 奇怪的问题 见过的朋友帮忙解决一下!
- 我想编一个可以传送语音和视频的软件,只求方法和思路不求源代码
- 庆祝 狂刀客 升为三角. 顶者有分.
- 简单的加密解密问题
- 高分求《visual basic高级图形程序设计教程》随书光盘内的全部演示程序代码
- 求教---怎样用代码改变ADODC1的DATASOURCE?
- 怎样在MeasureItem和DrawItem方法中判断出参数lParam传递的是不是系统菜单?
- 为什么我使用activereport 打印完内容后,总空走纸一页
- vb+mysql utf8乱码问题
- ~~~怎么得到一个QQ号的昵称~~~在线等
http://zhidao.baidu.com/question/51101630.html
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
set objLabel=webbrowser.document.getelementbyid("validateCode")
msgbox objlabel.innertext