求vb.net 连接宽带和断开的代码

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

成都创新互联公司拥有一支富有激情的企业网站制作团队，在互联网网站建设行业深耕10余年，专业且经验丰富。10余年网站优化营销经验，我们已为成百上千中小企业提供了成都网站设计、网站建设解决方案，按需设计，设计满意，售后服务无忧。所有客户皆提供一年免费网站维护!

rasdial entryname [unseranamd 12345678]

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

rasphone -h entryname

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

求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP

你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址。

你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。

应该获取所有ip，再通过ip地址簇类型区分

判断连接本身有一个函数，不过有时没联网也是真。

可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。

vb.net中如何判断网络连接？

新建模块

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 正常