[分享] VBA 網路連線測試Function(自創)

PKKO

各位大大好,此function為小弟自創的,優點是測試速度快
唯恐小弟經驗不足,若有缺點還請跟我說一下,謝謝大家(執行doit模組即可)

1. Sub doit()
   
2. MsgBox "目前是否有連線至網路:" & web_check
   
3. End Sub
   
4. Function web_check() As Boolean
   
5. On Error GoTo error_catch
   
6. Set hq = CreateObject("MSXML2.XMLHTTP.3.0"): hq.Open "get", "https://www.google.com.tw/", False
   
7. hq.send: web_check = True: Exit Function
   
8. error_catch: web_check = False
   
9. End Function

複製代碼

PKKO

回復 2# li_hsien


    可測試以下狀況
一、沒有連接網路
二、有網路,但網路是否有效,可否連線到Google

因此使用此function可以完整得知目前的網路是否有效,以便進行下一個動作

li_hsien

回復 1# PKKO

請問這是單純測網路有沒有通嗎?

還蠻特別的FUNCTION

感謝PKKO分享 !