Timed disconnect and redial. - China DOS Union Forum - China DOS Union

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" 'password
Sh.SendKeys "{Tab}"
Sh.SendKeys "aaaaa" 'password
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}"

This is a VBS for applying for QQ. I was thinking that if I add a bit of code to automatically disconnect and reconnect the network, it would be perfect.
Disconnect

VBS Set ObjShell=CreateObject("Wscript.Shell")
VBS SttCommand=("cmd.exe /C rasdial /d")
VBS ObjShell.Run SttCommand, 0, False
Connect

VBS Set ObjShell=CreateObject("Wscript.Shell")
VBS SttCommand=("cmd.exe /C rasdial connection name connection account connection password")
VBS ObjShell.Run SttCommand, 0, False

Example
VBS SttCommand=("cmd.exe /C rasdial Broadband Connection 0551788888 cs245872")
The code at the top has to be run three times before the code below can be run again. If I use a variable, can I make it work? Please help, everyone.

Floor1　mfdcxnf	Posted 2010-03-25 11:43
初级用户　Posts 74　Credits 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" 'password Sh.SendKeys "{Tab}" Sh.SendKeys "aaaaa" 'password 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}" This is a VBS for applying for QQ. I was thinking that if I add a bit of code to automatically disconnect and reconnect the network, it would be perfect. Disconnect VBS Set ObjShell=CreateObject("Wscript.Shell") VBS SttCommand=("cmd.exe /C rasdial /d") VBS ObjShell.Run SttCommand, 0, False Connect VBS Set ObjShell=CreateObject("Wscript.Shell") VBS SttCommand=("cmd.exe /C rasdial connection name connection account connection password") VBS ObjShell.Run SttCommand, 0, False Example VBS SttCommand=("cmd.exe /C rasdial Broadband Connection 0551788888 cs245872") The code at the top has to be run three times before the code below can be run again. If I use a variable, can I make it work? Please help, everyone.

Floor2　mfdcxnf	Posted 2010-03-25 11:45
初级用户　Posts 74　Credits 155
That is, after applying for QQ three times, it should disconnect and restart the network, and then this operation needs a delay. Can this be done at the same time?