VB 任何读取网页里面的内容

来源：百度知道 编辑：UC知道 时间：2024/06/06 03:09:41
<div class="w">
<div class="reg"><dl>
<dd>
<div class="msg_03">
<p><h5>系统消息：</h5></p>
<p>对不起，服务器在维护中!</p>
<center><input name="" type="button" value="返回" class="btn_sm" onclick="javascript:history.back()" /></center>
</div>

</dd>
</dl></div>
</div>

怎么才可以把(系统消息：对不起，服务器在维护中!)读到TEXT1里面呢

MSDN推荐的，比较聪明的方法：
放一个WebBrowser(引用部件的Microsoft Internet Controls）
然后复制下面的代码～～

Private Sub Form_Load()
WebBrowser1.Navigate2 "那个网页的地址/文件地址"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As Object, i
Set doc = WebBrowser1.Document
For Each i In doc.getelementsbytagname("p")
Text1.Text = Text1.Text & " " & i.innertext
'得到所有p标签元素；然后将内容（非HTML，这样过滤H5标签）加入文本框
Next
End Sub

谁说问错地方了？

<html>

<body>
<script language="JavaScript" type="text/javascript">
function go(){
var error=get('error');
var text1_value=get('text1');
text1_value.value=error.innerHTML;
}
function get(str){
return document.getElementById(str);
}
</script>

<div class="w">