vb.net网络连接 vbnet教程

vb.net 检测网络连接

既然从网上找的实例没问题，也许就是调用的时候没出来或者在检测网卡当中出现了问题。

创新互联专注于西华企业网站建设,响应式网站设计,商城网站开发。西华网站建设公司,为西华等地区提供建站服务。全流程定制网站设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

编写一个宽带连接的批处理脚本：

rasdial entryname [unseranamd 12345678]

编写一个宽带断开的批处理脚本：

rasphone -h entryname

在vb中调用这两个脚本执行就可以了；

新建模块

Function IsHearOK(ByVal URL As String) As Boolean '判断网页是否存在函数

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("连接异常，请检查网络！", , "提醒")

XMLObject = Nothing

End Try

End Function

调用 ishearok（url）=true 正常

网站标题：vb.net网络连接 vbnet教程
标题URL：http://scyanting.com/article/doespep.html