Á賿Ñô¹â

·½·¨Ò»£º API·½Ê½

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
(lpdwFlags As Long, ByVal dwReserved As Long) As Long 'ÉêÃ÷API

Sub net()
    Dim netweb As Long
    If InternetGetConnectedState(netweb, 0) <> 0 Then
       MsgBox "¿ÉÒÔ"
    Else
       MsgBox "²»¿ÉÒÔ"
    End If
End Sub

 ·½·¨¶þ£ºXMLHTTP

Sub net()
Dim xml6 As Object
Set xml6 = CreateObject("Microsoft.XMLHTTP")
URL = "http://chiensq.blog.163.com"
xml6.Open "GET", URL, False
xml6.Send
  If xml6.Status = 200 Then
    MsgBox "¿ÉÒÔ"
  Else
    MsgBox "²»¿ÉÒÔ"
  End If
End Sub

·½·¨Èý£ºping

Public Function Pings(strMachines As String) As Boolean
aMachines = Split(strMachines, ";")
For Each machine In aMachines     Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select *  _
    from Win32_PingStatus where address = '" & machine & "'")
    For Each objStatus In objPing
        If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
            Debug.Print ("machine " & machine & " is not reachable")
            Pings = False
        Else
            Pings = True
        End If
    Next
Next
End Function

·½·¨ËÄ£ºshell

Sub Chksys()

Dim  oExec
oExec = CreateObject("Wscript.shell").Run("ping chiensq.blog.163.com -n 1", 0, True) 
  If oExec = 0 Then
    msgbox "¿ÉÒÔ"
  Else
    msgbox"²»¿ÉÒÔ"
  End If
End Sub

 ·½·¨Î壺¾ÖÓòÍø

Sub net()
Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists("\\172.20.31.32\123\ver.txt") Then 'Îļþ¼ÐFSO.folderexists(¡°\\172.20.31.32\123¡±)
        MsgBox "´æÔÚ"
    Else
        MsgBox "²»´æÔÚ"
    End If
    Set fso = Nothing
End Sub