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

’該方法簡單好用，非常推薦

更多信息請(qǐng)查看IT技術(shù)專欄