断开或自动连接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