加载中…VBA 判断是否可以访问网络（互联网/局域网)
(2013-12-03 21:52:31)
标签：
互联网判断网络是否可链接判断是否可以访问网络vba判断网络 |
分类： 转载文章 |
方法一： 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 InternetGetConnectedStat e (netweb, 0) <> 0 Then
MsgBox "可以"
Else
MsgBox "不可以"
End If
End Sub
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 aMachinesSet 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
喜欢
0
赠金笔