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

fzl6688

谁能帮写个函数模拟单击键盘的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

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

fzl6688

谢谢啊，我调调

风雪夜归人

我 怎么觉得是 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

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

要么参数不打括号

Press_key "1"

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