简单的实现adsl 自动拔号

2007年1月18日 | 分类: COMPUTER | 标签:

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 用户来说,不如简单如下:
          依次点击“开始->设置->网络连接”,在拔号图标上点击鼠标右键,再选择“属性->选项”,将“提示名称,密码和证书等”选项前面的钩去掉,保存修改,将桌面上的“网络连接”中的拔号连接图标复制,然后右键点击任务栏,选择“属性->开始菜单->自定义->高级”,再打开“程序->启动”,最后在“启动”文件夹中空白处单击右键“粘贴”保存设置,重起计算机,完成!

目前还没有任何评论.
您必须在 登录 后才能发布评论.