自动化应用程序的鼠标单击

时间:2013-12-05 19:40:28

标签: vbscript

我创建了一个vb脚本来自动化应用程序的鼠标点击。该脚本一直在工作,但最后一行不起作用。我真的很困惑,如果剩下的工作正常的话,为什么会这样呢。我想点击CTRL + K,但不知怎的,这不起作用。这是代码。

Option Explicit
 Dim x
 set x=createobject("wscript.shell")

x.run"C:\OnBasewebsite\obclnt32.exe"
 wscript.sleep 2000

 x.sendkeys"MANAGER"

 x.sendkeys"{tab}"

 x.sendkeys"PASSWORD"

 x.sendkeys"{enter}"

 wscript.sleep 2000

 x.sendkeys"{TAB}"

 x.sendkeys"{UP}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"{TAB}"

 x.sendkeys"*-*"

 x.sendkeys"{enter}"

 x.sendkeys"{TAB}"

 x.sendkeys"{enter}"

 wscript.sleep 1000

 x.sendkeys"{CLICK LEFT,50,60}"

 x.sendkeys"^k"

1 个答案:

答案 0 :(得分:0)

使用它:

  x.sendkeys("^{k}")

代替

  x.sendkeys"^k"