vb 判斷聯(lián)網(wǎng)

    vb判斷聯(lián)網(wǎng)代碼，判斷聯(lián)網(wǎng)是在vb軟件中不可或缺的，在搜索了很多的判斷聯(lián)網(wǎng)代碼中，這個是在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
    ’該方法簡單好用，非常推薦