宋小贱 发表于 2022-1-20 15:36:41

新人学习第十一课

.版本 2
.支持库 dp1

.子程序 _按钮1_读配置_被单击
.局部变量 解密, 文本型

解密 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “123”, “配置1”, )), “2512”, 2))
编辑框1_配置1.内容 = 解密
解密 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “123”, “配置2”, )), “2512”, 2))
编辑框2_配置2.内容 = 解密
解密 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “123”, “配置3”, )), “2512”, 2))
编辑框3_配置3.内容 = 解密
解密 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “123”, “配置4”, )), “2512”, 2))
编辑框4_配置4.内容 = 解密

.子程序 _按钮2_写配置_被单击
.局部变量 加密, 文本型

加密 = 到文本 (加密数据 (到字节集 (编辑框1_配置1.内容), “2512”, 2))
写配置项 (取运行目录 () + “\配置.ini”, “123”, “配置1”, 加密)
加密 = 到文本 (加密数据 (到字节集 (编辑框2_配置2.内容), “2512”, 2))
写配置项 (取运行目录 () + “\配置.ini”, “123”, “配置2”, 加密)
加密 = 到文本 (加密数据 (到字节集 (编辑框3_配置3.内容), “2512”, 2))
写配置项 (取运行目录 () + “\配置.ini”, “123”, “配置3”, 加密)
加密 = 到文本 (加密数据 (到字节集 (编辑框4_配置4.内容), “2512”, 2))
写配置项 (取运行目录 () + “\配置.ini”, “123”, “配置4”, 加密)


页: [1]
查看完整版本: 新人学习第十一课