流氓混混'S Blog 家用ADSL vbs自动拨号代码

{ 首页 }{ 技术相关 }{ 心情日记 }{ 网络文学 }{ 闲侃乱侃 }{ 经典音乐 }{ 图片欣赏 }{ 留言 }{ 关于 }

家用ADSL vbs自动拨号代码 [ 2009-12-27 | 流氓混混'S Blog ]

借助工具也可以实现自动拨号，而且是以隐藏方式进行，拨号过程无声无息
而且，你可以将本程序放到启动菜单里，一开机就可以自动运行。
代码非常简单，如下：

룺

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.Run "ping 127.0.0.1 -n 3",0,True
Wsh.Run "rasdial 宽带连接帐号密码",0,True
Set Wsh=NoThing
WScript.quit

使用方法：先修改以上代码，将代码中的“宽带连接”修改为你的网络连接名称（一般为宽带连接），账号、密码分别修改为你的ADSL账号和密码即可。然后将以上代码保存为拨号.vbs，直接双击即可实现拨号。
红色的ping 127.0.0.1 -n 3中的3就是延时功能，因为有时可能根据系统不通，系统启动时会有一段延时，导致拨号失败，可以通过增加PING的次数来减少拨号失败次数。

如果要实现开机自动运行，可以将本程序复制到开始菜单的启动组里。

收藏此页到：[