Board logo

標題: [分享] 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/)