中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-12 12:52 |
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » [求助]定时关闭和重新拨号。 |
| 可打印版本 737 / 1 |
| 第1楼 mfdcxnf | 发表于 2010-03-25 11:43 |
| 初级用户 发帖 74 积分 155 | |
|
[求助]定时关闭和重新拨号。 WScript.CreateObject("WScript.Shell").Run "iexplore http://reg.qq.com/"
WScript.Sleep 2000 Set Sh = CreateObject("WScript.Shell") Sh.SendKeys "QQ" Sh.SendKeys "{Tab}" Sh.SendKeys "2008" Sh.SendKeys "{Tab}" Sh.SendKeys "8" Sh.SendKeys "{Tab}" Sh.SendKeys "8" Sh.SendKeys "{Tab}" Sh.SendKeys "{Tab}" Sh.SendKeys "aaaa" '密码 Sh.SendKeys "{Tab}" Sh.SendKeys "aaaaa" '密码 Sh.SendKeys "{Tab}" Sh.SendKeys "{Tab}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{Tab}" Sh.SendKeys "{Tab}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{Tab}" Sh.SendKeys "{down}" Sh.SendKeys "{down}" Sh.SendKeys "{Tab}" 这是一个申请QQ的VBS，我在想如果加上一段自动断开和重新连接网络的代码就完美了。 断网 VBS Set ObjShell=CreateObject("Wscript.Shell") VBS SttCommand=("cmd.exe /C rasdial /d") VBS ObjShell.Run SttCommand, 0, False 连接 VBS Set ObjShell=CreateObject("Wscript.Shell") VBS SttCommand=("cmd.exe /C rasdial 连接名称 连接帐号 连接密码") VBS ObjShell.Run SttCommand, 0, False 举例 VBS SttCommand=("cmd.exe /C rasdial 宽带连接 0551788888 cs245872") 最上面的运行三次以后才能再运行下面的代码，如果申请一个变量是否可以得到，请大家帮忙。 |
|
| 第2楼 mfdcxnf | 发表于 2010-03-25 11:45 |
| 初级用户 发帖 74 积分 155 | |
|
补充 即当三次申请QQ后，就重新断开和启动网络的操作，然后这个超作需要延时。能否同时完成
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |