如何实现对局域网服务器的网络检测！

Question

to zhou_hua_0911 ：你的回复是什么意思呀！：（

Answer 1

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Command1_Click()
    Dim sURL As String
    sURL = "http://www.kenfilsz.com"
    If InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "Connection failed!", vbInformation
    Else
        MsgBox "Connection succeeded!", vbInformation
    End If
End Sub

Answer 2

以上提供的好像是本机是否与Internet连通
用Inet控件
或者Webbrowser控件
把你要检测的网址做成一个列表
然后依次去访问，能够正常地Response就是正常的

Answer 3

to hydnoahark: 你说的是检测internet的检测，而我需要检测的是局域网服务器的web发布！