高手解答：如何通过ICMP判断计算机是否联网？
如何通过ICMP判断计算机是否联网？

[解决办法]
http://topic.csdn.net/t/20051010/19/4317509.html
[解决办法]
Option Explicit
Private Declare Function InternetCheckConnection Lib "wininet.dll " Alias "InternetCheckConnectionA " (ByVal lpszUrl As String, ByVal dwFlags As Integer, ByVal dwReserved As Integer) As Integer
Public Function isConnected() As Boolean
Const FLAG_ICC_FORCE_CONNECTION As Integer = &H1
isConnected = InternetCheckConnection( "http://www.microsoft.com ", FLAG_ICC_FORCE_CONNECTION, 0)
End Function

Private Sub Command1_Click()
MsgBox isConnected
End Sub


http://blog.csdn.net/wwcz898/archive/2006/05/26/756002.aspx
[解决办法]
我一般winsock1.connect "www.mircosoft.com ",80
然后检查winsock1.state