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

利用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,就可以通过对象缓冲区仔细处理页面中的内容。
IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 这样的网络游戏一个值多少钱?请报价。 软件发布:《加密樵夫》 软件发布:《加密樵夫》 谁有Dreamweaver4.0的注册码,我晕,555555555…~~~~~~~~~ 我曾在本论坛看到一篇“用纯ASP代码实现图片上传并存入数据库中”的文章,可是怎样实现一个页面上传多幅图片呢,高手能否帮忙看一下? 如何检测一个超链接是不是死链接 软件发布:加密专家系统 只要点一下,妹妹我就以身相许 谁有Dreamweaver4.0的注册码,我晕,555555555…~~~~~~~~~11 请问只要是线程就有消息队列,还是此线程产生window后才有消息队列?在控制台程序中,在消息循环中,当受到一wm_timer消息时,此消息将发送给那一window procedure? 软件发布:三维几何画板 CSDN有徐州的朋友吗 请教高手一个关于图像格式的问题 高手清帮忙:如何获得一个控件的电子签名认证?急,急,急! 觅有时间有经验用MAPINFO开发GIS的高手? IE 能不能同时浏览2种以上不同设置的网页? 初级asp问题 询问-----上海在哪里有软件考试报名? 怎样用SDK的方法改变文本框的前景色和背景色?(内空) 能推荐几个有关COM、ActiveX技术的网站吗?每个10分不够再加。 请问ljhua,ASP网页怎样调用*.bat文件,是服务器上的还是客户机上的bat? ****************** 先散掉点分,省得走的时候累赘 ****************** UNICODE和WinMain 一个空战游戏,附源程序! 创建WebSnap应用程序(一) 请教一个http错误号 vs.net安装(2) 请教高手,怎样使用信使服务向局域网内的其他用户发通知? 使用过DeviceIoControl的高手请进: 不知用过jbuilder5的朋友有何感想 如何用程序中断拔号连接? DLL调用 搞什么鬼?不给超过三次? ADOTable如何查询数据? 软件发布:小精灵 vcguy,come on! 我在用resin做标签库时遇到问题,请大家帮忙。 没有源代码的情况下,由*.DLL该如何生成相应的*.LIB文件? 那位先生对 Oracle Spatial比较感兴趣~~~~~~~~~~~~ 如何在电子邮件中加入JAVA语句,重谢!!! 我不知道~ 竟猜: 成精的狐狸不是狐狸mm就是狐狸jj。那HolyFire 是狐狸jj还是狐狸mm呢?? 软件发布:图标精灵 请问在网上怎样发传真! 为何我的表只能做一页 怎样从显示名称获得它的PItemIDList ********如何在窗体中动态的创建组建?********来者有分 笔记本电脑和台式机怎样连起来传输文件! 很菜的问题,请各位指教谢谢! 花开石头你个笨鸟 我在这里那!! 如何设置串口的“流控制”为“无”? 将1-12分别填入图中的12个小方格内,使得每条边上的四个数的和相等,这个和最大是多少? 把19分成若干个自然数的和,如何分才能使他们的乘积最大 有一个质数,是一个两位数,两个数字之和是8,两个数字之差是2,这个质数是多少? 将-8,-6,-4,-2,0,2,4,6,8这9个数分别填入图中9个方格中,使得每行3个数,每列3个数 把19分成n个自然数的和,怎样分才能使它的乘积最大. 一个质数是两位数,其数字之差为7,这个质数是多少 任意画出由九个数组成的方框,设中间一个数为x,这九个数的和y,试用含x的代数式表示y 1.把19分成几个自然数的和,要使这些数的乘积最大,应该怎么分?最大的乘积是多少?2.甲、乙、丙三乡各出等量的钱,购买若干辆汽车,买好后,由于丙乡需要量少,结果丙乡比甲、乙两乡各少要15辆 有一个质数,是两个数字组成的两位数,两个数字之和是8,相差2,这个质数是? 如图是某月的月历,用正方形圈出九个数,设最中间一个是x,则用x表示这9个数的和是? 把19分成若干个自然数的和,如何分才能使自然数的乘积最大?最大值是多少?要算式解. 有一个质数,是两个数字组成的两位数,两个数字之和是8,两个数字之差事2,那么这个质数是几? 从月历中框出3*3九个日期,他们的和有怎样的规律?将方框向左向上移动一格,这九个数的和会发生什么变化. 把19分成几个自然数的和,这些加数的连乘积最大是? 有一个质数,是两个数字组成的两位树,两个数字之和是8,两个数之差是2,那么这个质数是几? 如图,机械手要将一个工件从图中A处移动到B处,但是这个工件不能碰到图中的障碍(不包括坐标轴),试用坐标写出一条机械手在移动中可能走的路程 已知四个互不相等的整数的乘积等于9,这四个数的和是? 有一个质数,是两个数字组成的两位数,两个数字之和是8,两个数字之差是2,那么这个质书是几? 设在排成每行7天的月历表中某数是a,那么它下方第1个数是几?用代数式表示.这是几次多项式? 已只4个互不相等的整数的乘积等于9这4个的和是几快 我是一个质数,是一个两位数,十位数字与个位数字的和是10,我是? 设在排成每行7天的月历表中某个数是a,那么它下方第一个数是几?用代数式表示,这是几次多项式? 一个整数和一个小数的乘积等于它们的和,求这两个数. 我是一个质数,是一个两位数,十位数字与个位数字的和是10.我是几? 某月的月历上连续三天的日期之和不可能是( ) a.18 b.78 c.65 d.9 如何证明两个数的乘积等于最大公因数与最小公倍数的乘积 一个两位质数,交换个位与十位上的数字,所得的两位数仍是质数,这个数有什么. 你能否用方框在如图的月历中圈出9个数,使这9个数之和为171?如能,请说明理由;如不能,在下一个月的月在下一个月的月历中能否圈出?为什么? 有三个正整数一个比一个大1,三个数的乘积是210,求三个数 一个两位数的质数,交换个位与十位上的数字,所得的两位数仍是质数,这样的两位数有几个? 在2008年12月的月历上能框出和是80的9个数吗?能框出和是180的9个数吗? 如果3个连续的正整数的乘积是210,那么这3个数分别是多少? 一个质数是两位数它的个位数字与十位数字之差是7这个质数是几 2008年12月份的月历卡,一共可以框出几个不同的和?长方形的长是3,宽也是3!(每次都要框9个数) 三个连续正整数,他们的乘积是336,求这三个数. 1/?+1/18=1/? 在九个方格中填入-8、-6、-4、-2、0、2、4、6、8使每行,每列,每条对角线上的三个数等于零 在2008年12月的月历上能框出和是80的9个数吗?要方法! 三个连续的正整数,如果后两个数的乘积的差为114,求这三个数的和 将数字1,4,5,6,7,8,9分别填入如图的方格中,要求每个格子中的数字都比它左边格子中的数字和上边格子中的数字大,问:共有几种填法 将0.3;0.6;0.9;1.2;1.5;1.8;2.1;2.4;2.7九个数填在方格中,使各行个列及对角线上的三个数的和均相等 三个正整数的乘积为84,其中两个数的和等于另一个数,这三个数分别是什么? 1、2、3、4、5、6中选出四个数字,填入方格里,使得右边的数比左边的大,下面的比上面的大,几种填法?图是“田”字图 将0.3 0.6 0.9 1.2 1.8 2.1 2.4 2.7九个数填在下面的方格里,是各行各列及对角上的三个数的和均相等. 怎样修改:自然数可以分为奇数、偶数、质数、合数.(注:不能改变“自然数”、“偶数”、“合数”这几个字) 从1、2、3、4、5中选出四个数字,填入下图的方格里,使得右边的数比左边的大,下面的数比上面的数大,一共有多少种不同的填法一个3列2行的表格,最右边的一列上行是6下行是7 把-7,-5,-3,-1,1,3,5,7,9这九个数填在九个方格内使每横的三个数每竖的三个数以及对角线上的三个数的和相等 什么叫自然数 小数 百分数 奇数 偶数 质数 合数 因数 倍数 公倍数 互质数 九个方格,第一行左边一个数是3,第二行左边一个数是6右边一个数是2,在其他空格中填上什么数字才能让...九个方格,第一行左边一个数是3,第二行左边一个数是6右边一个数是2,在其他空格中填 把2,3,4,5,6,7,8,9,10这九个数填到九个方格中,使每行每列,以及对角线上的各数之和都相等 整数、自然数、小数、分数、奇数、偶数、质数、合数、因数、倍数、真分数、假分数的定义分别是什么?请回答者把以上所有的数的定义都回答上,回答的全的网友追加分! 从1,2,3,4,5中选出四个数,填入图中的方格内,使得右面的数比左边的数大,下面的数比上面的数大,那么有多少种填法,写出算式.图片为长方形分成四个填数… 0.1.2.3.4.5.6.7.8.9这一组数字当中,分别填到方框里(每个数只能用一次),使三个算式成立(至少写两个答 非零自然数按()的个数来分,可以分成质数()和() 把-1、+2、-3、+4、-5、+6、-7、+8、-9填入图所示的的方框内(3×3),使得每行每列每一条对角线上的三个数都满足:1.三个数乘积都是负数 2.三个数绝对值得和都相等. 将0、1、2、3、4、5、6这七个数字分别填入下面算式的方框内,每个方框内只许填一个数字,使算式成立( )x( )=( )( )=( )( )除( ) 两个连续的非零自然数,他们都是质数,这两个数分别是( ) ( ) 如图,在另两个方框内各填入一个数,使前两个数之和比后两个数之和小5,且三个数之和为0-3 ( )( ) 用0.1.2.3.4.5.6.7.8.9这10个数添在方框里,试下面的3个算式成立□+□〓□□―□〓□□□÷□〓□ ()和任何非零自然数都能组成互质数;两个质数的乘积一定是()
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn