用ObjShell.AppActive激活那个为活动窗口ok?

快上课了……
2007-09-15 18:10
,但是有其他窗口跳出来,原来那个就不活动了啊
2007-09-15 18:23
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
跪求还有没有更好的办法,大家不吝赐教啊
2007-09-15 18:37
2007-09-15 18:56
2007-09-15 19:07
2007-09-15 19:23
2007-09-15 19:26