在vb.net中怎样实现一个服务端和多个客户端的通信,以下代码如何改?

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
'监听接收数据线程

第1个回答  2010-08-06
没见代码
第2个回答  2010-08-08
你在CSDN上提过问吧

如何实现一个server 发消息到多个客户端中?解决送200分. VB.NET
可以参考一个开源软件 名字叫easy chat

用vb.net实现网络通信
2 Dim tcpl As System.Net.Sockets.TcpListener 3 4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))6 th....

VB.net模块化编程的问题
其实很简单的,有两种方法,先说最简单的,源代码管理其听说过吧,使用源代码管理器管理源代码,这样就可以多个程序员协同处理同一个文件,只要事先沟通好程序结构就行了。另外一个就是在以方案的形式创建工程,实际上这种方法也最好用源代码管理器管理。一个方案下面包含N个项目,被使用的项目模块编译...

关于vb.net中socket编程实例:服务器端的一些问题
Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口 例:Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)'这里创建一个UDP S...

vb.net多个过程handles一个事件
给你一段代码 Function GetHandlers(ByVal instance As Object, ByVal e As String) As String Dim pi As PropertyInfo = GetType(Button).GetProperty("Events", BindingFlags.Instance Or BindingFlags.NonPublic)Dim ehl As EventHandlerList = CType(pi.GetValue(instance, Nothing), EventHandlerList...

Vb.net 中多个控件相应同一事件时调用的函数一样
Handles同一个事件就可以了 比如 Private Sub Button6_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.MouseHover, Button5.MouseHover, Button4.MouseHover, Button3.MouseHover, Button2.MouseHover End Sub ...

vb.net如何实现修改数据库中的数据
点击修改按钮以后,相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下:信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例,其他的跟这个一样。信息显示.ShowDialog()完成修改的SQL代码如下:UPDATE 表名 SET Name_CN='新值', Name_...

vb.net socket怎么判断客户端和服务器的连接断开了? thank you!
Unix网络编程》卷一,上面有详细的解释。关于你的第二个问题,建议你仔细看一下自己的服务器程序代码。服务器程序首先要建立一个监听socket,当有客户端连接上来时,服务器会在一个新socket上接受客户端连接。所以并不存在“乱”的问题。关于这个问题同样推荐你看上面的两本关于网络编程的经典著作。

怎样让VB.NET做的应用程序只启动一个实例
最简单的方法 If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then End 前提是你的程序名别太普通了容易和别的进程重名就不行了

VB.net中 单击一个按钮,打开已知目录的某个文件,如何通过代码实现
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Process.Start("C:\\1.txt")End Sub

相似回答