|
|

楼主 |
发表于 2025-11-2 17:21:36
|
显示全部楼层
河南省许昌市
版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 子键, 文本型
.程序集变量 值名称, 文本型
.子程序 __启动窗口_创建完毕
子键 = "SOFTWARE\Gog"
值名称 = "GogID"
.子程序 _按钮_写入_被单击
.局部变量 卡密, 文本型
卡密 = 编辑框_卡密.内容
.如果 (卡密 = "")
信息框 (“请输入卡密”, 0, , )
返回 ()
.否则
.如果 (写注册项 (#现行用户, 子键 + “\” + 值名称, 卡密))
信息框 (“[成功] 卡密已写入注册表”, 0, , )
.否则
信息框 (“[错误] 写入注册表失败”, 0, , )
.如果结束
.如果结束
.子程序 _按钮_读取_被单击
.局部变量 注册表值, 文本型
注册表值 = 取文本注册项 (#现行用户, 子键 + “\” + 值名称, "")
.如果 (注册表值 ≠ "")
编辑框_显示.内容 = “当前注册表卡密: ” + 注册表值
.否则
编辑表_显示.内容 = “未找到注册表项或值”
.如果结束
.子程序 _按钮_退出_被单击
结束 () |
|