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

利用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,就可以通过对象缓冲区仔细处理页面中的内容。
开发者赚了90亿:从苹果Q2财报,看iOS生态 备受开发者青睐的13款热门开源项目 Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 为什么:Google Glass只能运行Web应用? 对话Rackspace高级副总裁Jim Curry:我们没有"辜负"营销炒作 7个大数据流言——避免错误的Hadoop和云分析决策 Facebook vs. Google:撇开搜索,数据中心产业上的又一竞技 苹果将于6月10日召开WWDC 新版OS X和iOS或将面世 传Amazon今年秋季发布电视机顶盒设备 够快:不会3种以上语言的程序员不是好程序员 Cloud Foundry、Greenplum获通用电气1亿美元注资 微软推超强Android应用Switch to Windows Phone Unity CEO宣布:放弃支持Flash平台 为交房租做App:我第一年赚了7万美金 iOS越狱大神Comex加盟Google 曾错过苹果Offer 维基百科正式从MySQL迁移到MariaDB数据库 JavaScript MVC框架PK:Angular、Backbone、CanJS与Ember 大数据推广引领精准推广浪潮 ThoughtWorks负责人曾学海:数字渠道细分带来的架构演进 你画我猜2 : Draw Something 2正式发布 云中游科技CEO张帆:畅谈“找你妹”的自营销 Oracle当心,MySQL原始团队已重整旗鼓! 优秀的Meteor学习资源 ThoughtWorks美女分析师:如何规划企业在线数字渠道战略? OpenStack将怎样影响软件行业? 知识产权日特稿:谁动了程序员的源代码版权? MIT技术评论评选2013十大突破性技术:深度学习居首 Chrome测试版添扩展程序 可直接浏览Office文档 Ubuntu 13.04携中文衍生版UbuntuKylin 13.04发布 Spark核心开发者:性能超Hadoop百倍,算法实现仅有其1/10或1/100 移动开发的碎片化时代,我们该怎么办? 有做网格控件经验的请进 请教一个数据库的小问题 各位高手帮帮我! 高手来帮忙!!! 菜鸟提问:怎样从HBITMAP获得BMP的尺寸?(SDK) 请帮忙。 请问一个关于photoshop的问题,多谢指教100分 vb excel 关于MFC多文档在何处放置自已的初始化文档的代码? 今年又是一个人过中秋,终于想找个GF了! 电影画面倒置是怎么回事? 如何将pbyte指向的byte数据传递给byte数组或char等 送分 为中秋节还工作在自己岗位上的朋友散分! 送分 cgi---這裡有多少個寫法?? 送分 gcc编译好的程序怎么运行阿? 关于多文档的问题:如何固定视窗大小? 替换字符串 初学VC的困惑——什么是标准C?? 一个小数,如何确定小数点的位数? 菜单乱码,求救! 怎样调用delphi编的DLL中的函数 关于XP操作系统中的imail 服务器的配置问题 請問有多少個寫法?????在线等待!急啊! to 思归 ,VIEWSATE的那个问题,无人回答,我贴出代码了,你看看, substring(indexA, indexB) 的官方解释不明白 请教大师两个问题 卷积是什么意思?请介绍一下这方面的资料? 用户界面与开发环境怎样脱离????? ASE 12.5.0 FOR NT安装问题。。。 没分了,但还得提这个问题? ComboBox问题? combobox问题? 散分 发现QQ一个惊人的大秘密!!!! 请教yahoo上 点一下“セキュア(SSL)”怎么会使网站可以进行ssl加密??怎么做到的? 中秋节的晚上还在SQL版上晃的朋友进来 一个菜鸟问题 超级简单的问题 Win2000的开机画面,能改吗 中秋快乐!!!怎么样录制清楚无杂音的音效?帮个忙,多谢了!!!等待…… 一个很简单的问题 hash算法可逆吗? 过节了,特来散分,祝大家中秋愉快。 中秋节了,给父母打电话,可是现在每次都说不到一块儿去…… JBUILDER中如何声明全局及私有变量? Let's Celebrate !!! 虚拟内存是设置越大越好吗? 请求算法?关于串口读写速度问题。 每次做完试卷心里总以为自己做对了草草看一遍就过去了,有什么检查方法吗 跪求出卖笑的孩子读后感500字.TAT 求55篇《水浒传》或《三国演义》的读后感或赏析!TAT! 五年级上册语文第四单元习作题目是什么 林书豪的励志小故事要求:1.短文100~300字 2.励志 3.能让人思考 4.不要简介 5.有描写谢谢大家! 我的大学好词好句 B/L issued to order of Applicant 我1米7.现80公斤,怎么才可减肥? 第九题, 若/ab-2/+/b-1/=0,求1÷ab+1÷(a+1)(b+1)+1÷(a+2)(b+2)+...1÷(a+2010)(b+2010 1/ab+1/(a+1)(b+1)+1/(a+2)(b+2)+1/(a+3)(b+3)+.+1/(a+2010)(b+2010)=?对了 a=2 b=1 迪拜首个太阳能公园一期工程落成《目连救母》为第六届巴黎中国传统戏曲意名望家族后裔欲将佛罗伦萨列为世界濒俄罗斯暴力事件频发 普京抨击外国势力乌克兰拟通过出售多余不动产为军队改造巨型牡蛎长约35.5厘米 或为世界上新西兰外交部呼吁下功夫给予中国游客最美民调:58%民众支持大麻合法化 比澳大利亚11岁男孩因纵火被关“虚拟软美国首条高铁动工 48公里长穿越加州美国被曝监听意大利民众通讯 意政府或窦文涛“入驻”央视主持《滔滔不绝》4D影院感受地震海啸泰合尚渡二期违规交房?社区老人满70 享一荤二素5元餐泰合·新光华府引领光华生活新模式用“忘情草”谋害前夫 大竹一女子获刑省农民工大赛遂宁夺2金“弹劾”行动为何发生,更得追问天府新区西航港片区19个重大工业项目红星美凯龙国庆预售明日启动见义勇为牺牲 内江女工获表彰一剑飞仙修仙笔记英雄联盟之最强主播古越二八纪大明最后一个太子封魔真经铁马关山龙境电影教师科学家日记重生是精灵段祺瑞执政府旅游土家风情园旅游蜀南竹海旅游武汉天河机场旅游上海老街旅游小白楼旅游八达岭熊乐园旅游世界公园旅游卢沟桥旅游世贸天阶旅游中央电视塔旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