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

设计Browser及FTP程序 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
设计Browser及FTP程序 -VB资料
作者:张冠军

用VB 5.0 设计Browser及FTP程序

前言
  自从Internet盛行以来,人们对于文件下载、即时信息获取、电子邮件传送变得方便许多。 Internet可以说是21世纪人类科技的一大创新。由于这个重大改变,人们的生活方式也受到非常大的影响;电子购物、网上信息库、网上股市实时交易如雨后春笋般的出现。以往,Visual Basic 4.0并没有提供一个完整的solution供Visual Basic的爱好者设计Internet程序。 还好,Visual Basic 5.0提供了一些控件,供我们设计Internet的相关程序。在本文中,笔者将会用Internet Transfer control配合Web Browser control,来告诉读者如何用Visual Basic 5.0轻松地设计Browser及FTP程序。

Control简介
 Internet Transfer control
  Internet Transfer control 是微软为方便使用者设计Internet应用程序所提供的一种control。它提供两种Internet protocol:HTTP及FTP。我们在使用时,必须先设置好它的存取方式。存取方式分为直接连接到Internet网络,或通过proxy来连接Internet网络两种,完全依我们的网络性质来定。当我们设置好了相关参数之后,Internet Transfer control提供两个method:OpenURL及Execute 来让我们执行网络相关操作,我们可以用这两个命令来执行一些Internet command。在下面的设计中,笔者会说明它的用法。

 Web Browser control
  Web Browser control最早是由IE 3.0所提供,在安装IE 3.0时就会自动载入;Visual Basic 5.0 将它变成内部控件。它提供Navigate method,使我们能够连接到我们想要去的WWW Server。

  各位读者一定很奇怪:既然Internet Transfer control能够通过HTTP及TP protocol连接到 Internet,我们还要Web Browser control干甚么?只因为Internet Transfer control并没有提供图形模式的存取方式,所得到的文件仅能以文本模式传回。如果传回的文件包含图形的话,还必须将所得到的HTML文件用程序来做一个转换。所以笔者选择了Web Browser control来帮我们做一个转换。
  以下就让笔者来告诉读者如何设计Web Browser及FTP client。

Web Browser程序设计

Step 1:设置好网络参数
  首先要知道我们的网络系统是直接连到Internet,还是通过proxy连接到Internet。我们可以通过以下的步骤来确定我们的系统是以哪种方式连接Internet:在"我的电脑"选项double click进入"控制面板"。在"控制面板"选项中double click进入"Internet" 选项。在Internet Dialog Box中选择connection。由屏幕显示的Dialog Box就可以知道系统是通过proxy还是通过dialing的方式连接到Internet。由于笔者的系统是通过proxy连接到Internet,我们必须要找出proxy Server的address及port,以利于程序设置。
  接着click"setting"选项来查看它的address及port。屏幕接着会显示一个Dialog Box,里面记着"address of proxy to use ": 172.18.16.65,"port" : 8080。将它记录下来,等会儿就会用到这些参数。

Step 2:开始设计程序
  在File选项中选择New Project建立一个新的工程,在屏幕上会看到许多选项,如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等,这时要选Standard.EXE。
  接着在Project下,选择Property属性选项,在general选项下将Project Name改为Webbrowser。在屏幕的Form上加入一个Web browser control,取名为web1;接着加入一个Internet Transfer control,取名为Inet1。加入三个TextBox control,分别取名为CGISearch、webname和htmlshow,并在CGISearch TextBox前加入一个Label,将其Caption改为Search。加入三个Button control,分别取名为Search、Go和ShowDoc。将Caption分别改为Search、Go to和show document。

为方便读者了解关系,以下以表格解释一遍:
(TextBox)
Name
-------------------------------------------------
CGISearch(输入CGI命令)
webname(输入要前往的web address)
htmlshow(显示html文字结果)

(Button)
Name Caption
-------------------------------------------------
Search(执行CGI命令) search
Go(执行前往web address的动作) Go to
ShowDoc(显示html文字结果) show document

  接着将Inet1的各项属性设置如下:
Accesstype=2-icnamedproxy
protocol=4-icHTTP
proxy=172.18.16.65:8080

  在Go_Click()中加入以下程序代码, 这个动作是连接到所想要去的web Server,并将屏幕显示在web1的方块区域内:
Private Sub Go_Click()
web1.Navigate webname.Text
End Sub
  以上程序是运用web1的Navigate,这个method将屏幕连接到web name TextBox中所指定的网络站点。

  在htmlshow _Click()加入以下的程序代码:
