捆饶N久的telnet自动执行问题

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 就把命令输入到其他地方去了,请问高手有解决办法吗? 跪求啊

获得你要输入的那个窗体的capiton

可以用VB内置这个telnet

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

你以为我们吃饱了没事做……

自己好好学习VB基础。

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

他们忙的很 帮你分析了思路 也不错了 ，

如过你不懂编程 再高的高手也帮不了你， 靠人不如靠自己，

有问题来问， 让别人帮你做不现实的！！！

楼上说的是,汗

ObjShell.AppActive

楼上的谢谢,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
如果有别的活动窗口,还是会输入到别的地方去