说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

利用VB访问Internet

HTML文档下载 WORD文档下载 PDF文档下载
利用VB访问Internet
当前,有许多构造模块可以帮助用户创建名为超客户端(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,就可以通过对象缓冲区仔细处理页面中的内容。
动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 建立自己的数据字典库-Delphi资料 将BLOB字段的BMP图显示出来-Delphi资料 将图像放入数据库中-Delphi资料 解 决sybase 用 户 数 据 库 不 能 进 入 故 障 的 一 种 方 法-Delphi资 解决sybase用户数据库不能进入故障的一种方法-Delphi资料 解决一个DBF表时的&quot;Index not found..&quot;错误-Delphi资料 精简Delphi数据库应用系统 精简Delphi数据库应用系统-定制BDE驱动程序 精简数据库应用系统-Delphi资料 开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料 开 发AS/400 应 用 系 统: PB5 与Delphi3 的 比 较 利 用Delphi 开 发 响 应 用 户 输 入 的 数 据 库 查 询Web Server 程 利用Delphi开发响应用户输入的数据库查询Web Server程序 利用Tbatch组件完成数据批处理-Delphi资料 如 何 恢 复Sybase SQL Anywhere 的 数 据 库-Delphi资料 如何捕捉KEY VIOLATION等错误-Delphi资料 如何得到SQL返回的计算结果-Delphi资料 如何动态的读取Delphi中的PopupMenu的Caption ? 如何动态设置DBGRID。比如,动态设置DBGRID的COLUMNS。及如何在数值数据格式成千分位 如何返回BDE的状态信息?-Delphi资料 如何控制关键字段的重复输入及报错-Delphi资料 如何设置Microsoft SQL Server 全文索引服务 ?-Delphi资料 如何设置多用户环境的PARADOX数据库-Delphi资料 今日我要把分全送人,我要隐退江湖了 关于关闭“进程”的问题???,help!!!!!!! 在家用SQL server7.0 做的數據庫backup文件怎麼不能在公司的機器上restore,急死我了!!! 关于MTS问题 给分王,我要功成隐退了 关于fdisk的使用出现意想不到的问题!!!!! 在公司做好的本地程序,和数据库,如何上传 有缘人,送分人,功成身退 誰有Java的在線网絡游戲,就象263,yahoo上那樣的. error C2664是怎么回事?十万火急!!! 我的编译器总出 LINK : fatal error LNK1104: cannot open file "Debug/Typer.exe" 是什么原因? 送分喽 vb中的问题!!!急 请问:fastreport的自定义变量如何与delphi变量进行互相传递!!! 请问各位高手关于局域网共享上网的设置问题。 basic 的数据结构问题 asp与xml 百分求维护经验 初级问题 求救:如何用fileup组件将一个文件同时存到两台机子的硬盘上! 有关netmeeting、AVPhone或其它做视频会议相关控件的使用方法。 a question about String Type!Please help me! 关于%include的问题。高分 vb如何访问sql-server。 有用SDK编写的象“我的电脑”那样的程序吗? 请教:如何绘制成绩分析的正态分布曲线? bean里删除文件? 请问关于响应事件的问题?? 请问怎样用在Active DLL中调用ASP的response对象? 请介绍几本关于vb的书,不是入门的书,有没有向<delphi5开发人员指南》这样的书???? dos下编程,如何获得文件创建时间? 如何判断存储过程执行成功结束?(50分相送) 谁行行好吧,小弟谢过了!(sql的cd key) 请教现在是应该学习VB6还是VB.NET? 关于在mfc中自定义类的一个问题 请教现在是应该学习VB6还是VB.NET? 谁有在VB中开发DirectX的教程,请推荐下载地址. zrong(zr) TommyTong(童童) GreenWaterBlueSky(我的家在碧水蓝天) 进来看一看可以吗? 谁行行好吧,小弟谢过了!(sql的cd key) 这里是个关于Iczelion的win32的汇编教程中的一个问题,请各位指点! 请问如何让VB。NET编译的。EXE文件在没有装有。NET架构的系统上运行? 大白鲨:计算机软件专业到低学那些课程 窗口的最小化和最大化事件是什么? 怎样实现在主窗体显示后,出现登录窗口?? 三层结构系统的问题! 存储过程问题 如何从Select的结果中再查询数据? 求助:此书<<windows me程序设计手册>>附带光盘的源代码---作者台湾,位元文化 大白鲨:程序员的爱情问题 form1.WebBrowser1.Navigate('www.zz.ha.cn');showmessage('下载完成');总错误 提问:关于报时程序 为什么我没回答问题, 1 一个圆锤形零件 底面半径是3厘米 高是5厘米 将他浸没在一个圆柱体的玻璃缸中 上升了三米 这个玻璃钢的底面积是多少平方厘米2 一辆货车箱是一个长方体 他的长4米 宽1.5米 高是4米 装满 《最后一头战象》中嘎羧的内心感受要以“我”为主人公.[注:我为嘎羧] (我全部财富都对了,虽然有点低,但请帮帮.) my father ,my friend英语作文大学英语作文- -,我英语挺差的,明天回学校了,其实不一定是my father ,my friend为题,要求是my father,my 不会的就不要回复了.轻轻的飘过即可~ 吾江南人斩竹而薪之 翻译 初三英语题请帮我解释一下If you wave your book in front of your face ,you can feel the air ___against your face A moved B moving C moves D to move(告诉一下 为什么不选C)Most of the people ___to the party were womenA invited 最后一头战象:嘎羧给你留下什么印象? 任光禄竹溪记里的吾江南人斩竹而薪之是什么意思? 请举例说明政治经济学的杠杆原理及其作用 最后一头战象小练笔:嘎羧在河畔回忆什么文章----------小练笔 Can you see —— No,let’s go and have a look .Maybe we can help them.what are they doing there 我想知道为什么不倒装?为什么不选 what is going on there 说错了,不是不倒装,是为什么不调换语序?后面那个不用解 政治经济学有什么作用我们下学期就要开设这个课程了.我希望读过这门课的师兄师姐们简单说说你们课完这门课的感受,你们觉得这门课对自己最大的好处是什么?主要说一下这门课的好处吧, 《最后一头战象》《词语手册》作业答案kuai. 英语翻译My Father My father is a kind man.He is not very tall but he is a man of perseverance.He works very hard and his services are highly appreciated.My father is a man of devotion.Every morning he gets up the earliest to make breakfast for us “楚人学舟”中惟舟师之是听中的“是”如何解释? 求《最后一头战象》的好词好句越多越好不是课本上的,好词好句都要有啊,好段也行!快! I felt ( ) when I fell down on the playground.这里的空格答案里是painful,我想问的是,填pain行不行?我知道feel后面跟的是形容词,但课本里有一句话是 If you felt some pain,you'd stop running.为什么这里feel后面跟 答案谢谢快点有财富值‼ 经济学:储蓄投资恒等式如何理解?两部门、三部门、四部门的不同情况,书上讲C+I=C+SC+I+G=C+S+TC+I+G+X=C+S+T+M书上讲,以上等式左边表示总支出或总需求等式右边表示总收入或者总供给那么总支出 字母都代表什么?比如V=?要全面 快来拿 (西方经济学)举例说明支持价格的意义简答题,好久不做了, 孔子云:何陋之有 翻译 自行车为什么有两个车轮? 经济学意义上的“投资”是什么?西方经济学,宏观部分 孔子云:何陋之有,怎么翻译 自行车的两个车轮哪个最重要? 先到先得哦 英语翻译1子曰:“吾十有五而志于学,三十而立,四十而不惑,五十而知天命,六十而耳顺,七十而从心所欲,不逾矩.2温故而知新,可以为师矣.3学而不思则罔,死而不学则殆.4知之者不如好之者,好之 快速解释词语1.开国大典:2.城防部队:3.五更天:4.肃立:5.擎灯:6.瞻仰: 微观经济学中经济租的概念和举例说明如题!谢谢! 用“简单”造两个句子,体现词语不同的意思答得好我再加高分 何陋之有有什么含义 先到先得 "简单"一词有两种意思,用"简单"造两个句,要分别表达不同的意思. 自行车为什么要用两个轮子,是谁发明的 如何理解当今世界经济的基本特征?举例说明这是证券投资学的一个题目 关于 经济全球化 市场一体化 资产证券化的方面 用“简单”造两个意思不同的句子要两个意思不同的句子哦! 是谁发明了自行车呢?为什么只有俩轮子骑上不会倒呢? 先到先得啊 用两个意思不同的“简单”分别造一个句子 关于酒的诗句有哪些?说明其含义.给好评 送财富值先到先得! 杠杆的作用是什么? 第四小题,解释词语,有好评. 数学应用题,给我解答了的有财富!在中国内地的广大农村地区,许多适龄儿童因贫困不得不辍学.据估算,100元便可以使一名贫困学生重返校园,10万元便可以为农村儿童建一所希望小学.请你算一 杠杆 的用途?什么是杠杆?杠杆的作用? 第11题、帮忙解释词语.🈶好评! 5财富某项工程甲要15天完成,乙要20天完成,丙要25天完成.(1).甲、乙共同做这项工程,几天可以完成?(2).甲独做3天后由丙接替,丙还需工作多少天才能完成任务?(3).乙、丙共同做多少天可 《最后一头战象》嘎羧告别村寨,屹立在江边回想往事,选择其中一个场景,想象嘎羧的内心感受,并写下来.200字 求一篇英语作文,father 要小学6年的水平 数学应用题 赏20分财富值一筐苹果连筐共重50kg,卖出一半苹果后,剩下的连筐一共重28kg,求筐内原来共有多少千克苹果? 《最后一头战象》课后小练笔嘎羧内心的感受怎么写啊? 这几个词的注音注释,给好评 先到先得 键入“你很帅”即可. 【急用!】《最后一头战象》小练笔,嘎羧告别村寨的场景和嘎羧的内心感受. 求一篇小学六年级的英语作文 my trip 要求:45字 先到先得. 关于《最后一头战象》嘎羧告别村寨时场景的内心感受具体一点!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