自从Internet技术成熟和普及以来
人们就可以非常方便、快捷地在互联网上进行文件下载、信息发布、在线视频、即时获取信息、电子邮件传送等操作
Internet可以说是21世纪人类电子科技
大创新也是新代媒体替代物由于这个重大改变人们生活方式也随的受到了非常大影响电子购物、网上信息库、网上股市实时交易等如雨后春笋般出现那么这些方式是如何在互联网络上实现呢？本文介绍采用现今比较流行
设计语言Visual Basic 6.0独有网络Control控件来开发设计Browser及FTP思路方法以往
Visual Basic 4.0并没有提供个完整解决方案供Visual Basic爱好者设计Internet而使用Visual Basic 6.0提供些网络Control控件就可以设计Internet相关在本文中笔者将会用Internet Transfer control6.0配合Web Browser control阐述了如何用Visual Basic 6.0轻松地设计Browser及FTP思路方法相关内容介绍
Visual Basic 6.0 是
种基于对象设计系统它将Windows系统很多功能都集成到了Control控件中VB中Control控件和其他面向对象语言类似也提供了按钮Control控件、文本Control控件等Windows界面常见功能Control控件每个Control控件都具有自己属性和事件可以为Control控件属性赋值触发Control控件事件实现特定功能1、主要Control控件介绍
1.1 Internet Transfer control介绍
Internet Transfer control 6.0是微软为方便使用者设计Internet应用
所提供种Control控件它提供了HTTP和FTP两种互联网协议在使用Internet Transfer control时必须依据网络性质先设置它存取方式存取方式分为直接连接到Internet和通过代理(proxy)来连接Internet两种当设置好了相关参数的后Internet Transfer control提供了OpenURL和Execute两个思路方法用于执行网络相关操作在下面设计中笔者会介绍说明它使用方法1.2 Web Browser control 介绍
Web Browser control最早是由IE 3.0提供
在安装IE 3.0时就会自动载入Visual Basic 6.0 将其变成内部Control控件它提供Navigate思路方法能够连接到Web服务器由于Internet Transfer control并没有提供图形模式
存取方式所得到文件仅能以文本模式传回；如果传回文件包含图形话则必须将所得到HTML文件用做个转换在此所以笔者选择了Web Browser control来做个转换 2、Web Browser
设计2.1网络参数设置
首先确定网络系统是直接连到Internet还是通过代理(proxy)连接到Internet
可以通过以下步骤来确定系统是以哪种方式连接到Internet:双击"我电脑"→"控制面板"→"Internet选项"打开Internet 属性对话框在Internet 属性对话框中选择"连接"选项页通过该选项页就可知道系统是通过代理方式还是通过直接连接方式连接到Internet如果系统是通过代理方式连接到Internet
必须找出代理服务器(proxy Server)地址及端口以利于设置具体操作如下:单击"局域网设置"按钮显示"局域网(LAN)设置"对话框如图1
在此对话框中即可查看代理服务器地址及端口
图1 局域网设置对话框
2.2
设计(1)创建
界面单击"File"菜单下"New Project"命令显示"New Project"对话框如图 2单击"Standard.EXE"图标创建个新工程,将工程文件名设置为Webbrowser.vbp 
图2 Visual Basic 6.0
新建工程界面在工程文件创建以后
系统自动地创建了个窗体Form默认窗体文件文件名为Form1.frm在窗体上添加所需Control控件适当调整它们大小和位置(2) 设置窗体界面中Control控件
属性Control控件属性设置见表1在设置过程中定要确认所选中Control控件然后在逐设置该Control控件属性表1 Control控件属性设置
Control控件类型
属性和属性值
功能描述
TextBox
Name属性设置为CGISearchText属性设置为空
输入CGI命令
TextBox
Name属性设置为webnameText属性设置为空
显示html文字结果
TextBox
Name属性设置为htmlshowText属性设置为空
输入要前往
网页地址Label
Name属性设置为Label1Caption属性设置为Search
用来描述操作
CommandButton
Name属性设置为SearchCaption属性设置为Search
执行CGI命令
CommandButton
Name属性设置为GoCaption属性设置为Go
执行前往网页地址
动作CommandButton
Name属性设置为ShowDocCaption属性设置为ShowDoc
执行显示html文字结果
*Inet
Name属性设置为Inet1
Accesstype属性设置为2-icnamedproxy
Protocol属性设置为4-icHTTP
Proxy属性设置为192.168.4.2:8080
实现通信和网络操作
*Web browser
Name属性设置为Web1
用来处理WEB页信息
其中带有*号
Control控件是在工具箱中看不到Control控件需要从部件中添加添加思路方法如下: 选择"Project"菜单栏中
"Components" 菜单命令显示对话框如图3选中"Controls"选项卡中两个选项后单击"确定"按钮在工具箱中就添加了所需Control控件
图3 选择组件对话框
设计完成后
窗体界面如图4
图4 Web Browser系统设计界面
(3)编写
代码在Go_Click
中加入以下代码这个动作是连接到所选择网页服务器并将屏幕显示在web1方块区域内Private Sub Go_Click
web1.Navigate webname.Text
End Sub中运用web1Navigate思路方法该思路方法将屏幕连接到webname 文本框Control控件中所指定网络站点 在htmlshow _Click
加入以下代码:Private Sub htmlshow _Click
a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub该
先将web1所连接到URL 地址通过LocationURL属性读出并将它暂存于
串a接着使用OpenURL命令将所接收到HTML代码显示在ShowDoc 文本框Control控件中在CGIserch _Click
中加入以下代码:Private Sub CGIserch _Click
Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text
End Sub该
用CGI命令来查询文件将查询命令指定传送到sina这个网络搜寻站这样就完成了个小型Web Browser2.3测试
远行设计完
Web Browser在web name文本框中输入所要网址如输入http://www.baidu.com单击"Go Button"按钮将会在web1 Control控件方块区域内显示了baidu主页单击"ShowDoc"按钮baidu主页HTML代码则显示在htmlshow文本框中接下来试试CGI搜寻功能
如在CGIserch 文本框中输入"图书"然后单击"Serch"按钮则查询结果被显示在web1方形区域中同样也可以单击"ShowDoc"按钮则将查询结果所传回HTML代码显示在htmlshow文本框中显示这样个简单WEB浏览器基本功能就实现了 3、FTP
设计前面提到Internet Transfer control可以提供FTP 协议
下面介绍用 Internet Transfer control来设计个可以连接FTP Server客户端并将FTP Server上bbb.txt文件下载到本地端(1) 使用同样
思路方法建立个新工程将工程文件名设置FTPclient.vbp 默认窗体文件名为FORM1.FRM部分Control控件属性设置见表2:表2 Control控件属性设置
Control控件类型 属性和属性值 功能描述
TextBox Name属性设置为FTPgetfileText属性设置为空 输入传输
文件名 CommandButton Name属性设置为FTPgetCaption属性设置为FTPget 进行文件传输操作
CommandButton Name属性设置为FTPLinkCaption属性设置为FTPLink 进行文件传输连接操作
Inet Name属性设置为Inet1
Accesstype属性设置为2-icnamedproxy
Protocol属性设置为4-icFTP
Proxy属性设置为192.168.4.2:8080
Username属性设置为"wnaglichen"password="2522510"
实现通信和网络操作介绍说明:在此将Username及password设置好
当Login进入FTP Server时Server设计完成后窗体界面如图5 
图5 ftp
设计界面(2)编写
代码在FTPLink _Click
中输入以下代码:Private Sub FTPLink _Click
Inet1.excute "FTP 192.168.4.20"
End SubExecute是Internet Transfer control提供
个用来执行FTP公用思路方法可以在它后面加入FTP命令这样就可以使用任何熟悉FTP公用来完成工作笔者FTP Server地址是192.168.4.20所以在FTP命令后面填入这个地址在FTPget _Click
中输入以下代码:Private Sub FTPLink _Click
Inet1.excute "GET aaa.txt c:bbb.txt"
End Sub该
可实现将FTP Server上aaa.txt文件传送到客户端执行FTPclient
单击"FTPLink"按钮连结到 FTP Server；单击"FTPget"按钮取回文件此时可以发现在本地硬盘C:目录下面看到多了个bbb.txt文件这个文件就是从远程服务器中下载到本地文件这也就介绍说明个简单文件传输设计成功了 结论
通过上面
阐述大家可以了解在VB中开发Web具体流程随着网络普及和计算机发展、文件传输速度提高些高质量Web也将随的产生本文所介绍是笔者在此方面做点尝试已经调试成功
最新评论