基于VB Winsock 控件的聊天程序

傷城~ 2022-03-25 12:43 333阅读 0赞

今天充分利用网络资源,实现了局域网内的聊天程序.其实就是VB中的一个小控件-Winsock控件，Winsock使用了TCP协议和UDP协议,让本地计算机连接到远程的计算机上,在连接结束之前实时地进行数据交换.使用TCP协议时,需要创建一个客户端应用程序,就必须识别服务器的名称或IP地址.应用程序的通信端口随时都将仔细监测对方发出的消息,这是系统进行可靠的连接保证.一旦连接发生,任何一方都可以通过senddata发送和接收数据，并借助getdata把自己的数据分离出来。

这里我们需要创建两个应用程序,服务器应用程序和客户端应用程序.服务器首先创建一个服务端口号(最好大于2000),并且服务器的应用程序处于工作状态，确保进入监听状态，客户端的应用程序才能开始建立连接，进入正常的通信状态。  
     下面的程序主要实现了实时聊天的功能：  
1.下图为制作的服务端和客户端的界面。

![1362962039_6528.jpg][]

2.此为运行后连接成功的界面。

![1362962174_3476.jpg][]

3.实现聊天功能，成功聊天。

![1362962238_3785.jpg][]

如下为代码：

服务端：

Private Sub Command1\_Click()  
    '发送  
    Winsock1.SendData Text1.Text  
    Text2.Text = Text2.Text + Chr(13) + Chr(10) + CStr(Date) + Chr(32) + CStr(Time$()) + Chr(13) + Chr(10) + "我：" & Text1.Text  
    Text1.Text = ""  
     
End Sub

Private Sub Form\_Load()  
    '端口设置  
    Winsock1.LocalPort = 2008  
    Winsock1.Listen  
    Label1.Caption = Label1.Caption + CStr(Winsock1.LocalIP)  
    Label2.Caption = Label2.Caption + CStr(Winsock1.LocalPort)  
End Sub

Private Sub Text1\_KeyDown(KeyCode As Integer, Shift As Integer)  
    '按enter键发送数据  
    If KeyCode = 13 Then  
        Text2.Text = Text2.Text + Chr(13) + Chr(10) + CStr(Date) + Chr(32) + CStr(Time$()) + Chr(10) + "我：" & Text1.Text  
        Winsock1.SendData Text1.Text  
        Text1.Text = ""  
    End If  
End Sub

Private Sub Winsock1\_ConnectionRequest(ByVal requestID As Long)  
    '连接  
    If Winsock1.State <> sckClosed Then  
        Winsock1.Close  
        Winsock1.Accept (requestID)  
    End If  
End Sub

Private Sub Winsock1\_DataArrival(ByVal bytesTotal As Long)  
     
    '接受  
    Beep  
    Dim strdata As String  
    Winsock1.GetData strdata  
    Text2.Text = Text2.Text + Chr(13) + Chr(10) + CStr(Data) + Chr(32) + CStr(Time$()) + Chr(13) + Chr(10) + Text3.Text & ":" & strdata  
     
End Sub

客户端：

Private Sub Command1\_Click()  
    '连接  
    Winsock1.RemoteHost = Text3.Text  
    Winsock1.RemotePort = Val(Text4.Text)  
    If Winsock1.State = sckClosed Then  
        Winsock1.Connect  
        Label4.Caption = "成功连接"  
    End If  
End Sub

Private Sub Command2\_Click()  
    '发送  
    Winsock1.SendData Text1.Text  
    Text2.Text = Text2.Text + Chr(13) + Chr(10) + CStr(Date) + Chr(32) + CStr(Time$()) + Chr(13) + Chr(10) + "我：" & Text1.Text  
    Text1.Text = ""  
     
End Sub

Private Sub Command3\_Click()  
    '退出  
    End  
End Sub

Private Sub Text1\_KeyDown(KeyCode As Integer, Shift As Integer)  
    '按enter键发送数据  
    If KeyCode = 13 Then  
        Text2.Text = Text2.Text + Chr(13) + Chr(10) + CStr(Data) + Chr(32) + CStr(Time$()) + Chr(13) + Chr(10) + "我：" & Text1.Text  
        Winsock1.SendData Text1.Text  
        Text1.Text = ""  
    End If  
End Sub

Private Sub Winsock1\_DataArrival(ByVal bytesTotal As Long)  
    '接收  
    Beep  
    Dim strdata As String  
    Winsock1.GetData strdata  
    Text2.Text = Text2.Text + Chr(13) + Chr(10) + Text5.Text & ":" & strdata  
End Sub

[1362962039_6528.jpg]: https://img-my.csdn.net/uploads/201303/11/1362962039_6528.jpg
[1362962174_3476.jpg]: https://img-my.csdn.net/uploads/201303/11/1362962174_3476.jpg
[1362962238_3785.jpg]: https://img-my.csdn.net/uploads/201303/11/1362962238_3785.jpg