標題: [分享] VBA 網路連線測試Function(自創) [打印本頁]

---

作者: PKKO    時間: 2017-7-18 14:23     標題: 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

複製代碼

---

作者: li_hsien    時間: 2017-7-19 08:34

回復 1# PKKO

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

還蠻特別的FUNCTION

感謝PKKO分享 !

---

作者: PKKO    時間: 2017-7-20 07:59

回復 2# li_hsien


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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)