vb 运行时错误 70 权限被拒绝

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

[英] SendKeys() permission denied error in Visual Basic

查看：30 发布时间：2021/9/16 20:36:58  

本文介绍了Visual Basic 中的 SendKeys() 权限被拒绝错误的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我正在尝试使用 SendKeys() 命令到另一个窗口和我的 VB6 应用程序.

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

SendKeys ("A") 

我收到此错误:

Run-time error '70':

Permission denied 

有没有人知道解决这个问题的方法?谢谢.

推荐答案

对于 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 中运行良好.

这篇关于Visual Basic 中的 SendKeys() 权限被拒绝错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！