用Socket做简单聊天程序(VB.net)
来源:互联网 发布:如何用c语言画横线 编辑:程序博客网 时间:2024/05/01 21:23
原文地址:http://blog.csdn.net/chendazhi/archive/2006/05/18/744130.aspx
有位网友发贴问我一个聊天的问题,不好拒绝;也看到最近VB.net版问这个的人很多,就写了一个放在这里。 本例只适合初学用Socket编程的人,因而力求简单,让老鸟见笑了J 另本示例用的是vs2005 1、服务端 Imports System.Net Imports System.Net.Sockets Imports System.Threading Imports System.Text Imports System.Diagnostics Public Class frmServer '服务端的Socket Dim listener As Socket '与客户端会话的Socket Dim mySocket As Socket '服务端的运行状态 Dim IsRun As Boolean = False '监听接收数据线程 Dim myThread As Thread Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myThread = New Thread(AddressOf Listen) myThread.Start() End Sub Public Sub Listen() Dim bytes() As Byte = New [Byte](1024) {} Dim data As String = String.Empty Dim tokens() As String Dim localEndPoint As New IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 11000) '初始化socket listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '绑定端口 listener.Bind(localEndPoint) '开始监听 listener.Listen(10) BeginInvoke(New EventHandler(AddressOf AddInfo), "服务端已启动,正在等待连接......") mySocket = listener.Accept() IsRun = True While True Dim bytesRec As Integer = mySocket.Receive(bytes) data = Encoding.UTF8.GetString(bytes, 0, bytesRec) tokens = data.Trim.Split("|") Select Case tokens(0) '分析接收到的数据,可自己定义更多一些 Case "Chat" BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) 'Invoke保证线程安全 Case "Exit" IsRun = False BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) 'Invoke保证线程安全 mySocket.Shutdown(SocketShutdown.Both) mySocket.Close() Exit Sub End Select End While End Sub '发送信息 Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Dim msg As Byte() = Encoding.UTF8.GetBytes("Chat|" + TextBox1.Text) mySocket.Send(msg) ListBox1.Items.Add("本地信息: " + TextBox1.Text) TextBox1.Text = "" End Sub '非UI线程调用窗体控件,保证线程安全。与聊天实现无关。 Sub AddInfo(ByVal sender As System.Object, ByVal e As System.EventArgs) ListBox1.Items.Add("远程信息: " + sender.ToString) End Sub '关闭窗口时发关退出信息并清理资源 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If IsRun Then Dim msg As Byte() = Encoding.UTF8.GetBytes("Exit|服务端退出: " + Me.Handle.ToString) Dim bytesSent As Integer = mySocket.Send(msg) End If listener.Close() mySocket = Nothing myThread.Abort() End Sub End Class 2、客户端 Imports System.Net Imports System.Net.Sockets Imports System.Text Imports System.Threading Public Class frmClient '客户端Socket Dim cliSocket As Socket '连接状态 Dim IsConnected As Boolean = False '接收信息线程 Dim myThread As Thread Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 11000) cliSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Try cliSocket.Connect(remoteEP) ListBox1.Items.Add("连接服务端成功!") IsConnected = True myThread = New Thread(AddressOf ReciveMsg) myThread.Start() Catch ex As Exception ListBox1.Items.Add(ex.Message) End Try End Sub Sub ReciveMsg() Dim bytes() As Byte = New Byte(1024) {} Dim data As String = String.Empty Dim tokens() As String While True Dim bytesRec As Integer = cliSocket.Receive(bytes) data = Encoding.UTF8.GetString(bytes, 0, bytesRec) tokens = data.Trim.Split("|") Select Case tokens(0) '分析接收到的数据,可自己定义更多一些 Case "Exit" IsConnected = False BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) 'Invoke保证线程安全 cliSocket.Shutdown(SocketShutdown.Both) cliSocket.Close() Exit Sub Case "Chat" BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) 'Invoke保证线程安全 End Select End While End Sub '发送信息 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim msg As Byte() = Encoding.UTF8.GetBytes("Chat|" + TextBox1.Text) Dim bytesSent As Integer = cliSocket.Send(msg) ListBox1.Items.Add("本地信息: " + TextBox1.Text) TextBox1.Text = "" End Sub '非UI线程调用窗体控件,保证线程安全。与聊天实现无关。 Sub AddInfo(ByVal sender As System.Object, ByVal e As System.EventArgs) ListBox1.Items.Add("远程信息: " + sender.ToString) End Sub '关闭窗口时发关退出信息并清理资源 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If IsConnected Then Dim msg As Byte() = Encoding.UTF8.GetBytes("Exit|客户端退出: " + Me.Handle.ToString) Dim bytesSent As Integer = cliSocket.Send(msg) myThread.Abort() End If End Sub End Class
- 用Socket做简单聊天程序(VB.net)
- 用Socket做简单聊天程序(VB.net)
- 用Socket做简单聊天程序(VB.net)
- VB.NET聊天程序
- VB.net做的一个简单的聊天的例
- 网络:用 socket 做简单聊天
- socket 简单聊天程序
- java-用java.net.Socket和java.net.ServerSocket实现简单的聊天程序
- 用窗口程序做Java socket编写聊天程序
- Swing+socket简单聊天程序
- 用Socket建立个最简单的聊天程序
- .Net socket实现简单的聊天
- 简单的Socket聊天程序(客户端)
- 基于Socket简单的聊天程序
- 一个简单的socket通信聊天程序
- [Java] Socket/ServerSocket 控制台简单聊天程序
- 非常简单的Socket聊天程序
- Java 基于socket thread 简单聊天程序
- C#中 利用汉字在计算机里面的编码来得到汉字的首拼音
- 求助!!
- C#语言经典算法100例
- 淘宝海量数据管理及架构
- 用Socket做简单聊天程序(VB.net)
- 用Socket做简单聊天程序(VB.net)
- 安装问题
- Reverse Key Indexes
- 关于负整数的移位问题
- sgu Source
- jquery 获得select选中项的文本
- 最有实力的垃圾单位
- 忆江南.闺怨之和穆紫
- matlab中的几种乘法