tcpclient = tcplistener.AcceptTcpClient
ns = tcpclient.GetStream()
nsread = New StreamReader(ns)
While True
Dim msg As String = nsread.ReadLine
If msg = "stop" Then
tcplistener.Stop()
ns.Close()
nsread.Close()
mythread.Abort()
Else
Dim mytime As String = DateTime.Now.ToShortTimeString
Me.ListBox1.Items.Add(mytime + "" + msg)
End If
End While
Catch ex As System.Security.SecurityException
MessageBox.Show("侦听失败!", "错误")
End Try
End Sub
End Class
关于VB.NET聊天软件和vb聊天代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息 , 记得收藏关注本站 。
推荐阅读
- 手机企业微信直播怎么开麦,企业微信直播怎么设置麦克风
- java坦克代码的简单介绍
- 月子用品大全直播卖货,孕妇月子用品
- 鼠标点击特效java代码 鼠标点击特效java代码是什么
- 杭州电商设计前景如何,应聘电商设计在杭州哪些公司好
- 卡通模拟骑行游戏视频的简单介绍
- 电脑文字怎么插图,电脑图片怎么插文字
- linux转发请求命令 linux转发数据包
- mysql查找某个字段,mysql查找某个字段重复的数据