标题:捆饶N久的telnet自动执行问题
只看楼主
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
用ObjShell.AppActive激活那个为活动窗口ok?

快上课了……
2007-09-15 18:10
wooqooo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-9-15
得分:0 
,但是有其他窗口跳出来,原来那个就不活动了啊
2007-09-15 18:23
wooqooo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-9-15
得分:0 

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
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
WshShell.SendKeys inTypeStr
WScript.Sleep 500
WshShell.AppActivate "计算器"

写成一个过程……

快上课了……
2007-09-15 18:56
wooqooo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-9-15
得分:0 
多谢楼上的,不过,我想应该有办法,让焦点始终在"计算器"上,当计算器关闭了,其他程序才能获得焦点,继续寻找.
2007-09-15 19:07
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
你用VB还是VBS?VB有API……

快上课了……
2007-09-15 19:23
wooqooo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-9-15
得分:0 
这个是vbs的,要不去研究研究vb
2007-09-15 19:26



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-170196-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.799516 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved