简单的实现adsl 自动拔号
1,把宽带连接中的密码设为保存,
2 ,创建宽带连接的快捷方式到 所有程序 >> 启动 中;
3,新建一个文档输入
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000 ‘延时
WshShell.AppActivate "连接 宽带连接" ’根据窗口标题移动焦点到指点窗口
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}" ‘送出enter
把文本另存为后缀为vbs 的文件也添加到 所有程序 >> 启动 中;
就可以省出每次拔号上网都要点一下快捷方式,再来一下确定或ENTER ;
如果你每次都想输入账号密码就把上面的文本改一下:
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
WshShell.AppActivate "连接 宽带连接"
WshShell.SendKeys "+{TAB}" ‘给个tab
WshShell.SendKeys "账号"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
这样一个简单的自动拔号就完成了。
后记:后来发现这样做完全是show. 看看其它的招:
首先要修改一下宽带连接的属性:
开始-设置-控制面板-网络连接-右键点击宽带连接-选择 属性 -在弹出的窗口中选择 选项-去除 口连接时显示连接进度 和 口提示名称、密码和证书等 这两项的勾选。应用确定
在“开始→运行”中键入“gpedit.msc”,启动“组策略”,展开“用户配置→管理模板→系统→登录”,启用“在用户登录时运行这些程序”项,并单击“显示”按钮,点添加,在弹出窗口中输入
c:\windows\system32\rasphone -d go (go为你拔号联接的名字,见意用英文)然后应用确定重新登录后该程序就会自动运行。详见: http://hi.baidu.com/kknt/blog/item/0e5c0923b85d564e92580775.html
不过对于XP 用户来说,不如简单如下:
依次点击“开始->设置->网络连接”,在拔号图标上点击鼠标右键,再选择“属性->选项”,将“提示名称,密码和证书等”选项前面的钩去掉,保存修改,将桌面上的“网络连接”中的拔号连接图标复制,然后右键点击任务栏,选择“属性->开始菜单->自定义->高级”,再打开“程序->启动”,最后在“启动”文件夹中空白处单击右键“粘贴”保存设置,重起计算机,完成!
