vb判斷聯(lián)網(wǎng)代碼，判斷聯(lián)網(wǎng)是在vb軟件中不可或缺的，在搜索了很多的判斷聯(lián)網(wǎng)代碼中，這個(gè)是在csdn上面找到的簡單方便好用。
貼出來跟大家分享
Function islink_fun(url) As Boolean
Dim xmlHttp As Object, i, j
j = 0
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET", url, True
xmlHttp.send (Null)
i = Now()
Do
DoEvents
Loop Until xmlHttp.ReadyState = 4 Or j = DateDiff("s", i, Now()) > 2
If j = 0 Then
If xmlHttp.Responsetext = "" Or IsNull(xmlHttp.Responsetext) Then
islink_fun = False
Else
islink_fun = True
End If
Else
islink_fun = False
End If
End Function
’vb調(diào)用判斷聯(lián)網(wǎng)代碼是
If islink_fun("http://www.baidu.com") Then
MsgBox "連接"
Else
MsgBox "沒有連接"
End If
’該方法簡單好用，非常推薦
更多信息請查看IT技術(shù)專欄
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試