精易论坛

标题: 64位注册表操作模块_夜猫改模块源码分享 [打印本页]

作者: wlsk888 时间: 2024-9-2 19:09
标题: 64位注册表操作模块_夜猫改模块源码分享

64位注册表操作模块_夜猫改，源码是来自论坛的，原版链接http://125.confly.eu.org/forum.php?mod=viewthread&tid=14114378
我主要是修改了一些小问题，增加了添加修改注册表项的默认值功能以及删除注册项失败等，同时增加了完整的使用说明和例子，方便大家使用。

使用方法有完整测试说明！

.版本 2
.支持库 spec

' 完整测试
' 是否64位系统
局_系统64位＝系统_是否64位 ()
' 删除SOFTWARE\test注册表项
调试输出 (“项SOFTWARE\test是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test”, 局_系统64位, 1, ))
调试输出 (“删除项SOFTWARE\test结果：”, 注册表_删除注册项值 (4, “SOFTWARE\test”, 局_系统64位, ))
调试输出 (“项SOFTWARE\test是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test”, 局_系统64位, 1, ))
调试输出 (“--------------------------”)
' 判断项SOFTWARE\test\regkey是否存在
调试输出 (“项SOFTWARE\test\regkey是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey”, 局_系统64位, 1, ))
' 在SOFTWARE\test\下添加项“regkey”，并且设置默认值为空
调试输出 (“添加项SOFTWARE\test\regkey，并且设置默认值为空，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey\”, , , , 局_系统64位))
' 判断项SOFTWARE\test\regkey是否存在
调试输出 (“项SOFTWARE\test\regkey是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey”, 局_系统64位, 1, ))
调试输出 (“--------------------------”)
' 判断项SOFTWARE\test\regkey1是否存在
调试输出 (“项SOFTWARE\test\regkey1是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey1”, 局_系统64位, 1, ))
' 在SOFTWARE\test\下添加项“regkey1”，并且设置默认值为“defstr”
调试输出 (“添加项SOFTWARE\test\regkey1，并且设置默认值为defstr，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey1\”, 到字节集 (“defstr”), , , 局_系统64位))
' 判断项SOFTWARE\test\regkey1是否存在
调试输出 (“项SOFTWARE\test\regkey1是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey1”, 局_系统64位, 1, ))
调试输出 (“--------------------------”)
' 读取项SOFTWARE\test\regkey和项SOFTWARE\test\regkey1的默认值
调试输出 (“项SOFTWARE\test\regkey的默认值：”, 到文本 (注册表_取字节集注册项 (4, “SOFTWARE\test\regkey\”, 局_系统64位)))
调试输出 (“项SOFTWARE\test\regkey1的默认值：”, 到文本 (注册表_取字节集注册项 (4, “SOFTWARE\test\regkey1\”, 局_系统64位)))
调试输出 (“--------------------------”)
' 判断SOFTWARE\test\下的值regkey是否存在
调试输出 (“值SOFTWARE\test\regkey是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey”, 局_系统64位, 2, ))
' 在SOFTWARE\test\下添加值“regkey”，值类型为REG_SZ,并且值数据为空
调试输出 (“添加值SOFTWARE\test\regkey，值类型为REG_SZ,并且设置默认值为空，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey”, , , , 局_系统64位))
' 判断SOFTWARE\test\下的值regkey是否存在
调试输出 (“值SOFTWARE\test\regkey是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey”, 局_系统64位, 2, ))
' 读取值SOFTWARE\test\regkey的数据，值类型为REG_SZ
调试输出 (“值SOFTWARE\test\regkey的数据为：”, 注册表_取文本注册项 (4, “SOFTWARE\test\regkey”, 局_系统64位))

调试输出 (“--------------------------”)
' 判断SOFTWARE\test\下的值regkey1是否存在
调试输出 (“值SOFTWARE\test\regkey1是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey1”, 局_系统64位, 2, ))
' 在SOFTWARE\test\下添加值“regkey1”，值类型为REG_SZ,并且值数据为“defstr”
调试输出 (“添加值SOFTWARE\test\regkey1，值类型为REG_SZ,并且设置值数据为defstr，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey1”, 到字节集 (“defstr”), , , 局_系统64位))
' 判断SOFTWARE\test\下的值regkey1是否存在
调试输出 (“值SOFTWARE\test\regkey1是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey1”, 局_系统64位, 2, ))
' 读取值SOFTWARE\test\regkey1的数据，值类型为REG_SZ
调试输出 (“值SOFTWARE\test\regkey1的数据为：”, 注册表_取文本注册项 (4, “SOFTWARE\test\regkey1”, 局_系统64位))
调试输出 (“--------------------------”)