Private Sub htmlshow _Click()
a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub
  以上程序,是先将web1所连接到的URL address,通过LocationURL这个property读出,并将它暂存于字符串a。接着使用OpenURL()命令来将所接收到的HTML程序代码,显示在ShowDoc这个TextBox中。

  在CGIserch _Click()中加入以下程序代码:
Private Sub CGIserch _Click()
Web1.Navigate "http://search.yahoo.com/bin/Search ? p=" + CGI.Text
End Sub
  这个动作是用CGI命令来查询文件。在这里我们将查询命令指定传送到Yahoo 这个网络搜寻站。这样我们就完成了一个小型的Web Browser。

Step 3:测试程序
  执行刚设计完的Web Browser,并在web name这个TextBox中填入所要去的网址。这里我们将它设置为http://www.Microsoft.com。接着按下Go Button,将会看到在web1 control的方块区域内显示了Microsoft的HomePage。按下ShowDoc Button,将可以在htmlshow这个TextBox中看到Microsoft HomePage的HTML程序代码。
  接下来让我们试试CGI搜寻功能。在CGIserch TextBox中加入communication,结果我们发觉查询的结果显示在web1方形区域中。同样的,我们也可以按下ShowDoc Button,将可以在htmlshow这个TextBox中,看到查询结果所传回的HTML程序代码。
  恭喜您成功了!
============================================

FTP程序设计
  前面提到Internet Transfer control可以提供FTP protocol,这里我们便要告诉您如何运用 Internet Transfer control来设计一个可以连接FTP Server的client程序,并将FTP Server上的bbb.txt文件download到local端。

Step 1:程序设计
  在File选项中选择NewProject建立一个新的工程,在屏幕上看到许多选项,如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等,这时要选Standard.EXE。接着在Project下,选择Property属性选项,在general选项下将Project Name改为FTP client。
  屏幕的Form上加入一个Internet Transfer control,取名为Inet1。将Inet1 property的参数设置如下:
Accesstype=2-icnamedproxy
Username="david"
password="2333334"
protocol=2-icFTP
proxy=172.18.16.65:8080

  我们在此将Username及password设置好,当我们Login进入FTP Server时,Server将会直接跳过输入Username和password的屏幕。加入一个TextBox control,取名为FTPgetfile。加入两个Button control,取名为FTPget和FTPLink,分别将其Caption改为FTPget和 FTPLink。

  在FTPLink _Click()中加入以下程序代码:
Private Sub FTPLink _Click()
Inet1.excute "FTP 128.9.200.4"
End Sub
 Execute是Internet Transfer control提供的一个用来执行FTP公用程序的method,我们可以在它的后面加入FTP的命令,这样我们就可以使用任何熟悉的FTP公用程序来完成工作。
  笔者的FTP Server地址是128.9.200.4,所以我们在FTP命令后面填入这个地址。

  接着在FTPget _Click()中加入以下程序代码:
Private Sub FTPLink _Click()
Inet1.excute "GET aaa.txt c:\bbb.txt"
End Sub
  这个动作是将FTP Server上的aaa.txt文件传送到client端。

Step 2:测试
  将FTPclient执行起来,按下FTPLink Button,连结到 FTP Server。按下FTPget Button,取回文件。有没有发觉到在C:\目录下面多了一个bbb.txt的文件?恭喜您成功了!
