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

利用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,就可以通过对象缓冲区仔细处理页面中的内容。
开源框架Ember.js迎来1.7.0和1.8 Beta 1更新 《近匠》RealSense:几行代码,为游戏添增实感交互 MDCC游戏应用征集关键词:中小团队,3D,转型,IP 共话HealthKit:能否颠覆医疗保健生态系统? Perception Neuron系统,让动作捕捉技术不再高冷 2014年DevOps实践调查报告 .NET程序性能的基本要领 百度手机卫士宣布开放三大能力 构建互联网安全生态 火速围观,AMD APU新芯片架构A68H呼之欲出! 对于测试人员而言,TDD意味着什么? 年用电910亿度,那些庞大的数据中心该用什么支撑 走近黑客们的世界,感受网络空间的心跳 VMworld 2014 Day One:Docker、数据中心、混合云新举措 Docker和Kubernetes或将加速SDN发展 前端开发框架三剑客—AngularJS VS. Backone.js VS.Ember.js 【CTO俱乐部读书会】《流程的永恒之道》辛鹏:企业的本质就是流程运营 紧扣微信研发痛点 2014微信开发者大会吸引大量外地参会者 Mobile First!jQuery UI组件集Wijmo五年最大更新 首届TCL杯HTML5智能电视—应用开发大赛火热开启! MDCC智能硬件征集关键词:智能家居、机器人、健康生活 采集颜色、自动同步,还有比这更牛叉的儿童触控笔么? AppCan移动平台:为企业移动化进程加速 学生强则国强,访天猫推荐算法大赛Top 9团队 Mozilla与三星之子——Servo特性解读 360天巡启动公测 打造新一代企业级无线安全解决方案 继Storm和Spark之后,Hortonworks添加对Kafka的支持 一周消息树:国产操作系统最快10月发布,并支持应用商店 技术团队看板方法实践的难点分析 SAP云服务加速转型:调动资源瞄准中国市场 开发测试全承包!移动应用开发工具Telerik平台 火火火火火!看HomeKit如何改变物联网和智能家居? 鼠标在视图和用非模式对话框交互绘图 在.login中怎么设置汉字的位数? oracle9i的安装文件都有什么?望高之!急! 如何用window.open弹出一个屏幕居中的窗口? 大侠们,在线求word200文件密码破解,急!!!!!!!!!!! ccnet(苦海放歌) tdl982324(石井坚) ( ) wanghr100(灰豆宝宝.net) possible_Y(◎)(◎)←(这是眼镜,不要想歪了)请接分 ccnet(苦海放歌)yaoxuefeng(锋雨者)brainf(后街)请接分 配置节的type的第二个参数的含义 报表问题。 最近在找个网站管理系统,各位能否给个建议 windows2000的奇怪问题 关于如何自定义组件问题 有关windows 98自动重起问题。 ListBox问题 VFP8.0中的数组问题,高手和用过的人来看看! 数据库的移植问题? 重新开机时常常变成"大图标",怎样设置使WIN2K所有磁盘(c,d,e盘)上的所有文件夹和文件以"列表"显示,就是让"查看"->"列表"固定? oracle9i的安装文件都有什么?望高之!急! 哪位有没有SCJP培训的录音或其他教学的好东西阿 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 技术与数学的问题 本人写了一个设置纸张方向和大小的函数,其中MyDevMode.dmPaperSize = psize '若vbPRPSA3 设置纸大小为A3,但在VB对象库中找不A2张对应值 tomcat4.1.24中的sevlet问题 我下载了linux的iso文件,可怎么安装啊!! 我想问一下,有关于计数器的相关的信息? 救急:是否可以在两个页面(两个单独打开得ie浏览器页面)传递参数,如何实现啊? JDBC相关的两个问题 Oracle8.1.6怎样连接SQL SERVER2000 ?(在线等待) inserted表问题 急!!!关于FileSystemObject问题,在线等 dll 编译问题 请教 请教关于iterator与container? 谁有mixerAPI的中文资料,如(mixerGetLineInfo)我需要弄懂原理(不需要MSDN) 请问“怎么样才能修改以有的flash文件”,拜托,在线等待 如何使相同的子窗口显示一个? ?请教高手有关Align的问题。 高手帮我谢谢注释~~高分相赠~~~~谢谢高手~~~~ 各位大牛们,小弟想请教大家对FlowMIS这个平台有多少了解,用此平台进行二次开发(企业信息系统)好不好。 SQL SERVER2000 怎样连接Oracle8.1.6(在线等待) C语言程序设计 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 这些年来,人们的日子越来越红火,真是_________.(歇后语) 望梅止渴主要内容 新文化运动前期的根本目的是( )新文化运动前期的根本目的是( )A、改造传统的儒家思想 B、倡导西方文化,促进社会进步C、倡导新文学和白话文 D、反对思想领域的尊孔复古我知道是B, 谚语“是金子总会发光”相近的故事是( )A.灰姑娘b.白雪公主c.丑小鸭D.海的女儿 表示“扔”的词语?暗暗暗暗暗暗暗暗 新文化运动的目标是什么?要考中国中国近现代史纲要了,有一个这个题,书上没翻到,囧. 底座是三根柱子的建筑 抛的词语是什么 新文化运动的目的 水刀切割机可以切木材吗,能切多厚,精度多少,刀路多宽.水刀切割机价格 核糖体大小亚基为什么要分离 新文化运动的目的是什么 越难越好 我才申请的 把分都给你 桃花的雄蕊有什么特点急求、、、、、 原核细胞的核糖体两个亚基分别是多大? 1.求证:对于给定的等边三角形,三角形内任意一点到三边的距离和为定值2.在∠B的两边上分别取点A,C,过A作AD⊥BC于D,过C作CE⊥AB于E,若AB≥BC,CE≥AB,那么∠B等于多少度?3.直线AB,CD交与点O,OE平分 两小儿辩斗对你有啥启发?孔子不能决也 说明啥? 与初中有关的所有物理公式(越详细越好) 霍乱肠毒素的组成中,表达肠毒素的作用成分 是A亚单位还是A1呢? 欧姆定律的应用题,越详细越好..1、(2007•宁波)如图,电源电压保持不变,表①、②、③是电流表或电压表,滑动变阻器R2的滑片P在中点,闭合开关S,三只电表均有示数.当滑片P向左移动时, 单细胞生物有没有线粒体? 朱自清在写《春》时,多处用了比喻,如写桃花、杏花、梨花,说它们“红的像火,粉的像霞,白的像雪;写…朱自清在写《春》时,多处用了比喻,如写桃花、杏花、梨花,说它们“红的像火,粉的像 适用简易程序有哪些条件? 好的,但是我想先看一下电视节目.的英语怎么说求大神 根基造句 界门纲目科属种的门有哪些门脊索动物门之类的, 早期城市的基本特征有..六个 朱自清在写《春》时,多处用了比喻,写桃花,杏花,梨花时 the only way i could do this was. 这里省去的是什么单词the only way i could do this was.这里省去的是什么单词作什么语先行词被什么词在从句中代替填术语 求问城市与广大农村相比,具有哪些基本特征? “火”还表示桃花——,“霞”还表示杏花——,“雪”还表示梨花——. 《独立宣言》,《人权宣言》,《权利法案》的启示. 为什么说密集性是城市基本特征之一 桃花,杏花,梨花都开了,红的像火,粉的像霞,白的像雪.这句话吧()比作(),说明花儿() ONE SHOT什么意思 Helicopters have only been worked on by man since 1940.怎么翻译这句话,主要是only 我不解 朱自清中的《春》为什么只写“桃花、杏花、梨花”,而不写“荷花或菊花”?如果你是老师,你怎样回答这个问题? 对丁克家族的看法?我是80年后的一代,父母辈的人的观念是:结婚就应该生孩子,这是种幸福.可是我不认为是这样.也许是价值观不同吧.我认为生孩子是项弊大于利的投资.想到生孩子,我就联想 A man has been arrested____the murder of the teenager.A in connection withB to connect 青蛙为什么长两条腿?而蝌蚪都有四条腿.. 这两个小孩哪个说的有道理?意思是什么!简介一点!好的话+100分!别长篇大论! Hardware changes might not have been detected 初一时钟问题 对丁克家族应持有什么态度 英语原型填空 send 还是 sendsPeople in western countries ____ e-cards to each other at Christmas.这里改用 send 还是第三人称 sends.这里的people 貌似是作单数的吧,今天老师说的时候我没听清楚. 没有四条腿的椅子叫什么?就是没有四条腿,可以在东北炕上用的.可以后依的. 核糖体大小亚基在合成蛋白质前是分开的还是在一起的 NADP+怎么念 椅子为什么四条腿? spare part怎么读 Do you expect _to be any possibility that he will be elected chairman?A .it B.there 2.The information on the Internet gets around much more rapidly than _in the newspaper.A.it B.that3.I intended to compare notes with a friend,but unfortunately _cound 凳子为什么是四条腿? android 手机spare part 里面有挂载/系统有只读和读写到底有什么用—什么区别—选择的话选择哪个呢? 请问 you expect to have that person to yourself 江苏省有没有动物卫生监督服装海南、上海都有 12month and 1% spare 这实在出口产品保修期的一种说法,我只是不明白的1%spare 一生物题,答案为B 请写出解释一道生物题;对某植物进行以下处理:(甲)持续光照10分钟;(乙)光照5秒钟后再黑暗5秒钟,连续交替进行20分钟.如其他条件不变,则在甲、乙两种情况下植物 县级动物卫生监督检查站一个月能开多少钱 Spare part of flue gas 吉普顿服装怎么样 崔永元:农业部应精确公布转基因作物种巴基斯坦要求美军无人机空袭行动尽快结挪威拒绝在本国境内销毁叙利亚化学武器马尔代夫前总统受到死亡威胁小偷夜闯美国务卿克里家车库 被盗情况中国国际丝绸论坛开幕 东西丝绸文化浙15岁少女被“表外公”性侵多次 因恐德国主要股指盘中首破9000点大关商务部国际贸易谈判代表钟山谈第四次中阿里云创业创新基地落户杭州外交部就俄罗斯、印度、蒙古三国总理访加拿大预计其温室气体排放量将大幅超标《失恋33天》等6部当代中国电影将走2013中国食博会11月开幕 境外食独联体举行峰会讨论打击犯罪和反恐韩媒称一名朝鲜驻埃塞俄比亚外交官8月美女子为陌生男子捐肾 三年后二人喜结泰国拟向外国游客征收入境税并提高机场综述:中泰高铁合作前景可期《中国人看白俄罗斯》文集在京首发世界拳王决定参选乌克兰总统 国外长期水朗从“项目招商”向“产业招商”转变家纺品牌进入科技竞争时代专业护工奇缺,床位不得不空置 医院办“扮鬼扮马” 吃搞怪食品“购房入户”政策或取消 未来拟采用架起为民连心桥 推出便民新举措厦门国际游艇展 挑战高端度假方式396家企业抢展最新“云物”技术大沥有色金属产业 异地结算困境待解深化四个意识擦亮党建品牌宝骏630 1.8L MT 舒适型让家门口的社区矫正租T.O.P商务园写字楼 优惠至40起亚K5最高优惠4万元东江梨川大桥完成投资4.88亿青春框不住市民网购有了新《消法》撑腰“大沥记忆”摄影展 开始征集港澳城二期商铺18万元起自助加油 需重点把控安全民众“杀婴案”主犯黄明兴判死
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