麻辣家族討論版版 » Excel程式區 » VBA 網路連線測試Function(自創)

返回列表下一主題上一主題發帖

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

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-7-18 14:23 | 只看該作者

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

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

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

複製代碼

樓主熱帖

收藏

PKKO

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 215
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2017-7-19 08:34 | 只看該作者

回復 1# PKKO

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

還蠻特別的FUNCTION

感謝PKKO分享 !

用功到世界末日那一天～～～

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-7-20 07:59 | 只看該作者

回復 2# li_hsien

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

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

PKKO

靜思自在 : 有時當思無時苦，好天要積雨來糧。

返回列表下一主題上一主題