delphi如何把路由 自动断开然后在自动连接上

Question

delphi如何把路由 自动断开然后在自动连接上
贴出代码
谢谢
t

Answer 1

delphi 不知道 有一个vbs  你用delphi 调用吧 
本人是用C#调用的 而且写了在IE中修改路由拨号连接的程序 这样结合起来 我就不用手动切网了'重启路由的 把路由设置成自动拨号  把下面的代码贴到记事本 另存为xxx.vbs 双击就行
on error resume next  
dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.run"cmd" 
WshShell.AppActivate"c:\windows\system32\cmd.exe" 
WScript.Sleep 200 
WshShell.SendKeys"telnet 192.168.1.254"  '路由地址
WshShell.SendKeys"{ENTER}" 
WScript.Sleep 100 
WshShell.AppActivate"telnet.exe " 
WScript.Sleep 300 
WshShell.SendKeys"admin"   '登陆名
WshShell.SendKeys"{ENTER}" 
WScript.Sleep 300 
WshShell.SendKeys"admin"    ' 密码
WshShell.SendKeys"{ENTER}" 
WScript.Sleep 300 
WshShell.SendKeys"reboot"    '我的路由是这样的 不过每个路由都有不同的命令集 ，你看你一下你的重启示什么 在cmd下打telnet 192.168.1.XXX
                             '然后输入密码用户名 回车，我的路由是输入 help 回车 就能看到常用指令 你试试吧 （总要重启？刷什么啊？？呵呵）
WshShell.SendKeys"{ENTER}" '执行重启
WScript.Sleep 1000 
WshShell.SendKeys "taskkill/im cmd.exe"