使用Webbrowser控件的submit提交后怎么样可以识别返回的网页中的字符串?

提交后会返回一个简单的页面,只是一个最简单的文字信息,例如像下面的代码
=====================================================================
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
高度等于:20
</body>
</html>
=====================================================================
页面上只显示"高度等于:20"
怎么样取得20这个数值?而且越简单的运算越好.
只显示"高度等于:20"这样一句话,我想在计算机里得到后面的那个数字,怎么实现.

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

是这样么?Private Sub Form_Load()
    WebBrowser1.Navigate "http://expert.csdn.net/Expert/topic/3060/3060709.xml?temp=.3055078"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim sHTML As String
    Dim lPos As Long, lResult As Long
    sHTML = pDisp.Document.documentElement.innerHTML
    lPos = InStr(sHTML, "高度等于")
    lResult = Val(Mid(sHTML, lPos + 5, 5))
    Debug.Print lResult
End Sub