精华区文章阅读

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: 利用VB访问Internet                     two
发信站: 哈工大紫丁香 (2000年06月05日20:23:15 星期一), 站内信件

发信人: outcast (面具人), 信区: Network
标  题: 利用VB访问Internet
发信站: 紫  丁  香 (Mon Feb  9 10:20:34 1998), 转信

当前,有许多构造模块可以帮助用户创建名为超客户端(rich client)的Internet
应用, 其中包括Visual Basic(以下简称VB)的ActiveX控件集合。它们可以提供
SMTP和POP邮件服务、FTP、Newsgroup和Web访问等功能。另外,利用OLE也可以实
现Web访问的自动化。本文向大家介绍这两种方法。

在应用中嵌入Active X控件

利用Crescent的Internet Toolpak(Internet 工具包)符合HTTP协议的控件,可以
将VB应用连接到Web站点,向站点传送数据,并从站点获取HTML页面。Crescent HTTP
控件不能实际显示出下载的HTML页面,但能使应用程序以字符串的形式使用页面数
据。例如,如果服务器产生一个名叫Myresult.html的HTML文件答复来自客户端的请
求,客户端应用能够通过与服务器建立的Crescent Active X连接来获取并下载这个
文件。建立连接的代码段如下:

CIHTTP1.HostName="myresult.myhost.com"CIHTTP1.URL="results\myresult.html"
CI HTTP.ParseIncomingData = TrueCIHTTP1.ConnectToServer

一旦Active X控件与服务器建立连接,它就会触发HTTPServerConnection事件。这
时,应用程序发出命令CIHTTP1.GET,检索U RL属性中指定的页面,然后该控件激活
FileClosed事件取回指定的页面。应用程序通过Acti ve X的属性HTMLPageText
WithTags(主页不嵌有HTML代码时用属性HTMLPageTextWithOutTa gs)读页面文本。
代码如下:

mytext= CIHTTP1. HTMLPageTextWithTags

如果不想用控件下载整个主页,可以通过控件的PacketReceived事件的Packet参数
快速扫描页面数据。每当控件接受到服务器的数据后都会激活PacketReceived事件。
另外,客户端应用还可以使用HTTP控件提取来自标准浏览器的Web页面数据。例如,
Acti veX控件在幕后与Web建立连接并下载正在发布的页面,让传统的客户端应用
不断接收最新We b信息,更改原有内容。
为进一步简化处理,在ActiveX控件与Web页面相连之前需设置好属性。
Crescent的HTTP 控件还可以把下载页面的URL地址、图像文件的地址和所有HTML
命令文件分别添加到指定的三个列表框中。

用OLE实现Web访问的自动化

除了ActiveX控件以外,还有一种方法可以实现应用程序与Web的交互自动化,这就是
OLE 自动化,即利用OLE Automation建立传统应用,再通过浏览器的OLE Automation
服务器接口进行自动Web连接。Netscape Navigator 和Microsoft Internet
Explorer 3.0 以上版本都支持OLE Automation。
Netscape Navigator的OLE Automation接口是专为这一目的而设计的。例如,通过
OLE Automation接口让Navigator打开一个Web页面,它不会在自身的浏览器窗口中
显示这个页面 ,而是下载该页面的内容,复制到服务器对象的数据缓冲区中,让客户
端的应用程序去访问这些内容。
例如,假设需要Navigator在Excel中打开一个Web页面,首先必须使用Excel的"引用"
对话框引用Navigator程序目录中的Netscape.TLB库,然后把Navigator对象作为一
个实例,并完成打开页面的功能。代码如下:

Dim Nav as Object, result as BooleanDim url$Const urlGet=0Const _
urlPost=1ur l$=http://www.microsoft.com/indev/default.htmset _
Nav=CreatObject("netscape.netw ork")result=Nav.Open(url$,urlGet,",",0," ")

如果自动化对象的属性IsFinished设置为 True,就可以通过对象缓冲区仔细处理页面
中的内容。

--
※ 来源:．紫  丁  香 pclinux.hit.edu.cn．[FROM: 202.97.228.219]

VB 版 (精华区)