51Testing软件测试论坛

标题: 如何编写回车代替按钮的操作？ [打印本页]

作者: hohofa2006 时间: 2006-10-4 21:19
标题: 如何编写回车代替按钮的操作？
如何编写回车代替按钮的操作？即输入信息后直接回车（代替点击”查询“按钮），系统自动执行查询操作。请各位高手指点，万分感谢！！！

作者: yangkinki 时间: 2006-10-5 10:44
录制时用回车，不用鼠标去点，就录制成按回车键了

作者: lyscser 时间: 2006-10-5 15:05
 键盘模拟函数：WScript.Shell的一些应用
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作
WshShell.AppActivate "Calculator" '启动应用程序

键盘键-函数一览表
Key Argument
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER} or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}

作者: lyscser 时间: 2006-10-5 15:06
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"　　　　　
只要这两句就可以了

作者: hohofa2006 时间: 2006-10-6 17:15
原来如此，谢谢各位了。

作者: kissing 时间: 2006-10-8 17:08
人才，这么好的东西。。。

作者: hohofa2006 时间: 2006-10-9 10:40
我试了一下，不行，是不是还需要些什么？

作者: hohofa2006 时间: 2006-10-9 10:46
标题: 回车方式这样编写有何问题？
具体代码如下
Function Query(QueryMsg,errMsg)
Dim WshShell
Call EditSet(middleFrame,"f_QueryMsg",QueryMsg,errMsg) '在输入框中输入信息
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}"
wait(3)
End Function

上述程序要实现的功能:在输入框中输入信息后,直接回车。

但此回车功能没有作用，请大家指正。

作者: Joan2005 时间: 2006-10-11 16:31
按#2楼的当然可以了。
但把单击那段代码用
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}"代替时,不会执行回车事件的啊?

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