主题：[求助]请教socket问题

 

你用一个字典变量记录所有的socket

 

Public user_tb As New System.Collections.Hashtable()   '客户端列表

 

user_tb.Add("编号", newClient)    '将客户端标识添加进hash表

http://blog.csdn.net/action20/article/details/17120463

创建一个vs项目，把代码整个搬过去，编译成dll后给Foxtable引用

再请教一问题：如何判断服务器是否已启动？

 

Dim tcp = New System.Net.Sockets.TcpClient()
Try
    tcp.Connect("127.0.0.1", 80)
Catch ex As Exception
    tcp = Nothing
End Try

 

If tcp Is Nothing Then
    MsgBox("无法连接服务器,请重试")
Else
    msgbox("成功")
End If

谢谢

12楼代码中关于Private _Clients As new SortedList '客户端队列

Private _Clients As new System.Collections.SortedList

谢谢

这里报错，是否与8楼定义有关呢？求解

此主题相关图片如下：qq截图20170831105946.png