vb.net adsl播号 rasdial命令的使用

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
If InStr(Run("c:\windows\system32\rasdial","adsl username password"),"命令已完成") > 0 Then
Log("拨号成功")
Else
Log("拨号失败")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
If InStr(Run("c:\windows\system32\rasdial","/d"),"命令已完成") > 0 Then
Log("断开成功")
Else
Log("断开失败")
End If
End Sub

Private Function Run(ByVal PROGRAM As String,ByVal TEST As String) As String
Dim pX As System.Diagnostics.Process = New System.Diagnostics.Process

pX.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
pX.StartInfo.CreateNowindow = True
pX.StartInfo.UseShellExecute = False
pX.StartInfo.RedirectStandardOutput = True
pX.StartInfo.FileName = PROGRAM
pX.StartInfo.WorkingDirectory = "c:\"
pX.StartInfo.Arguments = TEST
pX.Start()
pX.WaitForExit()
Return pX.StandardOutput.ReadToEnd
pX = nothing
End Function

百科参考：

rasdial命令的使用

　　一、rasdial命令格式：

　　rasdial命令三种使用方法，先列出如下，并在其后对其做相应解释。

　　（一）rasdial

　　该命令为查看RAS连接状况，根据你是否连接到服务器，提示分为：您已经连接到宽带连接名称（用户名），表示已经连接，并且告诉你连接的是哪个宽带连接。（一台机子可以建立多个宽带连接的，每个宽带连接需要有各自的名称，在WIN7中称为用户名。）或者为没有连接，表明你没有连接到服务器上。

　　（二）rasdial [entryname] /disCONNECT

　　该命令用户断开宽带连接，如果只有一个宽带连接名称，则可以省略 [entryname]，即省略宽带连接名称， /disCONNECT重的/不要忘记加。如果有多个宽带连接，则必须写上宽带连接名称。

　　（三）rasdial entryname [username[password|*]] [/DOMAIN:domain] [/PHONE:phonenumber] [/CALLBACK:callbacknumber] [/PHONEBOOK:phonebookfile] [/PREFIXSUFFIX]

　　其中[]括起来的表示可以省略，username为网络运营商（比如网通、电信）提供给你的用户名，password为密码，DOMAIN为连接到的域，PHONE为拨号连接的号码，PHONEBOOK可以从指定的文件中读取电话号，进行拨号，除了名称和密码外，其他的一般不需要设置。

　　二、rasdial命令的使用：

　　可以通过在运行栏中输入该命令运行，也可以先进入CMD或者COMMAND，然后再运行该命令，直接输入，系统会自动调用CMD命令执行。

　　也可以通过批处理命令，以及高级语言，比如C、C++、JAVA调用该命令，以实现功能更为丰富的拨号任务。

　　比如实现自动拨号，可以写 rasdial "宽带连接名称" 宽带连接用户名宽带连接密码这条语句，注意其中的宽带连接名称要加引号，是英文的双引号，每一项中间隔一个空格。将其用记事本写入，保存为扩展名为bat或者cmd的文件。将其放入启动项，则可以实现开机自动启动，然后进行自动拨号。

　　“C:\Documents and Settings\Administrator\「开始」菜单\程序\启动”，该目录一般为开机启动项的存放目录，也可以在开始栏里找到。

VB Format函数

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...

vb6/ASP FORMAT MM/DD/YYYY

VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...

VB.net 捕获项目全局异常

在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...

实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法

转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...

vb，wps，excel 分裂

Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...

VB文件 hash 查看器

窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...

vb.net adsl播号 rasdial命令的使用

rasdial命令的使用

相关文章