51Testing软件测试论坛

标题: sendkey方法的使用 [打印本页]

作者: 郁金香 时间: 2007-9-4 15:18
标题: sendkey方法的使用
我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

作者: winfood 时间: 2007-9-4 15:41

原帖由 郁金香 于 2007-9-4 15:18 发表
我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

单单这行语句看不出错误来，把完整的代码块贴出来。可能是上下文中的语句用法有错。

作者: rivermen 时间: 2007-9-4 15:46
确实对这样的组合键很难奏效
我也想看看有没有高手知道

作者: 郁金香 时间: 2007-9-4 16:02
其他代码是没有问题的

作者: loho1968 时间: 2007-9-4 16:31
可以使用 object.type方法
object.type micShiftDown+micTab+micShiftUp

作者: 郁金香 时间: 2007-9-4 16:59
标题: 回复 #5 loho1968 的帖子
我现在不能对object对象操作，所以采用了模拟键盘的方法写文字

作者: loho1968 时间: 2007-9-4 17:04
已经都可以 obj.sendkeys了，怎么不能obj.type

作者: 郁金香 时间: 2007-9-4 17:06
标题: 回复 #7 loho1968 的帖子
我是先获得就近对象的焦点，然后按tab键，再向该对象中输入文字

作者: yuandjing 时间: 2007-9-4 21:45

原帖由 郁金香 于 2007-9-4 15:18 发表
我用sendkey方法模拟键盘，想模拟输入"shift+tab"键，代码是这样写的obj.sendkeys "+{TAB}",执行时却不可能。请教各位，我该如何实现此功能。

sendkeys方法我也常用，我觉得你这样应该行啊
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys "+{TAB}"
Set WshShell = nothing

你不妨再试一下
("+{TAB}") "(+{TAB})" ("{TAB}+") "({TAB}+)"

作者: 郁金香 时间: 2007-9-5 09:15
WshShell.SendKeys "(+{TAB})"

作者: rivermen 时间: 2007-9-5 10:08
我回头去试试看，又长见识了。
另外还发现：
WshShell.SendKeys "(^s)"
这样的组合键字母区分大小写的

作者: shangguoli 时间: 2008-5-21 10:32
标题: 回复 9# 的帖子
谢谢，用了你的方法很管用。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)