带有 SendKeys 的旧版 Visual Basic 5 应用程序在 Windows 8.1 上拒绝权限

Question

我有一个几年前编写的旧程序，用 Visual Basic 5 中的本机代码编译而成。我在一些旧硬盘中丢失了原始源代码……

它使用

SendKeys ("{LEFT}")

然后我收到这个错误：

Run-time error '70':
Permission denied

我已经禁用了 UAC，就像在 Windows 7 上一样（并且有效），但它在 Windows 8.1 中不起作用，有人知道解决这个问题的方法吗？

Answer 1

将其粘贴到项目中 - 添加模块 - 打开

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

您将不会再遇到这个问题。