用VB实现CS聊天室程序源代码及运行结果的课程设计

信息科学与技术学院 网络编程报告

题目名称： VB实现服务器和客户端的通信 专业班级： 计科08级（1）班 学生姓名： 应牡丹 学生学号： 2008082239

一：窗体界面如下：

客户端和服务器端基本相同：

二：程序代码如下：

客户端代码

Private Sub Command1_Click()

Winsock1.LocalPort = CLng(Text1.Text) Winsock1.RemotePort = CLng(Text2.Text) Winsock1.RemoteHost = Text3.Text Winsock1.Bind

Command1.Enabled = False End Sub

Private Sub Command2_Click() Winsock1.SendData Text4.Text End Sub

Private Sub Form_Load() Text1.Text = 1111 Text2.Text = 2222

Text3.Text = \End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim msg As String

Winsock1.GetData msg, vbString

Text5.Text = Text5.Text & msg & vbCrLf End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

服务器端代码

Private Sub Command1_Click()

Winsock1.LocalPort = CLng(Text1.Text) Winsock1.RemotePort = CLng(Text2.Text) Winsock1.RemoteHost = Text3.Text //Winsock1.Bind

Command1.Enabled = False End Sub

Private Sub Command2_Click() Winsock1.SendData Text4.Text End Sub

Private Sub Form_Load() Text1.Text = 2222 Text2.Text = 1111

Text3.Text = \End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim msg As String

Winsock1.GetData msg, vbString

Text5.Text = Text5.Text & msg & vbCrLf End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

四：程序运行结果如下：