网络编程用VB实现简单的聊天实验报告.doc

实验3：计算机网络实验——网络编程1

一、实验目的：

〔1〕熟悉和掌握网络编程的根本方法和步骤；

〔2〕进一步理解client/server交互模式；

〔3〕加深学生对于网络协议概念的理解以及协议的设计和实现方法。

二、实验任务：

使用任意网络编程语言〔Java、C、VB、Delphi等〕编写网络选课模拟程序，它由client和server两局部组成，client和server之间的通信基于TCP协议。实现数据的收发。

三、网络编程：

大多数网络应用程序都遵从client/server交互模型。该模型中，效劳器应用是一种专门用来提供某一种效劳的程序，它被动地等待通信，而客户应用主动地启动通信，请求效劳器的效劳。效劳器程序既可以接收信息也能发送信息，还可以成为客户。

TCP/UDP赋予每个效劳一个唯一的协议端口号。效劳器程序通过协议端口号来指定它所提供的效劳，然后被动地等待通信。客户在发送连接请求时，必须说明效劳器程序运行主机的IP地址和协议端口号来指定它所希望的效劳。效劳器端计算机通过此端口号将收到的请求转向正确的效劳器程序。

大多数网络编程语言都提供或者使用控件封装了套接字应用程序接口〔SocketAPI〕，应用程序通过套接字接口调用来实现和传输层交互。用户目前可以使用两种套接口，即流套接字TCP和数据报套接字UDP。流式套接字定义了一种可靠的面向连接的效劳，提供了双向的，有序的，无重复并且无记录边界的数据流效劳。数据报套接字定义了一种无连接的效劳，支持双向的数据流，但并不保证是可靠，有序，无重复的。也就是说，一个从数据报套接字接收信息的进程有可能发现信息重复了，或者和发出时的顺序不同。数据报套接字的一个重要特点是它保存了记录边界。

套节字API主要包括表1所示的接口。

使用面向连接的套接字编程，通过图2来表示其时序。套接字工作过程如下：效劳器首先启动，通过调用socket()建立一个套接字，然后调用bind()将该套接字和本地网络地址联系在一起，再调用listen()使套接字做好侦听的准备，并规定它的请求队列的长度，之后就调用accept()来接收连接。客户在建立套接字后就可调用connect()和效劳器建立连接，连接一旦建立，客户机和效劳器之间就可以通过调用read()和write()来发送和接收数据。最后，待数据传送结束后，双方调用close()关闭套接字。

表1套节字API主要接口

接口

解释

SOCKET

BIND

LISTEN

ACCEPT

CONNET

SEND

RECV

CLOSE

创立一个新的套接字

给效劳器绑定一个传输层地址

将效劳器设为被动模式

接收客户的一个请求

客户向效劳器发起连接

向一个连接的套接字发送数据

从一个连接的套接字接收数据

终止一个连接

四．程序设计及编程思路

1.翻开VB.单击文件——新建工程。在新建工程的窗口中选择标准EXE.单击确定。

2.在Form1中添加如下控件。

以此作为TCP效劳器的界面。

3.双击每个控件来添加其功能代码。

PrivatetempAsLong定义TCP效劳器下标数组

Privatelistcount(10000)AsByte定义下拉框数组

PrivatexbAsLong定义下标

PrivateSubCommand1_Click()连接

Winsock1(temp).LocalPort=Val(Text2.Text)

Winsock1(temp).Listen

Command1.Enabled=False

Command2.Enabled=True

EndSub

PrivateSubCommand2_Click()退出TCP连接

Winsock1(temp).Close

Command1.Enabled=True

Command2.Enabled=False

EndSub

PrivateSubCommand3_Click()发送数据

Dimint1AsInteger

DoWhileList1.SelCount0

DoUntilList1.Selected(int1)

m=1

int1=int1+1

Loop

Winsock1(listcount(int1)).SendDataText3.Text

ExitDo一定要跳出，否那么进入死循环

Loop

EndSub

PrivateSubForm_Load()

xb=0

EndSub

PrivateSubWinsock1_ConnectionRequest(variAsInteger,ByValrequestIDAsL