vb.net 檢測網(wǎng)絡(luò)連接

既然從網(wǎng)上找的實例沒問題，也許就是調(diào)用的時候沒出來或者在檢測網(wǎng)卡當中出現(xiàn)了問題。

創(chuàng)新互聯(lián)專注于西華企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計,商城網(wǎng)站開發(fā)。西華網(wǎng)站建設(shè)公司,為西華等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站設(shè)計，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

求vb.net 連接寬帶和斷開的代碼

編寫一個寬帶連接的批處理腳本：

rasdial entryname [unseranamd 12345678]

編寫一個寬帶斷開的批處理腳本：

rasphone -h entryname

在vb中調(diào)用這兩個腳本執(zhí)行就可以了；

vb.net中如何判斷網(wǎng)絡(luò)連接？

新建模塊

Function IsHearOK(ByVal URL As String) As Boolean '判斷網(wǎng)頁是否存在函數(shù)

Dim XMLObject As Object, ReturnType As String

XMLObject = CreateObject("Microsoft.XMLHTTP")

XMLObject.Open("GET", URL, False)

XMLObject.setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")

XMLObject.setRequestHeader("Range", "bytes=1-255")

Try

XMLObject.Send()

If XMLObject.Status = 200 Or XMLObject.Status = 206 Then

ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE")

If UCase(ReturnType) "TEXT/HTML" Then

IsHearOK = True

Else

IsHearOK = False

End If

Else

IsHearOK = False

End If

Catch

MsgBox("連接異常，請檢查網(wǎng)絡(luò)！", , "提醒")

XMLObject = Nothing

End Try

End Function

調(diào)用 ishearok（url）=true 正常