中国DOS联盟

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")
最上面的运行三次以后才能再运行下面的代码，如果申请一个变量是否可以得到，请大家帮忙。

即当三次申请QQ后，就重新断开和启动网络的操作，然后这个超作需要延时。能否同时完成