vb制作聊天软件.doc

VB教程简单的网络聊天程序（转帖）2006年05月30日苏霆这是一个简单的聊天程序(VB6.0实现)，它可以实现在局域网中两台主机间的在线聊天，程序很简单，只有短短的几十行，但“麻雀虽小，五脏俱全”，它已经有了聊天程序的大体框架。我们在它的基础上稍加改进，就能做出不错的聊天小软件呢。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：Option ExplicitPrivate IgnoreText As Boolean-各控件说明-名称-类型-作用-frmMain Form CHAT主窗体Winsock1 Winsock 连接控件Label1 Label CONNECT WITH IP标签Label2 Label LOCAL PORT标签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 显示对方（远程主机）发送的CHAT内容Text2 TextBox 输入己方（本地主机）要发送的CHAT内容，按ENTER键发送cmdClear CommandButton 清空输入框（TEXT2）和显示框（TEXT1）中的内容StatusBar1 StatusBar 状态栏-当CLEAR按钮按下时，清空TEXT1和TEXT2中的内容Private Sub cmdClear_Click()Text1 = With Text2清空输入框.Text = 并把焦点置于TEXT2.SetFocusEnd WithEnd Sub当CONNECT按钮按下时，进行以下操作Private Sub cmdConnect_Click()On Error GoTo ErrHandlerWith Winsock1设置 RemoteHost 属性.RemoteHost = Trim(txtRemoteIP)设置 RemotePort 属性RemotePort 属性的值应该等于 远程主机上的 LocalHost 属性的值.RemotePort = Trim(txtRemotePort)LocalPort 属性的值是不能改变的,必须检查它是否已经被设置如果 LocalPort 属性为空（没有被设置），将其设为在LocalPort输入框中输入的数值If .LocalPort = Empty Then.LocalPort = Trim(txtLocalPort)Frame2.Caption = .LocalIP.Bind .LocalPort待查End IfEnd With为了保证使用者不能改变LocalPort的值，将txtLocalPort输入框锁定txtLocalPort.Locked = True在状态栏中显示“正在连接”的状态StatusBar1.Panels(1).Text = Connected to & Winsock1.RemoteHost & 如果连接正常，做以下设置Frame1.Enabled = TrueFrame2.Enabled = TrueLabel4.Visible = TrueText2.SetFocusExit Sub如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示ErrHandler:MsgBox Winsock failed to establish connection with remote server, vbCriticalEnd Sub当按下“F1”键时显示帮助信息Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyF1 ThenChDir App.Path调用外部程序notepad.exe来打开帮助文本文件Shell notepad.exe readme.txt, vbNormalFocusEnd IfEnd Sub当窗体加载时显示提示信息并在 txtRemoteIP 框中显示本地主机的IPPrivate Sub Form_Load()ShowMsgBox Winsock UDT Chat & vbCrLf & by Theo Kandiliotis (ionikhhol.gr) & vbCrLf & vbCrLf & F1 for help., vbInformationtxtRemoteIP = Winsock1.LocalIPEnd 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为空，则重设最后输入行的位置为0If Trim(Text2) = vbNullString Then Last_Line_Feed = 0当使用者按下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 IfEnd Sub当 WINSOCK 接收到新的数据（信息）时，进行以下响应Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)定义 New_Text 字符串来记录新接收的信息Dim New_Text As String接收信息并赋值给 New_TextWinsock1.GetData New_Text在TEXT1显示框中显示新接收到的信息Text1.SelText = New_TextFrame1.Ca