文件名称：类似QQ的聊天软件（VB.NET）
文件大小：58KB
文件格式：7Z
更新时间：2017-07-15 09:46:30
聊天软件
类似QQ的聊天软件（VB.NET） 部分代码： Private Sub EstablishConnection() ToolStripStatusLabel1.Text = "正在连接到服务器" serveraddress = ServerIP.Text '服务器IP地址 Try clientsocket = New TcpClient(serveraddress, serverport) ns = clientsocket.GetStream() sr = New StreamReader(ns) connected = True Catch generatedExceptionName As Exception MessageBox.Show("不能连接到服务器！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ToolStripStatusLabel1.Text = "已断开连接" End Try End Sub