计算机系统设计课程设计.docVIP

计算机系统设计 利用VB6 Winsock空间创建TCP—IP客户机—服务器程序 功能描述：利用Winsock编写基于TCP/IP的客户机----服务器程序，实现网络的通信。 服务器程序实现的过程： 服务器程序必须设置好LOCAPORT属性，作为侦听端口，该值为一个整数。 使用LISTEN方法进入侦听状态，等待客户机程序的连接请求。 客户机程序发出连接请求，使服务器程序产生CONNECTIONREQUEST事件，该事件得到一个参数REQUESTID。 服务器程序用ACCEPT方法接受客户机程序的REQUESTID请求。这样服务器程序就可以用SENDDATA方法发送数据了。ACCEPT方法必须用上一步得到的REQUESTID作为其参数。 当服务器程序接收到数据时，产生DATAARRIVAL事件，参数BYTESTOTAL包含接收到是数据字节数。在该事件中，可以用GETDATA事件方法接收数据。 如果接收到CLOSE事件，则用CLOSE方法关闭TCP/IP连接。 客户机程序的实现过程： 客户机程序设置REMOTEHOST属性，以便指定运行服务器程序的主机名，该字符串可在“控制面版|网络|标识|计算机名”中查到。 设置REMOTEPORT属性，以便指定服务器程序的侦听端口。 使用CONNECT方法，向服务器提出连接请求。 服务器接受客户机程序的请求，客户机程序产生CONNECT事件，就可以用SENDDATA方法发送数据了。 当客户机程序接收到数据时，产生DATAARRIVAL事件，参数BYTESTOAL包含接收到的数据字节数。在该事件中，可以用GETDATA方法接收数据。 如果接收到CLOSE事件，则用CLOSE方法关闭连接。 服务端程序及图解： SERVER端界面图： * Command2---聊天记录 Command3---发送 Command4---退出 程序： Public IsLong As Boolean -------------------------------------------------------------- Private Sub Command2_Click() If IsLong = False Then Form1.Height = 6990 IsLong = True Else Form1.Height = 2900 IsLong = False End If End Sub --------------------------------------------------------------- Private Sub Command3_Click() Dim sendtext As String sendtext = Text2.Text Winsocks.SendData sendtext Dim str As String str = (Now) Winsocks.LocalHostName : (vbNewLine) Text3.Text = Text3.Text + str + sendtext + (vbNewLine) End Sub --------------------------------------------------------------- Private Sub Command4_Click() If MsgBox(您真的要退出吗！？, vbYesNo, 警告！) = vbYes Then End End If End Sub --------------------------------------------------------------- Private Sub Form_Load() Winsocks.LocalPort = 1000 Winsocks.Listen Text2.Visible = False Text3.Visible = False Form1.Height = 3000 End Sub --------------------------------------------------------------- Private Sub Text2_Change() End Sub --------------------------------------------------------------- Private Sub Text3_Change() End Sub --------------------------------------------------------------- Private Sub Winsocks_Con