在DELPHI 文 本 和 图 形 的 打 印 在Delphi中运用QuickReport实现多栏列印 在打印或打印预览前如何获取报表页数-Delphi资料 自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 Delphi hint的字体和色彩如何改变 Delphi3.0中复活节彩蛋及实现 Delphi数据库应用程序开发中图像数据的存取技巧 DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 急急急,谁来帮忙,兄弟有难 关于COOL360的问题? 一存储过程的问题 这些错误代码是什么意思? 请问如何在vb中截获消息 请问:在Windows98和Windows2000下支持的Winsock客户端套接字连接的最大个数分别是多少? 黑客软件 还是COM接口问题 大虾,帮个忙,一个小问题先谢谢!! 关于多次搜索的一个问题,大家都来看看啦!!!!!! 绘图仪的驱动程序 跳转至某一页应该怎么做? 强烈要求CSDN恢复‘帖子提前连接’功能,请帮忙UP! C++builder 中怎么判断某一个字符在不在字符串中? 求教:为什么我的控件下载特别慢?(在网页中用的控件,客户端浏览时下载) 明年毕业,想搞软件开发,现在很矛盾,是去大公司,还是去那种中小型的软件公司呢???? 求教有开发经验的高手关于XML和数据库的简单问题 查找窗口疑问 delphi的createoleobject 一个很急的问题??? 我怎么覆盖派生类中的virtual成员函数?(up加分,详情请入内) 寻找用过JMAIL的同志! 想问一下,在收邮件时,如何取得发件人的MAIL呢? 请问像大虾们说的comp.lang.c++.moderated这样的讨论组怎么访问?(Solstice) 简单问题:关于paradox数据库 进销存的问题 高分寻找ZIP密码破解高手! 请问有没有能通过Modem发送传真的控件? >>>>树状层次关系的算法? 怎样检测机子里有没有我指定的字体,如果没有并安装,谢谢 如何动态配置站点??? seek 函数??? 谁能帮我破解些ZIP密码! DB高手请看看:逐级缩小搜索范围的一个问题,大家都来看看啦!!!!!! C# 完全手册 中文版电子书 神经网络 TADOConnect与SQLserver连接 WINS 几问 为什么BCB的自动弹出属性和方法提示速度那么慢? 请问那里能下载JBUILD6?????// 怎样用程序打开TADOConnection 的ConnectionString 设置窗体 键盘钩子?????,有实例或文档吗????? 低手问题? 大家碰到这样的问题吗? 各位,那里有d3d的教程? 从ca365下载了一个免费根证书(rootca.cer),却无法在本地计算机上安装,help! peihexian的程序发短信的一文中,程序所发的数据包 请问web service到底是个什么东西?谢谢 callingda(林丁) 来拿分30 哪位能提供一个图书管理的VB源码给我参考? yzqb()发工资了47分 请教一个问题,编译不通过,不知是什么错误。 变压器中的铁耗和铜耗到底是什么?他们有什么区别和联系?谁能用通俗易懂的话给解释一下,万分感激! 2012年12月21日开始,地球真的会经历三天黑暗,从三度空间变为零度空间进入四度空间吗?不管答案是或不是,请给出个合理的证据让人信服~(不要提什么玛雅人的预言或圣经密码,这些无法让人 移民美国后是美国公民吗请问如果办理移民到美国后,是不是就是美国公民了? 变压器的铜耗会随着电流改变,为什么铁耗是恒定值? 2012地球将进入四维空间? 怎样办理美国公民的兄弟姐妹移民美国 在没有量筒只有天平的情况下,量取120mL水说出步骤(方案),简单而明了^_^ 实验室要配置500g百分之十的盐酸溶液,需百分之三十八的盐酸(密度1.84g/ml)多少毫升?需水多少毫升 为什么滴定Ca2+、Mg2+总量时要控制ph=10,而滴定Ca2+分量时要控制ph=12-13? 美国高中10年级的化学是什么程度?我过一个月就要去那边念高一了 和国内高一比以来怎么样?听说那边理化还听难的. 用天平测装满水的烧杯总质量210克把石子放入装满水的烧杯中,从杯中溢出水的质量为20克.剩余水与石头及烧的总质量为240克,求石头的密度. 求用EDTA滴定液(0.01mol/L)滴定同浓度的Mg2+溶液的最低pH.如何控制pH 现在《美国国家科学教育标准》高中一年级的化学课程之化学反应有哪些很代表性的实验 米勒进行的模仿原始地球条件和原始大气成分的实验,最先(看清题目)证明了( ) EDTA返滴定测锡含量,如何控制PHEDTA解蔽络合法:6滴二甲酚橙指示剂,用标准Zn+2溶液滴定过量的EDTA,至由黄变红,变红是因为ZN和二甲酚橙指示剂反应,此时ZN已经称取标准品60mg,试品100 mg于锥形 An atom with a mass number of 196 has 40 fewer protons than nuetrons.Find the atomic number and the identity of this atom.算出来 结果是Pt 铂元素、 原子序数是78.the identity of this atom 这种原子的特性 是什么、?应该从哪 用密度为ρ1g/cm3,质量分数是ω的浓盐酸,配制成体积比为1:4的稀盐酸,密度为ρ2g/cm3,则所配制稀盐酸的 为什么滴定Ca2+、Mg2+总量时要控制pH≈10,而滴定Ca2+分量时要控制pH为12~13?若PH >13时测定Ca2+对结果 霍金预测地球灭亡是真的假的?要有根据 为测定一石块的密度,某同学用天平测得装满水的烧杯总质量为210g,把小石块放入装满水的烧杯中,已出水的质量为20g,剩余水、烧杯、石块总质量为240g,求石块的密度(请详细说明) 建筑50线怎么放,以什么为基准 霍金说地球还有200年灭亡是真到吗?、那我们孙子怎么办啊? 测量铅酸蓄电池原液硫酸和水比例的 “比重计”哪里有卖的?最好是电子的比重计.液体的也行. 中国和美国国土面积差不多大 为什么美国人口要比中国人口少的多 为什么霍金说地球200内会灭亡,求其理论 电子比重计价格 地球面积.人口的信息? 霍金说地球200年后会灭亡?是真的吗 米勒实验说明原始地球能形成A、构成生物的 B、构成生物的大分子有机物D、原始海洋 地球的面积和人口是多少?我要的是是现在的,精确点. 2013年地球真的会灭亡吗 电子比重计如何进入称重模式DH-300型的 建筑上的50线是什么意思? 如果有个无限长能耐地壳温度的棍子 能从地球一段穿到另一段吗? 实验室常用的弄盐酸密度为1.17g/ml,质量分数为36.5% 此弄盐酸的物质的量浓度是多少 米勒模拟原始地球的试验装置中,冷却器有什么作用冷却器模拟什么?有何作用? 关于地球地壳的一些问题比如说盖的房子之类的还有我们的马路 是在地壳的外部么? 奥运会马拉松比赛的故事 请高手介绍一下橡胶sbs的性质和用途 地球的地壳是那几个部分形成的? 奥林匹克运动会的由来,马拉松比赛的由来?说个大概 简单就好 橡胶配合剂:硫化体系、补强填充体系、软化增塑体系、防老体系的主要品种配合方法、特性、用途及使用方法. 1、下列说法正确的是( )A.摩尔质量就等于物质的式量 B.摩尔质量就是物质式量的6.02乘以10的23次方 倍C.HNO3的摩尔质量是63g D.硫酸和磷酸的摩尔质量相等2、现有CO、CO2、O3 三种气体,它们分 北京奥运会开幕式时间是8点,美国纽约的人们什么时候可以看到开幕式? 配制EDTA溶液时,为什么要加入少量的镁离子?它对测定有无影响,为什么? 高一化学摩尔题19.6gH2SO4中,O物质的的量为________,O质量为________?要分析过程噢!谢谢了! 北京奥运会开幕的时间是2008年8月8日晚上8点美国纽约人们将会在几点看到电视直播? 配制EDTA溶液时,为什么要加入少量镁离子? 为什么1mol物质的质量(单位:g)会与其相对原子(或分子)质量在数值上相等? 奥运马拉松比赛的故事 建筑50线我知道控制标高…但是具体的不知道谁能告诉我 混凝土打到离50线多少的距离 钢筋绑到离50线的距离 模板支到离50线多少的距离 谢谢了… 如何测试变压器的铜损与铁损? 2012年,地球进入四维空间,四维空间是什么样子的?四维空间到底包含哪些内容,时间、空间、?、求博学者给予解释, 怎么引结构50线比如一层4.2米,只给个正负零,怎么引至二楼变成结构50线, 变压器铁损与铜损实验1.铁损的测定用空载实验,可是为什么2次侧空载电流为零,1次侧的电流就非常小?然后才忽略了1次侧铜损.2.铁损是涡流损耗与磁滞损耗,与什么有关?3.短路试验测铜损,可是 美国NASA(太空总署)有没有今年地球将从三维空间进入四维空间的报告?净空的话:“前天得到这个信息,以前我没有看到.科学家有个报告,说科学家终于确定了,二零一二十二月二十一日,会有 用EDTA滴定金属离子M时,有时要加入掩蔽剂X来掩蔽干扰离子N,则掩蔽剂必须符合Knx Kny和Kmx Kmy以及掩蔽剂本身须 . 变压器带负载运行时,负载变化其铁损耗和铜损耗如何变化?空载损耗性质是怎样的?这是一道供用电技术课程里的题,我找遍书本都找不到这道题, 在关于“2012年”这个事件中,说到的地球即进入四维空间有事实依据不?在关于“2012年”这个事件中,在众说分去与讹传中,有这么一句话,说到“地球即进入四维空间”,有事实依据不?还是又如 男朋友要移民,成为美国公民我男朋友现在高1,8月就去美国了,他说他过俩年就转美国公民,我们有没有可能啊,我也想去美国,是考sat好还是上了大一再去好呢,我觉得越早去越好,但是sat我听说相
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn