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 中对我来说工作得很好。

Answer 2

看看 Karl Peterson 在 Vista 下解决这个问题的方法：

SendInput

Answer 3

VB6 SendKeys 的替代品是 WScript.Shell SendKeys，如下所示：

Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "1{+}"

请参阅 MSDN 寻求帮助。

Answer 4

在公共模块中添加：

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

这将“覆盖”SendKeys 函数

Answer 5

在 Windows 7 上：

• 打开控制面板
• 更改用户帐户控制设置
• 更改为从不通知
• 重新启动计算机

Answer 6

从应用程序中删除“msvbvm60.dll”文件

按照以下步骤

操作

1. 右键单击应用程序 .Exe 文件并单击“属性”
2. 点击“兼容性”选项卡
3. 单击“以兼容模式运行此程序”并选择“Windows”
   XP SP2 来自它。
4. 点击“以管理员身份运行此程序”
5. 点击“应用”即可。
6. 从应用程序文件夹中删除“msvbvm60.dll”。

一切都完成了，现在您的应用程序开始运行，没有任何错误（例如拒绝访问）

Answer 7

问题与 vb6 IDE 和 Windows 桌面上下文菜单有关，您将按照此处所述进行操作：

http://www.vbforums.com/showthread.php?747425-SendKeys-and-Windows-8

主要参考在这里：

http://www.vbforums.com/showthread.php?745925-已解决-如何-触发桌面上下文菜单

Answer 8

您可以在

Public Sub SendKeyTab(CForm As Form)
On Error Resume Next
Dim G As Single
For G = 0 To CForm .Controls.Count - 1
    If CForm .Controls(G).TabIndex = CForm .ActiveControl.TabIndex + 1 Then CForm .Controls(G).SetFocus
Next
End Sub

每个表单级别的模块中使用此代码

If KeyCode

Answer 9

使用此 API：

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

当

keybd_event keycode, 0, 0, 0  'KEY DOWN
keybd_event keycode, 0, KEYEVENTF_KEYUP, 0 'KEY UP

按键代码为 32（空格）、35（键端）、8（vbKeyBack）等时。