set sh=WScript.CreateObject("WScript.Shell")
WScript.Sleep 1000
sh.Run "telnet.EXE"
WScript.Sleep 1000
sh.SendKeys "open 10.0.0.1"
WScript.Sleep 1000
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
sh.SendKeys "root{ENTER}"
WScript.Sleep 1000
sh.SendKeys "pass{ENTER}"
WScript.Sleep 2000
sh.SendKeys "pwd{ENTER}"
......
sh.SendKeys "exit{ENTER}"
WScript.Sleep 1000
sh.SendKeys "{ENTER}"
WScript.Sleep 1000
sh.SendKeys "quit{ENTER}"
上面是可以利用telnet自动登陆的代码,可以帮助我自动完成一些命令,现在有个问题:当telent窗口失去焦点的时候(比如突然有个窗口跳出,QQ经常干
这事),sh.SendKeys 就把命令输入到其他地方去了,请问高手有解决办法吗? 跪求啊

大家能说的清楚点吗?我是新手,不懂啊
两位给个完成的程序吧

俺只是个小小的网管,不懂编程,学起来要久了

楼上说的是,汗

楼上的谢谢,ObjShell.AppActive我已经试过了,不行啊,看这个计算器的例子
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "计算器"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500
如果有别的活动窗口,还是会输入到别的地方去

,但是有其他窗口跳出来,原来那个就不活动了啊

WshShell.AppActivate "计算器"多加入几个还是可以解决的,不过这个方法也太苯了吧
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "计算器"
WScript.Sleep 1000
WshShell.AppActivate "计算器"

WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.AppActivate "计算器"

WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.AppActivate "计算器"

WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.AppActivate "计算器"

WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.AppActivate "计算器"

WshShell.SendKeys "~"
WScript.Sleep 2500
跪求还有没有更好的办法,大家不吝赐教啊

多谢楼上的,不过,我想应该有办法,让焦点始终在"计算器"上,当计算器关闭了,其他程序才能获得焦点,继续寻找.

这个是vbs的,要不去研究研究vb