用VB开发局域网聊天程序初步

用VB开发局域网聊天程序初步利用VB6提供的winsock控件开发

（1）Client客户端

参考代码：

Private Sub Command3_Click()

'输入txtSend文本框的内容后由WinsockServer控件发送

WinsockClient.SendData txtSend.Text

End Sub

Private Sub Form_Load()

'设置聊天服务器的侦听端口

WinsockClient.RemotePort = 10001

'读取本机的IP地址

txtClientIP.Text = WinsockClient.LocalIP

End Sub

Private Sub Command1_Click()

'点击“退出”按钮后关闭应用程序

Unload Me

End Sub

Private Sub Command2_Click()

'根据txtServerIP文本框中输入的服务器IP，连接聊天服务器

WinsockClient.RemoteHost = txtServerIP.Text

WinsockClient.Connect

End Sub

Private Sub WinsockClient_Connect()

'如果与服务器连接成功，则向用户提供下列信息

MsgBox "你成功地与聊天服务器进行了连接", vbInformation

End Sub

Private Sub WinsockClient_DataArrival(ByVal BytesTotal As Long)

'当服务器有信息发送来时，利用WinsockClient控件的GatData方法读取数据 '并将其显示在txtReceive文本框中

Dim MyStr As String

WinsockClient.GetData MyStr

txtReceive.Text = MyStr

End Sub

（2）Server服务器端

参考代码：

Private Sub Form_Load()

'设置侦听端口

WinsockServer.LocalPort = 10001

'读取服务器的IP地址

TxtServerIP.Text = WinsockServer.LocalIP

'开始侦听

WinsockServer.Listen

End Sub

Private Sub Command1_Click()

'点击“退出”按钮后关闭应用程序

Unload Me

End Sub

Private Sub Command2_Click()

'只要txtSend文本框的内容写好以后就由WinsockServer控件发送

WinsockServer.SendData TxtSend.Text

End Sub

Private Sub WinsockServer_ConnectionRequest(ByVal requestID As Long) '当收到连接请求时，Winsock处于侦听状态

'此时应该使用Close方法关闭Winsock，然后使用Accept方法接受连接请求 WinsockServer.Close

WinsockServer.Accept requestID

End Sub

Private Sub WinsockServer_DataArrival(ByVal BytesTotal As Long)

'当客户端有信息发送来时，利用WinsockServer控件的GatData方法读取数据 '并将其显示在txtReceive文本框中

Dim MyStr As String

WinsockServer.GetData MyStr

TxtReceive.Text = MyStr

End Sub