2022年2022年简单的聊天程序 .pdf

《2022年2022年简单的聊天程序 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年简单的聊天程序 .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、这是一个简单的聊天程序(VB6.0 实现)，它可以实现在局域网中两台主机间的在线聊天，程序很简单，只有短短的几十行，但“麻雀虽小，五脏俱全”，它已经有了聊天程序的大体框架。我们在它的基础上稍加改进，就能做出不错的聊天小软件呢。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：Option Explicit Private IgnoreText As Boolean-各控件说明-名称-类型-作用-frmMain Form CHAT主窗体Winsock1 Winsock 连接控件Label1 Label CONNECT WITH IP 标签Label2 Label LOCAL P

2、ORT 标签Label3 Label REMOTE PORT 标签txtRemoteIP TextBox 远程 IP地址输入框txtLocalPort TextBox 本地 PORT输入框txtRemotePort TextBox 远程 PORT输入框cmdConnect CommandButton 连接 CONNECT 按钮Label4 Label Type your text and hit Enter to send it.标签Frame1(remoteip)Frame REMOTE IP 框架Frame2(host ip)Frame HOST IP 框架Text1 TextBox 显示

3、对方（远程主机）发送的CHA T 内容Text2 TextBox 输入己方（本地主机）要发送的CHAT 内容，按ENTER键发送cmdClear CommandButton 清空输入框（TEXT2）和显示框（TEXT1）中的内容StatusBar1 StatusBar 状态栏-当 CLEAR按钮按下时，清空TEXT1和 TEXT2中的内容Private Sub cmdClear_Click()Text1=With Text2 清空输入框.Text=并把焦点置于TEXT2.SetFocus End With End Sub 当 CONNECT按钮按下时，进行以下操作名师资料总结-精品资料欢迎下载

4、-名师精心整理-第 1 页，共 5 页 -Private Sub cmdConnect_Click()On Error GoTo ErrHandler With Winsock1 设置RemoteHost 属性.RemoteHost=Trim(txtRemoteIP)设置RemotePort 属性RemotePort 属性的值应该等于远程主机上的LocalHost 属性的值.RemotePort=Trim(txtRemotePort)LocalPort 属性的值是不能改变的,必须检查它是否已经被设置如果LocalPort 属性为空（没有被设置），将其设为在LocalPort 输入框中输入的数值

5、If.LocalPort=Empty Then.LocalPort=Trim(txtLocalPort)Frame2.Caption=.LocalIP.Bind.LocalPort 待查End If End With 为了保证使用者不能改变LocalPort 的值，将txtLocalPort 输入框锁定txtLocalPort.Locked=True 在状态栏中显示“正在连接”的状态StatusBar1.Panels(1).Text=Connected to&Winsock1.RemoteHost&如果连接正常，做以下设置Frame1.Enabled=True Frame2.Enabled=T

6、rue Label4.Visible=True Text2.SetFocus Exit Sub 如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示ErrHandler:MsgBox Winsock failed to establish connection with remote server,vbCritical End Sub 当按下“F1”键时显示帮助信息Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=vbKeyF1 Then ChDir App.Path 调用外部程序n

7、otepad.exe 来打开帮助文本文件Shell notepad.exe readme.txt,vbNormalFocus End If End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 5 页 -当窗体加载时显示提示信息并在txtRemoteIP 框中显示本地主机的IP Private Sub Form_Load()Show MsgBox Winsock UDT Chat&vbCrLf&by Theo Kandiliotis(ionikhhol.gr)&vbCrLf&vbCrLf&F1 for help.,vbInformation txtRemoteIP=Wi

8、nsock1.LocalIP End Sub 接收 TEXT2输入框的按键，并做响应Private Sub Text2_KeyPress(KeyAscii As Integer)定义变量Last_Line_Feed 来记录最后输入行的位置Static Last_Line_Feed As Long定义 New_Line 字符串记录新键入的一行文本的内容Dim New_Line As String 如果使用者按下CLEAR按钮对输入框内容清空，这时TEXT2为空，则重设最后输入行的位置为 0 If Trim(Text2)=vbNullString Then Last_Line_Feed=0 当使用