' 判断SOFTWARE\test\下的值regkey2是否存在
调试输出 (“值SOFTWARE\test\regkey2是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey2”, 局_系统64位, 2, ))
' 在SOFTWARE\test\下添加值“regkey2”，值类型为REG_DWORD,并且值数据为十进制123
调试输出 (“添加值SOFTWARE\test\regkey2，值类型为REG_DWORD,并且设置值数据为十进制123，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey2”, 到字节集 (123), #REG_DWORD, 真, 局_系统64位))
' 判断SOFTWARE\test\下的值regkey2是否存在
调试输出 (“值SOFTWARE\test\regkey2是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey2”, 局_系统64位, 2, ))
' 读取值SOFTWARE\test\regkey2的数据，值类型为REG_DWORD
调试输出 (“值SOFTWARE\test\regkey2的数据为：”, 注册表_取数值注册项 (4, “SOFTWARE\test\regkey2”, 局_系统64位))
调试输出 (“--------------------------”)

' 判断SOFTWARE\test\下的值regkey3是否存在
调试输出 (“值SOFTWARE\test\regkey3是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey3”, 局_系统64位, 2, ))
' 在SOFTWARE\test\下添加值“regkey3”，值类型为REG_BINARY,并且值数据为“00010203”
调试输出 (“添加值SOFTWARE\test\regkey3，值类型为REG_BINARY,并且设置值数据为-010203，结果：”, 注册表_写注册项 (4, “SOFTWARE\test\regkey3”, 到字节集 (反转整数字节序 (十六进制 (“00010203”))), #REG_BINARY, 真, 局_系统64位))
' 判断SOFTWARE\test\下的值regkey3是否存在
调试输出 (“值SOFTWARE\test\regkey3是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test\regkey3”, 局_系统64位, 2, ))
' 读取值SOFTWARE\test\regkey3的数据，值类型为REG_BINARY
调试输出 (“值SOFTWARE\test\regkey3的数据为：”, 到十六进制字节集_汇编 (注册表_取字节集注册项 (4, “SOFTWARE\test\regkey3”, 局_系统64位)))
调试输出 (“--------------------------”)
' 枚举SOFTWARE\test下的项
局_项总数＝注册表_枚举注册项 (4, “SOFTWARE\test”, 局_项数组, 局_系统64位)
.计次循环首 (局_项总数, i)
调试输出 (i, “SOFTWARE\test下的项名:”, 局_项数组 )
.计次循环尾 ()
调试输出 (“--------------------------”)
' 枚举SOFTWARE\test下的值（不含默认值）
局_项总数＝注册表_枚举注册值 (4, “SOFTWARE\test”, 局_键值结构数组, 局_系统64位)
.计次循环首 (局_项总数, i)
调试输出 (i, “SOFTWARE\test下的键名:”, 局_键值结构数组 .键名, “键类型:”, 格式输出键值类型 (局_键值结构数组 .键类型), “值:”, 键值字节集转文本 (局_键值结构数组 .键类型, 局_键值结构数组 .键值, 局_键值结构数组 .键长度))
.计次循环尾 ()
调试输出 (“测试完毕--------------------------”)
调试输出 (“删除项SOFTWARE\test结果：”, 注册表_删除注册项值 (4, “SOFTWARE\test”, 局_系统64位, ))
调试输出 (“项SOFTWARE\test是否存在：”, 注册表_注册项或值是否存在 (4, “SOFTWARE\test”, 局_系统64位, 1, ))
精币稀缺，抱歉了

64位注册表操作模块夜猫改.7z (67.52 KB, 下载次数: 187)

作者: 一C 时间: 2024-9-2 19:39
支持大佬

作者: happyweeks365 时间: 2024-9-2 20:00
6666666666666666666666

作者: wuqingg 时间: 2024-9-2 20:47
看看~~~~~~

作者: 15930887162 时间: 2024-9-2 21:07
下载看看，，

作者: qq2518 时间: 2024-9-2 21:15
收藏了。以后能用到

作者: 艾玛克138 时间: 2024-9-2 22:26
支持支持，希望发展的更好！

作者: bianyuan456 时间: 2024-9-2 23:07
已经顶贴，感谢您对论坛的支持！

作者: 尐觅风 时间: 2024-9-3 06:22
已经顶贴，感谢您对论坛的支持！

作者: year1970 时间: 2024-9-3 08:04
感谢分享

作者: 小虎来了 时间: 2024-9-3 08:46
感谢分享

作者: 一指温柔 时间: 2024-9-3 08:53
感谢分享~！

作者: 胖子葛格 时间: 2024-9-3 09:01
感谢大神分享~！

作者: 396384183 时间: 2024-9-3 09:01

感谢大神分享~！

作者: 杨明煜 时间: 2024-9-3 10:05
支持分享.............

作者: jiqigouer 时间: 2024-9-3 13:22
谢谢分享

作者: pipicool 时间: 2024-9-3 15:53
学习一下

作者: renhe2018 时间: 2024-9-4 07:00
强烈支持。赞一个。

作者: wjswzj0 时间: 2024-9-4 08:50
感谢分享，很给力！~

作者: wh1234567 时间: 2024-9-4 09:13
谢谢分享。。。。

作者: yidufan 时间: 2024-9-4 10:17
懒人必备

作者: wgqxj 时间: 2024-9-4 16:55
谢谢分享

作者: beatone 时间: 2024-9-5 02:38
感谢分享，很给力！

作者: Loyal2014 时间: 2024-9-5 08:08
强烈支持。赞一个。

作者: a990350 时间: 2024-9-5 09:08
感谢分享

作者: 深圳梦 时间: 2024-9-5 18:28
支持开源~！感谢分享

作者: futiem 时间: 2024-9-7 09:10
枚举SOFTWARE\test下的值

作者: please 时间: 2024-9-7 09:40
感谢分享，支持开源！！！

作者: dzpos 时间: 2024-9-7 15:49
感谢分享,学习看下

作者: lqylbh 时间: 2024-9-8 14:12
支持开源~！感谢分享

作者: 1623863129 时间: 2024-9-8 19:49
支持开源~！感谢分享

作者: tmtony 时间: 2024-9-10 08:01
狠心共了5个币下载了

作者: wang1366 时间: 2024-9-10 08:12

支持开源~！感谢分享

作者: 光影魔术 时间: 2024-9-11 20:24
感谢分享源码

作者: 迷迭香 时间: 2024-9-13 11:51
感谢分享，留着先有需要再狭窄

作者: koox 时间: 2024-11-11 13:23

狠心共了5个币下载了

作者: 熊不熊 时间: 2024-12-4 14:44
感谢分享，很给力！~

作者: 614025638 时间: 2024-12-4 21:38
感谢分享！！！！1

作者: beatone 时间: 2024-12-17 16:15
感谢分享，很给力！~

作者: jainghuimo 时间: 2025-2-4 23:37
牛查了11111111111111

作者: 网络注册网员 时间: 2025-3-11 22:05
感谢分享

作者: cscscscs 时间: 2025-3-12 23:24
感谢大佬

作者: XJxaiojing 时间: 2025-3-13 01:19
感谢分享，内容很实用！

作者: 312508236 时间: 2025-3-22 22:44
感谢分享，内容很实用！

作者: 我爱逛精易 时间: 2025-3-27 12:06
感谢分享

作者: aipca 时间: 2025-3-31 12:29
在64位系统下，无论系统_是否64位 ()是真还是假，写出的地址都是到64位的地址，即注册表WOW6432Node路径下，并不会写到32位，这算是BUG么？

作者: xiaowenzhi 时间: 2025-5-12 21:01
感谢分享，很给力！~

作者: antoni 时间: 2025-5-19 23:04
感谢分享，很给力！~

作者: jhwydcf 时间: 2025-5-26 18:27
感谢分享，很给力！~

作者: maming119110 时间: 2025-6-7 08:12
看看

作者: zidoo 时间: 2025-6-19 21:37
请教：这个模块能.枚举注册表键名吗？

比如：
返回串口数＝注册表.枚举键名 (“HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM”, , 键值, )

欢迎光临精易论坛 (https://125.confly.eu.org/)