VB 任何读取网页里面的内容
<divclass="w"><divclass="reg"><dl><dd><divclass="msg_03"><p><h5>系统消息：</h5></p><p>对不起，...
<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里面呢 展开
<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里面呢 展开
3个回答
展开全部
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
放一个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">
<div class="reg"><dl>
<dd>
<div class="msg_03">
<p><h5>系统消息：</h5></p>
<p id="error">对不起，服务器在维护中!</p>
<input name="text1" type="text" value="测试" class="btn_sm" />
<center><input name="" type="button" value="返回" class="btn_sm" onclick="go()" /></center>
</div>
</dd>
</dl></div>
</div>
</body>
</html>
------------------------
点返回试试?
<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">
<div class="reg"><dl>
<dd>
<div class="msg_03">
<p><h5>系统消息：</h5></p>
<p id="error">对不起，服务器在维护中!</p>
<input name="text1" type="text" value="测试" class="btn_sm" />
<center><input name="" type="button" value="返回" class="btn_sm" onclick="go()" /></center>
</div>
</dd>
</dl></div>
</div>
</body>
</html>
------------------------
点返回试试?
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
比较笨的一个方法
先添加一个Inet控件，读取网页源文件，将源文件保存
Dim ReString As String
ReString = Inet1.OpenUrl(www.baidu.com)
Open App.Path & "\" & "data.txt" For Output As #1
Write #1, ReString
Close #1
在将文件一行一行读入data(i)中
Open App.Path & "\" & "data.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, Data1
data(i) = Data1
i = i + 1
Loop
Close #1
最后自己找到所需要的行，比如“系统消息"在第五行，从第8个字符，共取5个字符
Text1.Text = Mid(data(5), 8，5)
先添加一个Inet控件，读取网页源文件，将源文件保存
Dim ReString As String
ReString = Inet1.OpenUrl(www.baidu.com)
Open App.Path & "\" & "data.txt" For Output As #1
Write #1, ReString
Close #1
在将文件一行一行读入data(i)中
Open App.Path & "\" & "data.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, Data1
data(i) = Data1
i = i + 1
Loop
Close #1
最后自己找到所需要的行，比如“系统消息"在第五行，从第8个字符，共取5个字符
Text1.Text = Mid(data(5), 8，5)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
