当前位置：文档之家 › Vb。net多线程通讯客户端

Vb。net多线程通讯客户端

  • 格式：pdf
  • 大小：267.31 KB
  • 文档页数：13

与多线程通讯文档对应这是一个客户端代码：客户端有两个窗口：Land窗口和FormMain窗口Land窗口为启动窗口Imports Imports .SocketsImports System.TextImports System.Text.EncodingImports System.ThreadingImports System.IOPublic Class LandDim clientstring As ClientStringDim udpClient As New UdpClient(11000)Dim sendBytes As[Byte]()Private dljs As Integer = 0 '登陆计时器Public SocketStream As NetworkStream'用以向网络基础数据流传送数据Private bWriter As BinaryWriter'用以向网络基础数据流获得数据Private bReader As BinaryReaderPrivate swWriter As StreamWriter'用以向网络基础数据流传送数据Dim Client_nsStream As NetworkStream'创建发送数据的网络基础数据流Dim tcpClient As .Sockets.TcpClient'通过它实现向远程主机提出TCP连接申请Private tcpConnect As Boolean = False'定义标识符，用以表示TCP连接是否建立Dim Thread1 As Thread'抓包用的线程Dim Thread2 As ThreadDim Thread3 As Thread'一直循环接收数据Private Delegate Sub voiddelegate(ByVal a As String, ByVal bian As String)Private ji As Integer = 0 '只计数一次Public Sub CloseThread()Thread1.Abort()End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click clientstring = New ClientStringSelect Case Button1.TextCase"登陆"Dim sdd As String = clientstring.Denglu(TextBox1.Text, TextBox2.Text)' MsgBox(sdd)SendString(sdd)Case"关闭"System.Environment.Exit(0)End SelectEnd SubPublic Sub SendString(ByVal sedString As String)bWriter = New BinaryWriter(Client_nsStream)bWriter.Write(sedString)bWriter.Flush()End SubPublic Sub SendString(ByVal sedString As String, ByVal ccnss As NetworkStream)bWriter = New BinaryWriter(ccnss)bWriter.Write(sedString)bWriter.Flush()End SubPrivate Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosingSystem.Environment.Exit(0)End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadudpClient.JoinMulticastGroup(.IPAddress.Parse("224.224.224.224"))udpClient.Client.ReceiveTimeout = 10000 '表示包的超时期限 0为无限大udpClient.Client.Blocking = False' Socket 将阻止，则为 true；否则为 false。

默认值为 true。

