Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、网站设计、东风网络推广、微信平台小程序开发、东风网络营销、东风企业策划、东风品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供东风建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
If b = True Then '指定时间内ping通
Shell("cmd /c ping 192.168.1.1 C:\time.txt") '在C盘time.txt文件中保存ping的结果
Else '超时
MsgBox("999") '弹出999提示
End If
你可以根据服务器收到的数据的长度来判断，如果服务器收到的数据长度是0，那么意味着你的客户端程序已经断开了连接。从TCP/IP协议栈的角度来说，就是客户端程序关闭了自己写的这一半连接，向服务器发出了一个FIN。这涉及到TCP的状态迁移，关于这方面的知识，建议你看一下Richard Stevens先生的《TCP/IP 详解》卷一和《Unix网络编程》卷一，上面有详细的解释。
关于你的第二个问题，建议你仔细看一下自己的服务器程序代码。服务器程序首先要建立一个监听socket，当有客户端连接上来时，服务器会在一个新socket上接受客户端连接。所以并不存在“乱”的问题。关于这个问题同样推荐你看上面的两本关于网络编程的经典著作。
server=.;uid=sa;pwd=;database=数据库;Max Pool Size=512
连接字符串写成这样或许可以解决.但是这个方法我没用.
还有个问题需要楼主注意,并不是你关闭SqlDataReader就真的关闭了,有时出现错误,dr.Close();会执行不到,不用我举例子了吧.
------------------------------------------
关闭了但没释放吧.
connection.Dispose();
或你让该类继承System.IDisposable接口，强迫释放资源，这样就不会出现连接数量不够的问题了。
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
