| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 959 人关注过本帖
标题:关于WebBrowser.Navigate 求助!!!
只看楼主 加入收藏
JMGS0013
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-7-14
收藏
 问题点数:0 回复次数:1 
关于WebBrowser.Navigate 求助!!!

请问VBscript如何实现一个页面获得另一个页面代码?我用WebBrowser1.Navigate 来做,想在本页面上获得另一个页面的代码并在本页面的 textarea中显示出来。可结果显示的都是本页面的代码。代码如下,请高手看一来错在哪里,谢谢!! <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!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> <OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WebBrowser1 width=0> </OBJECT> <body> <input type="button" name="Command1" id="Command1" value="button"> <textarea name="Text1" cols="100" rows="20" type="text"></textarea> <script language="vbscript">

Private Sub Command1_Click() dim vTag Dim vDoc dim objhtml WebBrowser1.Navigate "http://www.baidu.com" Set vDoc = WebBrowser1.Document Set objhtml = vDoc.body.createtextrange() Text1.value = objhtml.htmltext

For i = 0 To vDoc.All.length - 1

If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.value="submit" then vTag.submit end If end If next

End Sub Private Sub WebBrowser1_DocumentComplete() alert("fdasfdsfdsa") Text1.value="xxxxxxxx" End Sub

Command1_Click </script>

</body> </html>

搜索更多相关主题的帖子: Navigate WebBrowser 
2005-10-08 14:23
JMGS0013
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-7-14
收藏
得分:0 
在线等啊,请各位高手帮帮忙!!!

2005-10-08 14:31
快速回复:关于WebBrowser.Navigate 求助!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022887 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved