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"

使用它：

  x.sendkeys("^{k}")

在

  x.sendkeys"^k"

---

它到底以什么方式“不起作用”？它只是挂在那里。从技术上讲，ctrl+k应该在应用程序中弹出一个对话框，但它没有。进行一点故障排除。将Control-K发送给其他应用程序。在尝试发送Control-K之前，应用程序可能已挂起。作为诊断，请在较早的时间点发送Control-K。看看你能不能寄过来。尝试将它发送到不同的应用程序-类似的事情。well尝试了一切。看起来alt、shift和CTRL函数在应用程序中根本不起作用，但当我手动执行时，它就起作用了。那么，我是否需要在代码中添加一些其他内容，以使这些控制代码正常工作。

SendKeys

非常不可靠，应该避免使用。我建议使用GUI自动化工具，如。