器间程序假死，请问如何处理啊？
Try
Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse(TextBox26.Text), TextBox27.Text)
cSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
cSocket.Connect(remoteEP)
Do
If cSocket.Connected = True Then
myThread = New Thread(AddressOf ReciveMsg)
myThread.Start()
tcpConnect = True
netstate = 1
Exit Do
End If
Loop Catch ex As Exception '显示错误类型
MDIParent1.ToolStripStatusLabel1.Text = ex.Message
Finally
'myThread.Abort()
netstate = 0
cSocket.Close()
End Try

请用异步方法，BeginConnect或者ConnectAsync

用Connect时候,如果服务器未开,直接会甩出异常的,程序不会进入Do循环,假死情况不是很理解.可以考虑用异步连接,比如自己开个线程连,最好是线程池的线程,也可以用ConnectAsync,不过你要设定回掉方法,跟这方法有个配套的类,详细情况去看MSDN吧

程序会一直执行listen这一步，服务器没开的话，就会卡在这一步不前进了，就会导致程序卡死无响应
解决办法一般是用多线程，利用一个线程来listen，就不会导致程序无响应了

程序经过测试，在别的机子上正常，只有在我机子上才会出现假死现象！