断开或自动连接ADSL

一、断开ADSL命令

rasphone -h ADSL

二、自动连接ADSL命令

rasdial ADSL 用户名 密码

三、其他方法

假设你的电脑的PPPOE拨号连接的名字是“宽带连接”,用户名是“abc”,密码是 “123”。

开始拨号命令:Rasdial 宽带连接 abc
123

断开拨号命令:Rasdial 宽带连接
/disconnect


可直接使用.NET调用DOS命令。取出返回值就知道有没有拨号成功。



以下是使用代码。


Module LanConnMod


''' <summary>

''' 网络连接。

''' </summary>

''' <param name="LanName">名称。</param>

''' <param name="User">用户名。</param>

''' <param name="Pass">密码。</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function LanConnect(ByVal LanName As String, ByVal User As String, ByVal Pass As String) As Boolean

'开始连接

Dim Info As New ProcessStartInfo("Rasdial")

Info.Arguments
= String.Format("{0} {1} {2}", LanName, User, Pass)

Info.CreateNoWindow
= True

Info.RedirectStandardOutput
= True

Info.UseShellExecute
= False

Dim RefText As String = Process.Start(Info).StandardOutput.ReadToEnd()

If RefText.Contains("命令已完成") Then

Return True

Else

Return False

End If

End Function


''' <summary>

''' 断开连接。

''' </summary>

''' <param name="LanName">名称。</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function LanConnectClose(ByVal LanName As String) As Boolean

'开始连接

Dim Info As New ProcessStartInfo("Rasdial")

Info.Arguments
= String.Format("{0} {1}", LanName, "/disconnect")

Info.CreateNoWindow
= True

Info.RedirectStandardOutput
= True

Info.UseShellExecute
= False

Dim RefText As String = Process.Start(Info).StandardOutput.ReadToEnd()

If RefText.Contains("命令已完成") Then

Return True

Else

Return False

End If

End Function

End Module
 

原文地址:https://www.cnblogs.com/shuiguang/p/2043381.html