vb6 - Visual Basic 中的 SendKeys() 权限被拒绝错误

Question

我正在尝试使用 SendKeys() 命令通过我的 VB6 应用程序发送到另一个窗口。

我想要的是单击一个按钮，然后在应用程序向该窗口发送一些按键之前有 10 秒的时间转到另一个窗口。我把一切都整理好了，但由于某种原因，当我调用这样的东西时:

SendKeys ("A")

我收到此错误:

Run-time error '70':

Permission denied

有人知道解决这个问题的方法吗？谢谢。

Answer 1

对于 Windows 7:将 UAC 设置更改为从不通知。

对于 Windows 8 和 10:
将此方法添加到任何模块:

Public Sub Sendkeys(text as variant, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys cstr(text), wait
   Set WshShell = Nothing
End Sub 

它在 Windows 10 中对我来说运行良好。