|
发表于 2011-3-17 08:57:06
|
显示全部楼层
广东省东莞市
[e].版本 2
.支持库 dp1
.子程序 _按钮_增加_被单击
写配置项 (取运行目录 () + “\config.ini”, 组合框1.内容, “PASS”, 到文本 (加密数据 (到字节集 (编辑框1.内容), “123”, 2)))
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型, , "0"
.局部变量 x, 整数型
文本 = 取配置节名 (取运行目录 () + “\config.ini”)
.计次循环首 (取数组成员数 (文本), x)
组合框1.加入项目 (文本 [x], )
.计次循环尾 ()
.如果真 (读配置项 (取运行目录 () + “\config.ini”, “test”, “test”, ) ≠ “”)
组合框1.选择 (读配置项 (取运行目录 () + “\config.ini”, “test”, “test”, ))
编辑框1.内容 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\config.ini”, 组合框1.内容, “PASS”, )), “123”, 2))
.如果真结束
.子程序 _组合框1_列表项被选择
编辑框1.内容 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\config.ini”, 组合框1.内容, “PASS”, )), “123”, 2))
.子程序 __启动窗口_将被销毁
写配置项 (取运行目录 () + “\config.ini”, “test”, “test”, 组合框1.内容)[/e] |
|