使⽤Rasdial这个命令来实现⾃动拨号、断开⽹络（更改IP地
址）
使⽤Rasdial这个命令来实现⾃动拨号、断开⽹络（更改IP地址）
假设你的电脑的PPPOE拨号连接的名字是“宽带连接”，⽤户名是“abc”，密码是 “123”。
开始拨号命令：Rasdial 宽带连接 abc 123
断开拨号命令：Rasdial 宽带连接 /disconnect
可直接使⽤.NET调⽤DOS命令。取出返回值就知道有没有拨号成功。
以下是使⽤代码。
Module LanConnMod
''' <summary>
''' ⽹络连接。
param name
''' </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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。