Button1.Enabled = FalseControl.CheckForIllegalCrossThreadCalls = False'窗口最大化Me.MaximizeBox = False'最大化按钮不可用Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog'''''''''' Thread1 = New System.Threading.Thread(AddressOf JianTin)'''''' Thread1.Start()Timer2.Enabled = TrueEnd Sub''' <summary>''' 获取服务器发送来的消息''' </summary>Public Function GetMessage() As StringDim strMsg As String = ""Threading.Thread.Sleep(50)If Client_nsStream Is Nothing ThenReturn"与服务器的连接已断开"End IfbReader = New BinaryReader(Client_nsStream)TrystrMsg = bReader.ReadStringReturn strMsgCatch ex As IOExceptionClient_nsStream = NothingThreading.Thread.Sleep(50)FinallybReader = NothingEnd Try' Timer1.Enabled = TrueCloseThread()Return strMsgEnd Function''' <summary>''' 监听守护线程如果断开就重新连接''' </summary>Public Sub JianChe(ByVal con As TcpClient)Dim strMsg As String = ""Dim ccStream As NetworkStreamDim Cons As New TcpClientCons = conccStream = Cons.GetStream()While TrueThreading.Thread.Sleep(50)If ccStream Is Nothing Then' Return "与服务器的连接已断开"Label3.ForeColor = Color.RedLabel3.Text = "与服务器的连接已断开"' Button1.Text = "关闭"' Timer1.Enabled = TrueButton1.Enabled = FalseThreading.Thread.Sleep(3000)'Thread1 = New System.Threading.Thread(AddressOf JianTin)' Thread1.Start() '如果与服务器连接断开重新启动IP监听线程' Thread2.Abort() '如果与服务器连接断开就关闭线程ElseTry'''在这里加入对数据的处理函数Dim jjss As String = JieShou(ccStream)If jjss = ""Then' MsgBox("与服务器断开")Label3.Text = "与服务器断开"Button1.Enabled = FalseThread2.Abort()ElseDim fg() As Stringfg = Split(jjss, TongxunDingYi._FENGE)Select Case fg(0) '消息头Case TongxunDingYi._DENGLUSelect Case Trim(fg(1))Case"成功"FormMain.Sethuan(TextBox1.Text & " ：同学欢迎回来！")Me.Hide()udpClient.Close()FormMain.SetccStream(ccStream)FormMain.ShowDialog()' Thread1 = NewSystem.Threading.Thread(AddressOf ShowForm)' Thread1.Start()Case"失败"MsgBox("用户名或密码错误！")Case"用户在线"MsgBox("用户在线不要重复")End SelectCase TongxunDingYi._TKEnd SelectEnd IfCatch ex As IOExceptionClient_nsStream = NothingThreading.Thread.Sleep(50)FinallybReader = NothingEnd TryEnd If' Return strMsgEnd WhileEnd SubPrivate Sub ShowForm()FormMain.ShowDialog()End Sub''' <summary>''' 抓包得到服务器IP，在没有连接的时候开启连接后关闭''' </summary>Public Sub JianTin()Try' Return "与服务器的连接已断开"' Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)Dim RemoteIpEndPoint As NewIPEndPoint(.IPAddress.Parse("224.224.224.224"), 0)Dim receiveBytes As[Byte]() = udpClient.Receive(RemoteIpEndPoint)Dim returnData As String = ASCII.GetString(receiveBytes)Label3.Text = "接收到： " + returnData.ToString()Label3.ForeColor = Color.Green' Timer1.Enabled = Falsedljs = 0Dim ipRemote As IPAddress'Dim sHostName As StringDim tcpClient As TcpClientipRemote = IPAddress.Parse(returnData.ToString())tcpClient = New Sockets.TcpClient(returnData.ToString(), 11002)'''''MsgBox(tcpClient.Connected) 连接状态'对远程主机的11000端口提出TCP连接申请Client_nsStream = tcpClient.GetStream()'使用获取的网络基础数据流来初始化StreamWriter实例tcpConnect = TrueLabel3.Text = JieShou(Client_nsStream)' Label3.Text = GetMessage()Timer2.Enabled = FalseButton1.Enabled = TrueThread2 = New System.Threading.Thread(AddressOf JianChe)''ArryThread.Add(Thread1)Thread2.Start(tcpClient) ' 启动新线程。

合集下载

用Visual Basic.NET开发多线程应用程序

用Visual Basic.NET开发多线程应用程序

程序的灵活性。 然而线程并没有 自己的内存空 间， 只有 自己的 堆栈空 间， 因此多个线程必须共享进程 的内存 空间， 这是多线
Ｄｍ ｍｙ ｈｅｄ ｓＴ ｒａ ’ ｉ Ｔ ｒａ ｌ Ａ ｈｅｄ 这里定义 了两个线程
Ｄ ｍ Ｔ ｒ ａ ２ Ａｓ Ｔ ｒ ａ ｉ ｍｙ ｈ ｅ ｄ ｈ ｅ ｄ Ｐ ｖ ｔ ｕ Ｂ ｔ ｎｌ Ｃｉ （ ｙ ａ ｓｎ ｅ ｓＳ ｓ ｍＯ － ｉ ｒ ａｅ Ｓ ｂ ｕ ｔ ｏ ｌ ｋ Ｂ Ｖ ｅ ｄｒＡ ｙｔ ．ｂ ｃ ｌ ｅ
；
Ｃｏｉ （ ｙ ａ ｓｎ ｅ ｓ Ｏ ｊｃ， ｌ ｎ ｓ ｇ Ｂ Ｖ ｅｄ ｒＡ ｂｅｔ ｌ
ｉ赢 、向众 科 技 网。播 学识开： 利面公 的 学术 站传 科 知 ，
÷ 展学 流， 科 创 探 术交 推进 学 新， 讨热门 题、 跃气 ｛ 话 活
Ｂ Ｖ ｓ Ｓ ｓ ｍ，ｏ ｐ ｎ ｎＭｏ ｅ Ｃ ｎ ｅＥ ｅ ｔ ｒｓ Ｈ ｎ ｙ ａ ｅ Ａ ｙｔ Ｃ ｍ ｌ ｅ ｏ ｅ ｔ ｄ １ ａ ｃ ｌ ｖ ｎＡ ｇ ） ａ — ．
—
Ｎ ｔ框 架为线程提供 了丰富的类 ｊｃ，ｙ ａ ｅ Ａ ｙｔ Ｅ ｅｔｒｓ Ｈａｄｅ ｕ ｏ １ ｌｋ主 程程序设计时最大的难点。．ｅ ｅｔＢ Ｖ ｓ Ｓｓ ｍ．ｖｎＡ ｇ ） ｎ ｌ Ｂ ￣ ｎ ． ｉ ｌ ｅ ｓ Ｃｃ
线程 的事件 函数
Ｄｍ ｗ ｒ１Ａ ｅ ｈｅｄ ｒ １ Ｌ ｂｌ ） ｉ ｏｋ ｓＮ ｗ Ｔ ｒａＷｏｋ （ ａｅ１ Ｄｍ ｗ ｒ２ Ａ ｅ ｒａ Ｗｏ ２ Ｌ ｂｌ ｉ ｏｋ ｓＮ ｗ Ｔ ｅｄ ｒ （ ａｅ２） ｈ ｋ ｍｙ ｈｅｄ ： Ｎ ｗ Ｔ ｒａ Ａ ｄｅｓ ｆｗ ｒ１ ｏ ｒ ’ Ｔ ｒａ １ ｅ ｈｅｄ（ ｄ ｒｓＯ ｏ ． Ｗｏｋ） ｋ Ｄ
vb双机通信程序

vb双机通信程序

1.服务器程序Option ExplicitPrivate Sub Form_Load()tcpServer.LocalPort = 8888tcpServer.ListenlblState.Caption = "目前没有客户端连入！"End SubPrivate Sub tcpServer_ConnectionRequest(ByV al requestID As Long)If tcpServer.State <> sckClosed Then tcpServer.ClosetcpServer.Accept requestIDlblState.Caption = "有客户端连入本机！IP:" & tcpServer.RemoteHostIPEnd SubPrivate Sub tcpServer_dataArrival(ByV al bytesTotal As Long)Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strData & vbCrLf & txtOutput.TextEnd SubPrivate Sub txtSendData_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf tcpServer.State = sckConnected ThentcpServer.SendData "服务器说：" & txtSendData.TexttxtOutput.Text = "服务器说：" & txtSendData.Text & vbCrLf & txtOutput.Text ElseMsgBox "目前没有连接的客户端！"End IfEnd IfEnd Sub2.客户端程序Option ExplicitPrivate Sub Form_Load()tcpClient. RemoteHost="127.0.0.1"tcpClient. RemotePort=8888End SubPrivate Sub cmdConnect_Click()tcpClient. ConnectEnd SubPrivate Sub tcpClient_Connect()MsgBox"成功连接服务器！" & vbCrLf & _"IP为：" & tcpClient. RemoteHostIPEnd SubPrivate Sub tcpClient_DataArrival(ByV al bytesTotal As Long)Dim strData As StringtcpClient. GetData strDatatxtOutput. Text=strData & vbCrLf & txtOutput. TextEnd SubPrivate Sub txtSendData_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf tcpClient. State=sckConnected ThentcpClient. SendData"客户端说:" & txtSendData. TexttxtOutput. Text="客户端说:" & txtSendData. Text & vbCrLf & txtOutput. TexttxtSendData. Text=""ElseMsgBox"目前没有连接服务器，请单击“连接”按钮连接！"End IfEnd IfEnd Sub。

VB6通过winsock控件数组实现客户端和服务器多对一通信

VB6通过winsock控件数组实现客户端和服务器多对一通信

VB6通过winsock控件数组实现客户端和服务器多对一通信在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信，如果把客户端和服务器放置于同一台电脑中，并且将客户端winsock 的RemoteHost设置为本机IP，则可以实现客户端程序和服务端程序间的自由通信。

在应用程序之间采用winsock通信比内存共享等方法更简单快捷，同时也更安全。

在客户端中添加一个窗体，拖拽一个winsock控件到该窗体上。

RemoteHost代表需要连接的远程服务器IP地址，局域网中的通信可以使用路由器分配的IP地址。

RemotePort代表端口号，服务器和客户端通过该端口进行连接。

当客户端的winsock接收到服务器发送来的数据后会触发Winsock1_DataArrival事件，利用GetData方法可以将数据读取出来，一般来说将数据读取到byte()数组中是最好的，因为利用字节数组可以收发图片、音频等文件，本例中为了演示所以直接用一个字符串变量来读取数据了。

客户端向服务器发送数据可以用SendData方法，该方法同样可以发送字节数组，这里为了演示所以发送了个字符串。

服务器端为了能同时和很多个不同的客户端进行通信，所以需要采用winsock控件数组，在服务器窗体中拖拽一个winsock控件，将其名称更改为Listener，该控件用于接收客户端的连接请求。

再拖拽一个winsock控件到窗体中，然后将其Index属性更改为0，0即代表该控件是一个控件数组，为了使用方便所以把控件名称更改为Sock，该控件数组用于动态的和不同的客户端通信。

在服务器端的窗口中写入如下代码：利用Listener来侦听，代码如下：当有客户端需要连接服务器时会触发Listener_ConnectionRequest事件，此时会遍历Sock控件数组，如果里面有空闲的Sock则用这个空闲的Sock和客户端进行连接，如果没有空闲的则重新Load一个进来。

VB .NET多线程步骤和例程

VB .NET多线程步骤和例程

多线程操作步骤/例程1.定义线程Dim Thread_Process As System.Threading.Thread()2.定义委托函数进程运行过程中不可直接对控件进行操作，可通过定义并构造委托函数的形式操作控件 Sub Thread_SetLVText(ByVal SetString As String, ByVal Obj As TextBox) 3.构造委托函数/过程Sub SetLVTxt(ByVal SetString As String, ByVal Obj As TextBox)Dim OTemp As TextboxOTemp = ObjOTemp.Text = SetStringEnd Sub4.构造线程过程Private Sub ExampleThreading()…同一般过程…End Sub5.调用委托函数/过程a)封装在子过程/函数中，方便调用Sub SetLVTxt_Invoke(ByVal SetString As String, ByVal Obj As TextBox) Dim Obj_GetText As New Thread_SetLVText(AddressOf SetLVTxt)Invoke(Obj_GetText, SetString, Obj)End Subb)直接在进程过程中调用Dim Obj_GetText As New Thread_SetLVText(AddressOf SetLVTxt)Invoke(Obj_GetText, “abc”, TextBox1)6.启动新线程注意给进程赋值时”Address of”后面接线程过程名！！！Thread_Process(i) = New System.Threading.Thread(AddressOf ExampleThreading) Thread_Process(i).SetApartmentState(Threading.ApartmentState.STA) Thread_Process(i).Start()。