使用Rasdial这个命令来实现自动拨号、断开网络（更改IP地址）

使用Rasdial这个命令来实现自动拨号、断开网络（更改IP地址）  

假设你的电脑的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