面向对象程序设计实用教程--Visual Basic可视化编程 教学课件 作者 杨光宏 第8章.pptVIP

第八章 网络编程 本章学习目标 应知： 网络上常见的几种协议的用途 TCP/UDP协议的通信过程 应会： 使用Internet Transfer控件 使用Winsock控件 编写点对点模型的网络通信程序 编写基于TCP协议的网络服务程序 项目1 使用Internet Transfer控件下载文件 任务1 添加Internet Transfer控件 单击开发环境菜单“工程”“部件”，在“部件”对话框中选上“Microsoft Internet Transfer Control 6.0” 双击工具箱中的Internet Transfer控件的图标 任务2 下载互联网上的网页 双击窗体Form1上的“开始下载”按钮，切换到代码编辑窗口，在Command1_Click()事件过程里输入如下的代码： 任务3 下载互联网上的图片文件 在Form1上添加一个图片框控件Picture1 编写代码 项目2 用Winsock控件制作局域网聊天程序 任务１ 认识互联网的常用协议 UDP的通讯过程 任务2 界面设计 单击开发环境的菜单“工程”“部件”，在添加部件的对话框里选中“Microsoft Winsock Control 6.0” 双击工具箱中的Winsock控件图标 任务3 编写发送和接收信息的代码 任务4 测试聊天程序 项目3 制作时间服务器程序 下面制作一个时间服务器程序。所谓的时间服务器就是一种专门提供准确时间的一种服务，例如要校正自己计算机的时间，则可以登录到Internet上的一些原子钟的时间服务器（如：）以获取得准确的时间。 程序分服务端和客户端两部分，服务端负责接受客户端的连接，并把服务端计算机的当前时间发送给客户端，客户端收到信息后显示出来。 任务１认识TCP协议的通信过程 任务２ 服务端程序的设计 在窗体Form1中添加一个标签控件、一个列表框控件和两个Winsock控件。其中列表框控件List1用于显示服务端程序的运行状态 任务３ 客户端程序的设计 在窗体Form1中添加一个标签控件、两个文本框控件、一个命令按钮控件和Winsock控件。将Winsock控件的名称改为wsckClient。 任务４ 测试程序 小结 现在很多软件都提供了自动升级功能，我们也可以在自己的程序中添加自动升级功能。该功能的实现的思路是：在软件运行时每隔一段时间就使用Internet Transfer控件获取互联网上的某个网页的内容，这个网页包含有该软件的最新版本的信息，当比较版本信息发现有新的版本时，再使用Internet Transfer控件将新版本的程序下载回来到一个临时的文件夹中，下载完毕后就提示用户运行新程序，这样一个自动升级功能就完成了。 使用Winsock可以在两台计算机之间传输各种各样的数据，利用它可以制作例如文件传输、远程控制、网络对战游戏等网络应用程序。 思考与练习题 使用UDP协议如何制作一个支持多人聊天的网络程序？ 使用Winsock制作一个简单的文件传输的程序，要求能传输文本类型的文件。 * * 面向对象程序设计实用教程 — Visual Basic 可视化编程 Private Sub Command1_Click() 下载网页的过程 Dim s As String 该变量储存返回的网页的内容 s = Inet1.OpenURL(Text1.Text) 使用OpenURL方法下载Text1里面的网址 对应的互联网资源 Text2.Text = s 将下载所得的内容在Text2中显示 End Sub Private Sub Command1_Click() 下载图片的过程 Dim db() As Byte 用字节数组储存返回的二进制的内容 db() = Inet1.OpenURL(Text1.Text, icByteArray) 使用OpenURL方法下载Text1网址 对应的互联网资源,并用icByteArray 参数指定下载的内容是二进制的。 下面代码的作用是将下载回来的数据 db() 写入到文件 Open c:\down.gif For Binary As #1 以二进制方式打开c:\down.gif文件 Put #1, , db()