你是在telnet到路由器时挂起会话用的吧?
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
WScript.Sleep 1000
objws.SendKeys "^+6"
objws.SendKeys "x"
特殊控制键 特殊字符
Shift +
Ctrl ^
Alt %
============================
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^+6"
WScript.Sleep 200
WshShell.SendKeys "X"