13518219792
看下这个异常的类型 在捕捉异常的时候处理为关闭并重新打开端口监听（这个看你自己需求） 然后在socketException下面再catch其它exception 进行弹出错误提示之类的操作 就可以了
创新互联建站是一家专注于网站设计制作、网站设计与策划设计,平凉网站建设哪家好?创新互联建站做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:平凉等地区。平凉做网站价格咨询:028-86922220
以记事本为例
Public Class Form1
Public Sub ShellAndWait(ByVal ProcessPath As String)
Dim objProcess As System.Diagnostics.Process
Try
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.FileName = ProcessPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
objProcess.WaitForExit()
objProcess.Close()
Catch
MessageBox.Show("无法执行文件 " ProcessPath, "错误")
End Try
End Sub
'监视程序就可以了，若果监视别的窗体的话，用SPY++ 找到句柄，配合FindWindowEx，SendMessage根据其属性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("笔记本被关闭后我才会出现")
End Sub
End Class
你可以根据服务器收到的数据的长度来判断，如果服务器收到的数据长度是0，那么意味着你的客户端程序已经断开了连接。从TCP/IP协议栈的角度来说，就是客户端程序关闭了自己写的这一半连接，向服务器发出了一个FIN。这涉及到TCP的状态迁移，关于这方面的知识，建议你看一下Richard Stevens先生的《TCP/IP 详解》卷一和《Unix网络编程》卷一，上面有详细的解释。
关于你的第二个问题，建议你仔细看一下自己的服务器程序代码。服务器程序首先要建立一个监听socket，当有客户端连接上来时，服务器会在一个新socket上接受客户端连接。所以并不存在“乱”的问题。关于这个问题同样推荐你看上面的两本关于网络编程的经典著作。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。
FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPath vbCrLf e.Name)
End Sub'捕获新路径
你监控test不就好了，若要排除其他文件夹，IncludeSubdirectories 设为假，用多个FileSystemWatcher就行了，用数组或其他方式创建。
在VB环境中执行源代码，本身就是调试模式
按F8即可逐语句运行
点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来
可以在变量、对象等语句上点击右键，选择“添加监视”即可
