求一VB高手，帮忙添加一个自动拨号功能

求一VB高手，帮忙添加一个自动重启路由的功能，我这是一个自动申请QQ号的小软件，每次申请三个号码后都要手动重启路由，软件也得重开，很麻烦，想添加一个只要填写了网络账号和密码可以自动重启路由的功能

答案：路由重启 VBS 脚本代码:
 
Set sh=WScript.CreateObject("WScript.Shell") 
sh.Run "telnet 192.168.1.1" 
WScript.Sleep 1000 
sh.SendKeys "admin{ENTER}" 
WScript.Sleep 1000 
sh.SendKeys "admin{ENTER}" 
WScript.Sleep 1000 
sh.SendKeys "reboot{ENTER}" 
WScript.Sleep 1500 
Dim strComputer,objWMIService,objProcess,colProcessList 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'telnet.exe'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
next
加我Q号，我看看

上一个：VB制作个人专用记事本的代码谁有啊？
下一个：求帮我找这个VB程序里的错误