vb 关于百度贴吧的一些问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 04:05:23
在百度贴吧里,如果你输入错验证或其他问题的话,就会出现一个错误提示
(红色的字)
例如如果你输入错验证的话,就会有这一行字
验证码输入错误，请您返回后重新输入 点击返回

请问如何用WebBrowser控件或的这一行字?

Dim sid%, eid%
sid = InStr(WebBrowser1.Document.body.innerHTML, "var resultno=")
If sid <> 0 Then
sid = sid + 13
eid = InStr(sid, WebBrowser1.Document.body.innerHTML, ";")
If eid <> 0 Then
MsgBox Mid$(WebBrowser1.Document.body.innerHTML, sid, eid - sid)
End If
End If

用这个返回页面的错误ID
页面中有一个变量对应错误类型的
如 var resultno=140;