返回列表 上一主題 發帖

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

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

各位大大好,此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

回復 1# PKKO

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

還蠻特別的FUNCTION

感謝PKKO分享 !
用功到世界末日那一天∼∼∼

TOP

回復 2# li_hsien


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

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

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題