- 博客(0)
- 资源 (1)
空空如也
类似QQ的聊天软件(VB.NET)
类似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
2014-06-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人