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