vb.net網(wǎng)絡(luò)連接 vbnet教程

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

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

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

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

編寫一個(gè)寬帶連接的批處理腳本：

rasdial entryname [unseranamd 12345678]

編寫一個(gè)寬帶斷開的批處理腳本：

rasphone -h entryname

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

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

新建模塊

Function IsHearOK(ByVal URL As String) As Boolean '判斷網(wǎng)頁(yè)是否存在函數(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("連接異常，請(qǐng)檢查網(wǎng)絡(luò)！", , "提醒")

XMLObject = Nothing

End Try

End Function

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

分享題目：vb.net網(wǎng)絡(luò)連接 vbnet教程
網(wǎng)站路徑：http://muchs.cn/article48/doespep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、商城網(wǎng)站、自適應(yīng)網(wǎng)站、虛擬主機(jī)、軟件開發(fā)、營(yíng)銷型網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)