9、者按下ENTER键时If KeyAscii=13 Then 取得最后输入行的内容并赋值给New_Line 字符串New_Line=Mid(Text2,Last_Line_Feed+1)重设最后输入行的位置Last_Line_Feed=Text2.SelStart 通过WINSOCK 发送新输入的一行文本的内容Winsock1.SendData New_Line 在状态栏显示发送信息StatusBar1.Panels(2).Text=Sent&(LenB(New_Line)/2)&bytes End If End Sub 当 WINSOCK 接收到新的数据（信息）时，进行以下响应Private

10、Sub Winsock1_DataArrival(ByVal bytesTotal As Long)定义 New_Text 字符串来记录新接收的信息Dim New_Text As String 接收信息并赋值给New_Text Winsock1.GetData New_Text 在 TEXT1显示框中显示新接收到的信息Text1.SelText=New_Text Frame1.Caption=Winsock1.RemoteHostIP 在状态栏中显示接收信息StatusBar1.Panels(2).Text=Recieved&bytesTotal&bytes End Sub 名师资料总结-精品

11、资料欢迎下载-名师精心整理-第 3 页，共 5 页 -这就是一个最简单的CHAT程序，你可以在它的基础上加以改进，做出更实用的CHAT小软件。-主打控件WINSOCK 解析：作为这个 CHAT 程序的主打控件WINSOCK，我们来看看它的一些常用属性、事件和方法。利用 WinSock 控件可以与远程计算机建立连接，并通过用户数据文报协议(UDP)或者传输控制协议(TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与Timer 控件类似，WinSock 控件在运行时是不可见的。它的主要用途有：1、创建收集用户信息的客户端应用程序，并将收集的信息发送到某中央服务器。2、创建一个服

12、务器应用程序，作为多个用户的数据的汇入点。3、创建“聊天”应用程序。WINSOCK 的主要属性有：PROTOCOL（控制协议）属性，在这个例子中，我们将 PROTOCOL 属性设置为sckUDPProtocol。这个协议一般用于简单数据交换的情况，而如果我们要编写INTERNET 应用程序，多采用TCP 协议。属性 RemoteHost是远程主机的地址，LocalPort、RemotePort 分别本地主机的端口和远程主机端口，对客户来说，该属性指定发送数据的本地端口，而对于服务器来说，这是用于侦听的本地端口，我们在设置这两个属性时必须保证两台主机的端口值符合下面规则，即主机1 的 Local

13、Port 等于主机 2的 RemotePort 值，同样主机1 的 RemotePort等于主机 2 的 LocalPort 值，这样才能保证两机通讯的正常进行。名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 5 页 -LocalIP 属性用于返回本地机器的IP 地址，格式是IP 地址加点的字符串(xxx.xxx.xxx.xxx)。在本例中我们用到了以下几个WINSOCK 的方法：在创建UDP 应用程序时调用了Bind 方法，这是必须的。Bind 方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到1001 号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻

14、止其它应用程序使用同样的端口。SendData 方法用于发送一条数据给另一台主机，使用这个方法的语法是：WinSock.SendData 要发送的数据 GetData 方法。当 DataArrival 事件出现时，代码调用GetData 方法获取数据，并将数据存储在字符串变量中。使用语法是：WinSock.GetData 接收数据的变量 DataArrival 事件:在本例中我们使用了DataArrival 事件，DataArrival 事件在当新数据到达时出现使用的语法为：object_DataArrival(bytesTotal As Long)DataArrival 事件的语法包含下面部分：object 对象表达式，其值是“应用于”列表中的对象。bytesTotal Long 型，可获取的数据总数量。需要说明的是：如果没有获取一个GetData 调用中的全部数据，则事件不会出现。只有存在新数据时才激活事件。可随时用BytesReceived 属性检查可用的数据量。这就是一个最简单的CHAT 程序，你可以在它的基础上加以改进，做出更实用的CHAT 小软件。名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 5 页 -