WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限”

最新推荐文章于 2024-12-12 16:24:15 发布
最新推荐文章于 2024-12-12 16:24:15 发布
阅读量1.2w 收藏 1
点赞数
CC 4.0 BY-SA版权
文章标签： vb windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/fsm_hawking/article/details/5998103
本文解决了Windows 7系统下VB6中SendKeys命令出现“实时错误70拒绝的权限”的问题。该问题是由于Windows 7 UAC机制导致，提供了一个关闭UAC的VBS解决方案。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限”

 

解决方法：Windows 7 UAC漏洞，关闭Windows 7 UAC的VBS。

fsm_hawking
关注
VB之SendKeys键盘模拟
weixin_34130389的博客
01-07 2134
VB SendKeys语句详解 大家在VB6中都用过sendkeys，幕通过发送键盘的事件间接地控制外部程序，是有遥控之说。我在VB7中却发现这个不能用了， 也就不了了之，后来一次在查阅MSDN的时候竟看到了这个，是以尝试了一下，竟然旧貌新颜，还是一样好用。主要是在system.winforms族中找到sendkeys 使用方法同VB6键:一般的字符键如...
VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，强烈建议看此文
ecz00的专栏
05-19 8733
VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
关于VB6不能保存，提示“权限被拒绝”的问题
zihuangao的专栏
10-12 3554
在VB6 IDE环境下，当我想保存时，VB不能保存，提示为“权限被拒绝 ...\...frm"，只能另存为其他名字   先是怀疑VB没有打补丁，装上SP6，还是不行；又换其他版本，问题依旧。又重装系统，还是不行。   最终发现问题出现在VB的插件当中，Matrox Act
System.Windows.Forms.SendKeys.Send 拒绝访问 的问题
weixin_44813618的博客
05-15 2926
在Win10系统下启动VS2015，运行以下代码时出错，显示System.Windows.Forms.SendKeys.Send拒绝访问,估计是权限问题，请问该怎么处理呢？ if (subscripti < str.Length) { System.Windows.Forms.SendKeys.Send(@str[subscripti].ToString()); sousuo += str[...
U8-填制凭证，摘要，回车 报错运行时错误70，拒绝的权限。
u010822826的博客
09-30 1300
只是在摘要处回车，提示报错，在科目和金额处不会报错解决思路：1、在控制面板 关闭WINdows系统的用户账户控制(UAC)窗口。2、在其他可以正常录入凭证的电脑，复制以下文件替换，并使用regsvr32注册。然而，以上方式并不能解决。。。真正的解决方式：彻底关闭UAC方法：1、借助工具2、修改注册表。
【U8】填制凭证输入完摘要，回车后报错运行时错误70，拒绝的权限。
热门推荐
努力不懈的为广大客户提供优质的产品与真诚、贴心、专业的服务！
05-06 1万+
U8填制凭证输入完摘要，回车后报错运行时错误70，拒绝的权限。 解决： 关闭WINdows系统的用户账户控制(UAC)窗口。 第一步：点击开始， 第二步：找到控制面板， 第三步“用户账户和家庭安全”这项， 第四步： 用户账户 ， 第五步：更改用户账户控制设置， 第六步：调到最低 ； 或者是： \U8SOFT\ufcomsql\UFPZBill.ocx \U8SOFT\ufcomsql\US_Pz...
VB6中SendKeys的基本应用
Jzh的专栏
12-19 1567
SendKeys 模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，  其使用格式为：object.SendKeys string  “object”：表示WshShell对象  “string”：表示要发送的按键指令字符串，需要放在英文双引号中。  1.基本键  　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshSh
vb6.0版本SendMessage键盘按键参数和代码
qq_32257509的博客
06-27 1334
filePath = “C:\Users\28261\Desktop\查找文件并输入内容程序源代码\文本框密码登录程序.exe”M是CTRL+Shift即CTRL+Shift是输入法切换，Z是CTRL+F11即^{F11}是隐藏或显示菜单栏。Q是CTRL+ALT+DELETE是打开任务管理器，P是CTRL+Esc即^{Esc}是开始菜单，U是CTRL+F4即^{F4}是关闭当前窗口，h是Alt+tab即%{tab}是切换窗口，V是ALT+空格键是显示程序"控制"菜单，
vb6 调出系统任务栏wifi设置 小窗口
06-17
由于VB6的SendKeys方法（`SendKeys`语句）可能不可靠（特别是当窗口焦点变化时），因此我们优先使用URI方法。请根据目标系统的Windows版本选择合适的方法。相关问题：1.如何在VB6中打开控制面板？2.如何在VB6中执行...
VB6技术实现模拟鼠标操作详解
- **使用VB6内部函数**：VB6也提供了内建函数，如`Cursor`对象来控制鼠标移动，`SendKeys`等来模拟键盘输入。 #### 4. mouse_event函数 `mouse_event`是Windows API中用于模拟鼠标事件的函数。它能够模拟鼠标指针的...
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
10-11
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
VB SendKeys语句详解
03-06
VB SendKeys语句详解 将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。 语法 SendKeys string[, wait] SendKeys 语句的语法具有以下几个命名参数： string 必需的。字符串表达式，指定要发送的按键消息。 Wait 可选的。指定等待方式的 BooleandefBooleanDataType@veendf98.chm 值。如果为 False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为 True，则按键消息必须在控件返回到过程之前加以处理。 说明
SendKeys模拟键盘输入实例源代码
04-17
SendKeys模拟键盘输入实例源代码
vb修改设置输入法顺序
02-12
VB中的`SendKeys`方法可以模拟用户输入，但这通常不是必需的，因为修改注册表后，系统通常会自动刷新输入法设置。 5. **错误处理**：由于涉及到系统级别的操作，需要确保有适当的错误处理机制。使用`Try...Catch......
Option Explicit Private WithEvents Timer1 As Timer Private wsh As Object Private objWnd As Object Private Const ObjHour As Integer = 1 Private Const ObjMinute As Integer = 59 Private Const ObjSecond As Integer = 0 Private LastSwitchTime As Date ' 记录上次切换时间 Private Sub Form_Load() On Error Resume Next Set wsh = CreateObject("WScript.Shell") Set objWnd = wsh.Exec("mshta.exe ""about:<title>页面自动程序</title><body bgcolor=white><center><h1>运行中</h1><p>系统每1分钟自动按一次F11和Tab键,防止桌面自动锁屏.<br> @@@@@关闭窗口停止运行程序@@@@@</p></center><script>window.resizeTo(800,400);window.moveTo((screen.width-800)/2,(screen.height-400)/2);</script>""") If Err.Number <> 0 Then MsgBox "错误创建窗口: " & Err.Description Exit Sub End If Set Timer1 = Controls.Add("vb.timer", "Timer1") Timer1.Interval = 1000 ' 1秒检测一次 Timer1.Enabled = True OpenBrowserUrls End Sub Private Sub OpenBrowserUrls() Dim browserPath As String Dim urls(1 To 4) As String ' 4个URL browserPath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" urls(1) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E6%2580%25BB%25E8%25A3%2585%25E7%25BB%2584%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E6%2595%25B0%25E5%25AD%2597%25E5%258C%2596%25E5%258F%25AF%25E8%25A7%2586%25E7%2594%25BB%25E9%259D%25A2.frm&ref_t=design&ref_c=c1f4da3a-8211-44b6-94c4-3a88c1251739" '3科数字化页面 urls(2) = "http://192.168.154.11:4000/gridWebAndon/revoAssembly_Allparts" '#12线装配安东 urls(3) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF.frm&ref_t=design&ref_c=aa9c72db-5215-48d4-b36f-a5841c32c7c6" '人员管理板 urls(4) = "http://192.168.154.11:5000/gridWebAndon/revoAllparts" '#12线加工安东 Dim i As Integer For i = 1 To 4 ' 打开浏览器窗口 wsh.Run Chr(34) & browserPath & Chr(34) & " " & Chr(34) & urls(i) & Chr(34) DoEvents ' 等待页面加载 Sleep 2000 ' 确保窗口激活后再发送F11 wsh.AppActivate "Microsoft Edge" Sleep 500 ' 短暂延迟确保激活完成 wsh.SendKeys "{F11}" Next i ' 额外确保最后一个窗口全屏 wsh.AppActivate "Microsoft Edge" Sleep 500 wsh.SendKeys "{F11}" LastSwitchTime = Now ' 初始化切换时间 End Sub Private Sub Timer1_Timer() Dim CurHour As Integer Dim CurMinute As Integer Dim CurSecond As Integer CurHour = Hour(Now) CurMinute = Minute(Now) CurSecond = Second(Now) ' 检查是否到达关机时间 If CurHour = ObjHour And CurMinute >= ObjMinute Then 'wsh.Run "cmd.exe /c shutdown -s -f" ' 原关机命令已禁用 Exit Sub End If ' 每1分钟切换一次标签页 If DateDiff("n", LastSwitchTime, Now) >= 1 Then wsh.AppActivate "Microsoft Edge" Sleep 500 ' 确保窗口激活 wsh.SendKeys "^{TAB}" ' Ctrl+Tab切换标签页 LastSwitchTime = Now End If End Sub Private Sub Sleep(ms As Long) Dim endTime As Date endTime = DateAdd("s", ms / 1000, Now) Do While Now < endTime DoEvents Loop End Sub 屏蔽“页面自动程序”窗口代码
最新发布
08-10
我们想要在VB6程序中移除或禁用通过mshta.exe创建的"about:页面"窗口（即那个显示“Running”的窗口）。在原始代码中，这个窗口是通过以下代码创建的： Set objWnd = wsh.Exec("mshta.exe ""about:<title>running...
VS2010旗舰版的VB.NET版本里的SendMessage键盘按键参数和代码
qq_32257509的博客
06-23 637
M是CTRL+Shift即CTRL+Shift是输入法切换，Z是CTRL+F11即^{F11}是隐藏或显示菜单栏。Alt+++tab即%+{tab}是切换上一个窗口，Q是CTRL+ALT+DELETE是打开任务管理器，SendKeys.Send"{alt+空格+N}"SendKeys.Send"{alt+空格+X}"P是CTRL+Esc即^{Esc}是开始菜单，U是CTRL+F4即^{F4}是关闭当前窗口，h是Alt+tab即%{tab}是切换窗口，V是ALT+空格键是显示程序"控制"菜单，
SendKeys在Windows 7登录窗口不起作用的解决方法
D0126_的博客
12-12 402
用户想要使用SendKeys在Windows 7登录窗口中输入密码，但是发现SendKeys不起作用。2、解决方案 使用SendKeys在Windows 7登录窗口中输入密码的方法有两个：Credential Provider Credential Provider是一种Windows Vista/7/8登录屏幕的扩展，它允许开发人员创建自定义的登录界面。要使用Credential Provider，需要实现一个C++类，并将其注册到Windows系统中。自定义GINA DLL 自定义GINA DLL是一种
VB无法启动程序 拒绝访问
qq_45589988的博客
08-07 560
解决办法：把360退出，成功打开。
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值