谁能帮写个函数模拟单击键盘的enter键和ESC键

fzl6688 发表于 2009-5-26 09:36:31

谁能帮写个函数模拟单击键盘的enter键和ESC键，不胜感激。我写了一个，在程序里调用时，不执行啊。
sub Press_key(KeyNO)
dim WshShell
set WshShell=WScript.createobject("Wscript.Shell")
if keyno="1" then
wshshell.sendkeys "{enter}"
else
wshshell.sendkeys "{esc}"
end if
end sub

调用的时候用Press_key("1"),执行不了，谁能看看是什么问题

52042722 发表于 2009-5-26 10:00:26

有两个问题：
1：调用过程：要用Call 关键字
2：set WshShell=WScript.createobject("Wscript.Shell") 错了
set WshShell=createobject("Wscript.Shell") 这样就对了

fzl6688 发表于 2009-5-26 10:01:38

回复 2# 的帖子

谢谢啊，我调调

风雪夜归人 发表于 2009-5-29 05:02:55

我怎么觉得是 Press_key 1 这样调用呢？wscript.的确是应该去掉

Wait 5

Press_key 1

sub Press_key(KeyNO)
dim WshShell
set WshShell=createobject("Wscript.Shell")
if keyno="1" then
wshshell.sendkeys "{enter}"
else
wshshell.sendkeys "{esc}"
end if
end sub

这样运行是对的，没有问题

onlonely 发表于 2009-5-29 21:09:48

单独调用要么用Call
call Press_key("1")

要么参数不打括号

Press_key "1"

如果有返回值的话,就也要括号
ii=Press_key("1")

页: [1]

51Testing软件测试论坛 's Archiver

谁能帮写个函数模拟单击键盘的enter键和ESC键

回复 2# 的帖子