E语言调用regini.exe修改注册表的权限

简介[本文防采集]

E语言调用regini.exe修改注册表的权限

没有使用到任何模块[本文防采集]

来源自精易论坛的大佬们的回答​

截图​

[本文防采集]

具体代码

.版本 2
.支持库 spec
.支持库 shell​

.局部变量 wb, 文本型
.局部变量 权限值, 整数型
.局部变量 注册表, 文本型[本文防采集]

注册表 ＝ “HKEY_CURRENT_USER\Software\Microsoft”
权限值 ＝ 1[本文防采集]

' 权限值说明：[本文防采集]

1 - Administrators 完全访问

2 - Administrators 只读访问​

3 - Administrators 读和写入访问​

4 - Administrators 读、写入、删除访问​

5 - Creator 完全访问​

6 - Creator 读和写入访问​

7 - everyone 完全访问

8 - everyone 只读访问​

9 - everyone 读和写入访问​

10 - everyone 读、写入、删除访问​

11 - Power Users 完全访问​

12 - Power Users 读和写入访问[本文防采集]

13 - Power Users 读、写入、删除访问

14 - System Operators 完全访问​

15 - System Operators 读和写入访问[本文防采集]

16 - System Operators 读、写入、删除访问​

17 - System 完全访问[本文防采集]

18 - System 读和写入访问​

19 - System 只读访问​

20 - Administrators 读、写、执行访问[本文防采集]

21 - Interactive User 完全访问​

22 - Interactive User 读和写入访问[本文防采集]

23 - Interactive User 读、写入、删除访问[本文防采集]

' 使用说明：不想让Administrator访问改成17，不想让SYSTEM访问改成1，其他同理，自行调试需要的模式[本文防采集]

wb ＝ 取文本 (“`%s` [%s]”, 注册表, 权限值)
写到文件 (取特定目录 (11) ＋ “ko”, 到字节集 (wb))
运行 (“cmd /c regini ” ＋ 取特定目录 (11) ＋ “ko”, 真, 1)
删除文件 (取特定目录 (11) ＋ “ko”)
信息框 (“完成”, 0, , )
结束 ()[本文防采集]

 [本文防采集]

下载地址[本文防采集]

https://pan.baidu.com/s/15Qexptu14GZzHtXftAoIQg?pwd=g96k 提取码: g96k​

https://pan.quark.cn/s/66c5b096a78f[本文防采集]