易语言ACR122U读写器源码

MC梦幻亮

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_卡片连接句柄	整数型
集_读卡器句柄	整数型
验证密码	文本型
扇区0密码位置内容	文本型
扇区1密码位置内容	文本型
扇区2密码位置内容	文本型
扇区3密码位置内容	文本型
扇区4密码位置内容	文本型
扇区5密码位置内容	文本型
扇区6密码位置内容	文本型
扇区7密码位置内容	文本型
扇区8密码位置内容	文本型
扇区9密码位置内容	文本型
扇区10密码位置内容	文本型
扇区11密码位置内容	文本型
扇区12密码位置内容	文本型
扇区13密码位置内容	文本型
扇区14密码位置内容	文本型
扇区15密码位置内容	文本型
扇区0密码A记录	文本型
扇区0密码B记录	文本型
扇区1密码A记录	文本型
扇区1密码B记录	文本型
扇区2密码A记录	文本型
扇区2密码B记录	文本型
扇区3密码A记录	文本型
扇区3密码B记录	文本型
扇区4密码A记录	文本型
扇区4密码B记录	文本型
扇区5密码A记录	文本型
扇区5密码B记录	文本型
扇区6密码A记录	文本型
扇区6密码B记录	文本型
扇区7密码A记录	文本型
扇区7密码B记录	文本型
扇区8密码A记录	文本型
扇区8密码B记录	文本型
扇区9密码A记录	文本型
扇区9密码B记录	文本型
扇区10密码A记录	文本型
扇区10密码B记录	文本型
扇区11密码A记录	文本型
扇区11密码B记录	文本型
扇区12密码A记录	文本型
扇区12密码B记录	文本型
扇区13密码A记录	文本型
扇区13密码B记录	文本型
扇区14密码A记录	文本型
扇区14密码B记录	文本型
扇区15密码A记录	文本型
扇区15密码B记录	文本型
填充文本320	文本型
填充文本12F	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
集_读卡器句柄 ＝ 连接读卡器 ()
填充文本320 ＝ “00000000000000000000000000000000”
填充文本12F ＝ “FFFFFFFFFFFF”

子程序名	返回值类型	公开	备 注
_时钟_检查读卡器_周期事件

如果真 (集_读卡器句柄 ＝ 0)
_日志 (“驱动异常,程序停止运行。”)
时钟_检查读卡器.时钟周期 ＝ 0
返回 ()
如果 (检查读卡器 (集_读卡器句柄) ＝ “0”)
如果真 (标签_状态.标题 ＝ “正常”)
返回 ()
编辑框_读卡器型号.内容 ＝ 获取读卡器名称 (集_读卡器句柄)
标签_状态.标题 ＝ “正常”
标签_状态.背景颜色 ＝ #粉红

编辑框_读写状态信息.内容 ＝ “”
_日志 (检查读卡器 (集_读卡器句柄))
编辑框_读卡器型号.内容 ＝ “未连接”
标签_状态.标题 ＝ “未连接”
标签_状态.背景颜色 ＝ #红色

子程序名	返回值类型	公开	备 注
_日志			本源码来自(梦幻科技)
参数名	类 型	参考	可空	数组	备 注
文本	文本型

编辑框_读写状态信息.加入文本 (时间_格式化 (取现行时间 (), , “[hh:mm:ss]”, 真), “ >>> ”, 文本, #换行符 )

子程序名	返回值类型	公开	备 注
_按钮_连接卡片_被单击			本源码来自(梦幻科技)

编辑框_读写状态信息.内容 ＝ “”
集_卡片连接句柄 ＝ 连接卡片 (集_读卡器句柄, 编辑框_读卡器型号.内容)
灯_蜂鸣加红灯 (集_卡片连接句柄)

子程序名	返回值类型	公开	备 注
_按钮_连接卡片1_被单击

_按钮_连接卡片_被单击 ()

子程序名	返回值类型	公开	备 注
_按钮_连接卡片2_被单击

_按钮_连接卡片_被单击 ()

子程序名	返回值类型	公开	备 注
_按钮_读卡_被单击

编辑框_读写状态信息.内容 ＝ “”
如果真 (标签_状态.标题 ＝ “未连接”)
_日志 (“读卡器未连接。”)
返回 ()
集_卡片连接句柄 ＝ 连接卡片 (集_读卡器句柄, 编辑框_读卡器型号.内容)
如果真 (集_卡片连接句柄 ＝ 0)
返回 ()

如果真 (取文本长度 (编辑框_卡号.内容) ≠ 8)
_日志 (“此卡不支持此功能。”)
灯_蜂鸣加红灯 (集_卡片连接句柄)
返回 ()

如果真 (选择框_扇区0.选中 ＝ 真)
读0扇区数据 ()
如果真 (选择框_扇区1.选中 ＝ 真)
读1扇区数据 ()
如果真 (选择框_扇区2.选中 ＝ 真)
读2扇区数据 ()
如果真 (选择框_扇区3.选中 ＝ 真)
读3扇区数据 ()
如果真 (选择框_扇区4.选中 ＝ 真)
读4扇区数据 ()
如果真 (选择框_扇区5.选中 ＝ 真)
读5扇区数据 ()
如果真 (选择框_扇区6.选中 ＝ 真)
读6扇区数据 ()
如果真 (选择框_扇区7.选中 ＝ 真)
读7扇区数据 ()
如果真 (选择框_扇区8.选中 ＝ 真)
读8扇区数据 ()
如果真 (选择框_扇区9.选中 ＝ 真)
读9扇区数据 ()
如果真 (选择框_扇区10.选中 ＝ 真)
读10扇区数据 ()
如果真 (选择框_扇区11.选中 ＝ 真)
读11扇区数据 ()
如果真 (选择框_扇区12.选中 ＝ 真)
读12扇区数据 ()
如果真 (选择框_扇区13.选中 ＝ 真)
读13扇区数据 ()
如果真 (选择框_扇区14.选中 ＝ 真)
读14扇区数据 ()
如果真 (选择框_扇区15.选中 ＝ 真)
读15扇区数据 ()

灯_蜂鸣加红灯 (集_卡片连接句柄)

子程序名	返回值类型	公开	备 注
读0扇区数据

扇区0密码A记录 ＝ “”
扇区0密码B记录 ＝ “”
如果 (单选框_keyA.选中 ＝ 真)
验证密码 ＝ 编辑框_密码A扇区0.内容
验证密码 ＝ 编辑框_密码B扇区0.内容
如果真 (取文本长度 (验证密码) ≠ 12)
如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区0.背景颜色 ＝ #红色
编辑框_密码B扇区0.背景颜色 ＝ #红色
编辑框_0扇区0.内容 ＝ 填充文本320
编辑框_0扇区1.内容 ＝ 填充文本320
编辑框_0扇区2.内容 ＝ 填充文本320
_日志 (“0扇区 ==>密码长度错误。”)
返回 ()
如果 (置入密码 (集_卡片连接句柄, 验证密码, 0) ＝ 真)
如果 (密码验证块 (集_卡片连接句柄, 0, 0, 0) ＝ 真)

如果 (密码验证块 (集_卡片连接句柄, 0, 1, 1) ＝ 真)

编辑框_0扇区0.内容 ＝ 填充文本320
编辑框_0扇区1.内容 ＝ 填充文本320
编辑框_0扇区2.内容 ＝ 填充文本320
如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区0.背景颜色 ＝ #红色
编辑框_密码B扇区0.背景颜色 ＝ #红色
_日志 (“0扇区 ==>密码错误。”)
返回 ()

如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区0.背景颜色 ＝ #绿色
扇区0密码A记录 ＝ 编辑框_密码A扇区0.内容
编辑框_密码B扇区0.背景颜色 ＝ #绿色
编辑框_0扇区0.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 0)编辑框_0扇区1.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 1)
编辑框_0扇区2.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 2)
扇区0密码位置内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 3)
如果真 (扇区0密码位置内容 ≠ “”)
编辑框_控制位0.内容 ＝ 取文本中间 (扇区0密码位置内容, 13, 8)
编辑框_密码B扇区0.内容 ＝ 取文本右边 (扇区0密码位置内容, 12)
编辑框_密码B扇区0.背景颜色 ＝ #绿色
扇区0密码B记录 ＝ 编辑框_密码B扇区0.内容

_日志 (“0扇区 >>>读取成功。”)
_日志 (“0扇区 ==>置入密码错误。”)

子程序名	返回值类型	公开	备 注
读1扇区数据

扇区1密码A记录 ＝ “”
扇区1密码B记录 ＝ “”
如果 (单选框_keyA.选中 ＝ 真)
验证密码 ＝ 编辑框_密码A扇区1.内容
验证密码 ＝ 编辑框_密码B扇区1.内容
如果真 (取文本长度 (验证密码) ≠ 12)
如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区1.背景颜色 ＝ #红色
编辑框_密码B扇区1.背景颜色 ＝ #红色
编辑框_1扇区0.内容 ＝ 填充文本320
编辑框_1扇区1.内容 ＝ 填充文本320
编辑框_1扇区2.内容 ＝ 填充文本320
_日志 (“1扇区 ==>密码长度错误。”)
返回 ()
如果 (置入密码 (集_卡片连接句柄, 验证密码, 0) ＝ 真)
如果 (密码验证块 (集_卡片连接句柄, 1, 0, 0) ＝ 真)

如果 (密码验证块 (集_卡片连接句柄, 1, 1, 1) ＝ 真)

编辑框_1扇区0.内容 ＝ 填充文本320
编辑框_1扇区1.内容 ＝ 填充文本320
编辑框_1扇区2.内容 ＝ 填充文本320
如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区1.背景颜色 ＝ #红色
编辑框_密码B扇区1.背景颜色 ＝ #红色
_日志 (“1扇区 ==>密码错误。”)
返回 ()

如果 (单选框_keyA.选中 ＝ 真)
编辑框_密码A扇区1.背景颜色 ＝ #绿色
扇区1密码A记录 ＝ 编辑框_密码A扇区1.内容
编辑框_密码B扇区1.背景颜色 ＝ #绿色
扇区1密码B记录 ＝ 编辑框_密码B扇区1.内容
编辑框_1扇区0.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 0)编辑框_1扇区1.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 1)
编辑框_1扇区2.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 2)
扇区1密码位置内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 3)
如果真 (扇区1密码位置内容 ≠ “”)
编辑框_控制位1.内容 ＝ 取文本中间 (扇区1密码位置内容, 13, 8)
编辑框_密码B扇区1.内容 ＝ 取文本右边 (扇区1密码位置内容, 12)
编辑框_密码B扇区1.背景颜色 ＝ #绿色
扇区1密码B记录 ＝ 编辑框_密码B扇区1.内容

_日志 (“1扇区 >>>读取成功。”)
_日志 (“1扇区 ==>置入密码错误。”)

子程序名	返回值类型	公开	备 注
读2扇区数据

扇区2密码A记录 ＝ “”
扇区2密码B记录 ＝ “”
如果 (单选框_keyA.选中 ＝ 真)
验证密码 ＝ 编辑框_密码A扇区2.内容
验证密码 ＝ 编辑框_密码B

i支持库列表	支持库注释
edroptarget	拖放支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_卡片连接句柄, 整数型<br /> .程序集变量 集_读卡器句柄, 整数型<br /> .程序集变量 验证密码, 文本型<br /> .程序集变量 扇区0密码位置内容, 文本型<br /> .程序集变量 扇区1密码位置内容, 文本型<br /> .程序集变量 扇区2密码位置内容, 文本型<br /> .程序集变量 扇区3密码位置内容, 文本型<br /> .程序集变量 扇区4密码位置内容, 文本型<br /> .程序集变量 扇区5密码位置内容, 文本型<br /> .程序集变量 扇区6密码位置内容, 文本型<br /> .程序集变量 扇区7密码位置内容, 文本型<br /> .程序集变量 扇区8密码位置内容, 文本型<br /> .程序集变量 扇区9密码位置内容, 文本型<br /> .程序集变量 扇区10密码位置内容, 文本型<br /> .程序集变量 扇区11密码位置内容, 文本型<br /> .程序集变量 扇区12密码位置内容, 文本型<br /> .程序集变量 扇区13密码位置内容, 文本型<br /> .程序集变量 扇区14密码位置内容, 文本型<br /> .程序集变量 扇区15密码位置内容, 文本型<br /> .程序集变量 扇区0密码A记录, 文本型<br /> .程序集变量 扇区0密码B记录, 文本型<br /> .程序集变量 扇区1密码A记录, 文本型<br /> .程序集变量 扇区1密码B记录, 文本型<br /> .程序集变量 扇区2密码A记录, 文本型<br /> .程序集变量 扇区2密码B记录, 文本型<br /> .程序集变量 扇区3密码A记录, 文本型<br /> .程序集变量 扇区3密码B记录, 文本型<br /> .程序集变量 扇区4密码A记录, 文本型<br /> .程序集变量 扇区4密码B记录, 文本型<br /> .程序集变量 扇区5密码A记录, 文本型<br /> .程序集变量 扇区5密码B记录, 文本型<br /> .程序集变量 扇区6密码A记录, 文本型<br /> .程序集变量 扇区6密码B记录, 文本型<br /> .程序集变量 扇区7密码A记录, 文本型<br /> .程序集变量 扇区7密码B记录, 文本型<br /> .程序集变量 扇区8密码A记录, 文本型<br /> .程序集变量 扇区8密码B记录, 文本型<br /> .程序集变量 扇区9密码A记录, 文本型<br /> .程序集变量 扇区9密码B记录, 文本型<br /> .程序集变量 扇区10密码A记录, 文本型<br /> .程序集变量 扇区10密码B记录, 文本型<br /> .程序集变量 扇区11密码A记录, 文本型<br /> .程序集变量 扇区11密码B记录, 文本型<br /> .程序集变量 扇区12密码A记录, 文本型<br /> .程序集变量 扇区12密码B记录, 文本型<br /> .程序集变量 扇区13密码A记录, 文本型<br /> .程序集变量 扇区13密码B记录, 文本型<br /> .程序集变量 扇区14密码A记录, 文本型<br /> .程序集变量 扇区14密码B记录, 文本型<br /> .程序集变量 扇区15密码A记录, 文本型<br /> .程序集变量 扇区15密码B记录, 文本型<br /> .程序集变量 填充文本320, 文本型<br /> .程序集变量 填充文本12F, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> 集_读卡器句柄 ＝ 连接读卡器 ()<br /> 填充文本320 ＝ “00000000000000000000000000000000”<br /> 填充文本12F ＝ “FFFFFFFFFFFF”<br /> <br /> <br /> .子程序 _时钟_检查读卡器_周期事件<br /> <br /> .如果真 (集_读卡器句柄 ＝ 0)<br />     _日志 (“驱动异常,程序停止运行。”)<br />     时钟_检查读卡器.时钟周期 ＝ 0<br />     返回 ()<br /> .如果真结束<br /> .如果 (检查读卡器 (集_读卡器句柄) ＝ “0”)<br />     .如果真 (标签_状态.标题 ＝ “正常”)<br />         返回 ()<br />     .如果真结束<br />     编辑框_读卡器型号.内容 ＝ 获取读卡器名称 (集_读卡器句柄)<br />     标签_状态.标题 ＝ “正常”<br />     标签_状态.背景颜色 ＝ #粉红<br /> <br /> .否则<br />     编辑框_读写状态信息.内容 ＝ “”<br />     _日志 (检查读卡器 (集_读卡器句柄))<br />     编辑框_读卡器型号.内容 ＝ “未连接”<br />     标签_状态.标题 ＝ “未连接”<br />     标签_状态.背景颜色 ＝ #红色<br /> .如果结束<br /> <br /> <br /> <br /> <br /> .子程序 _日志, , , 本源码来自(梦幻科技)<br /> .参数 文本, 文本型<br /> <br /> 编辑框_读写状态信息.加入文本 (时间_格式化 (取现行时间 (), , “[hh:mm:ss]”, 真), “ >>> ”, 文本, #换行符)<br /> <br /> .子程序 _按钮_连接卡片_被单击, , , 本源码来自(梦幻科技)<br /> <br /> 编辑框_读写状态信息.内容 ＝ “”<br /> 集_卡片连接句柄 ＝ 连接卡片 (集_读卡器句柄, 编辑框_读卡器型号.内容)<br /> 灯_蜂鸣加红灯 (集_卡片连接句柄)<br /> <br /> .子程序 _按钮_连接卡片1_被单击<br /> <br /> _按钮_连接卡片_被单击 ()<br /> <br /> .子程序 _按钮_连接卡片2_被单击<br /> <br /> _按钮_连接卡片_被单击 ()<br /> <br /> <br /> .子程序 _按钮_读卡_被单击<br /> <br /> 编辑框_读写状态信息.内容 ＝ “”<br /> .如果真 (标签_状态.标题 ＝ “未连接”)<br />     _日志 (“读卡器未连接。”)<br />     返回 ()<br /> .如果真结束<br /> 集_卡片连接句柄 ＝ 连接卡片 (集_读卡器句柄, 编辑框_读卡器型号.内容)<br /> .如果真 (集_卡片连接句柄 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (取文本长度 (编辑框_卡号.内容) ≠ 8)<br />     _日志 (“此卡不支持此功能。”)<br />     灯_蜂鸣加红灯 (集_卡片连接句柄)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> .如果真 (选择框_扇区0.选中 ＝ 真)<br />     读0扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区1.选中 ＝ 真)<br />     读1扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区2.选中 ＝ 真)<br />     读2扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区3.选中 ＝ 真)<br />     读3扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区4.选中 ＝ 真)<br />     读4扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区5.选中 ＝ 真)<br />     读5扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区6.选中 ＝ 真)<br />     读6扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区7.选中 ＝ 真)<br />     读7扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区8.选中 ＝ 真)<br />     读8扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区9.选中 ＝ 真)<br />     读9扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区10.选中 ＝ 真)<br />     读10扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区11.选中 ＝ 真)<br />     读11扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区12.选中 ＝ 真)<br />     读12扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区13.选中 ＝ 真)<br />     读13扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区14.选中 ＝ 真)<br />     读14扇区数据 ()<br /> .如果真结束<br /> .如果真 (选择框_扇区15.选中 ＝ 真)<br />     读15扇区数据 ()<br /> .如果真结束<br /> <br /> 灯_蜂鸣加红灯 (集_卡片连接句柄)<br /> <br /> .子程序 读0扇区数据<br /> <br /> 扇区0密码A记录 ＝ “”<br /> 扇区0密码B记录 ＝ “”<br /> .如果 (单选框_keyA.选中 ＝ 真)<br />     验证密码 ＝ 编辑框_密码A扇区0.内容<br /> .否则<br />     验证密码 ＝ 编辑框_密码B扇区0.内容<br /> .如果结束<br /> .如果真 (取文本长度 (验证密码) ≠ 12)<br />     .如果 (单选框_keyA.选中 ＝ 真)<br />         编辑框_密码A扇区0.背景颜色 ＝ #红色<br />     .否则<br />         编辑框_密码B扇区0.背景颜色 ＝ #红色<br />     .如果结束<br />     编辑框_0扇区0.内容 ＝ 填充文本320<br />     编辑框_0扇区1.内容 ＝ 填充文本320<br />     编辑框_0扇区2.内容 ＝ 填充文本320<br />     _日志 (“0扇区 ==>密码长度错误。”)<br />     返回 ()<br /> .如果真结束<br /> .如果 (置入密码 (集_卡片连接句柄, 验证密码, 0) ＝ 真)<br />     .如果 (密码验证块 (集_卡片连接句柄, 0, 0, 0) ＝ 真)<br /> <br />     .否则<br />         .如果 (密码验证块 (集_卡片连接句柄, 0, 1, 1) ＝ 真)<br /> <br />         .否则<br />             编辑框_0扇区0.内容 ＝ 填充文本320<br />             编辑框_0扇区1.内容 ＝ 填充文本320<br />             编辑框_0扇区2.内容 ＝ 填充文本320<br />             .如果 (单选框_keyA.选中 ＝ 真)<br />                 编辑框_密码A扇区0.背景颜色 ＝ #红色<br />             .否则<br />                 编辑框_密码B扇区0.背景颜色 ＝ #红色<br />             .如果结束<br />             _日志 (“0扇区 ==>密码错误。”)<br />             返回 ()<br />         .如果结束<br /> <br />     .如果结束<br />     .如果 (单选框_keyA.选中 ＝ 真)<br />         编辑框_密码A扇区0.背景颜色 ＝ #绿色<br />         扇区0密码A记录 ＝ 编辑框_密码A扇区0.内容<br />     .否则<br />         编辑框_密码B扇区0.背景颜色 ＝ #绿色<br /> <br />     .如果结束<br />     编辑框_0扇区0.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 0)<br />     编辑框_0扇区1.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 1)<br />     编辑框_0扇区2.内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 2)<br />     扇区0密码位置内容 ＝ 读取块数据 (集_卡片连接句柄, 0, 3)<br />     .如果真 (扇区0密码位置内容 ≠ “”)<br />         编辑框_控制位0.内容 ＝ 取文本中间 (扇区0密码位置内容, 13, 8)<br />         编辑框_密码B扇区0.内容 ＝ 取文本右边 (扇区0密码位置内容, 12)<br />         编辑框_密码B扇区0.背景颜色 ＝ #绿色<br />         扇区0密码B记录 ＝ 编辑框_密码B扇区0.内容<br /> <br />     .如果真结束<br /> <br />     _日志 (“0扇区 >>>读取成功。”)<br /> .否则<br />     _日志 (“0扇区 ==>置入密码错误。”)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 读1扇区数据<br /> <br /> 扇区1密码A记录 ＝ “”<br /> 扇区1密码B记录 ＝ “”<br /> .如果 (单选框_keyA.选中 ＝ 真)<br />     验证密码 ＝ 编辑框_密码A扇区1.内容<br /> .否则<br />     验证密码 ＝ 编辑框_密码B扇区1.内容<br /> .如果结束<br /> .如果真 (取文本长度 (验证密码) ≠ 12)<br />     .如果 (单选框_keyA.选中 ＝ 真)<br />         编辑框_密码A扇区1.背景颜色 ＝ #红色<br />     .否则<br />         编辑框_密码B扇区1.背景颜色 ＝ #红色<br />     .如果结束<br />     编辑框_1扇区0.内容 ＝ 填充文本320<br />     编辑框_1扇区1.内容 ＝ 填充文本320<br />     编辑框_1扇区2.内容 ＝ 填充文本320<br />     _日志 (“1扇区 ==>密码长度错误。”)<br />     返回 ()<br /> .如果真结束<br /> .如果 (置入密码 (集_卡片连接句柄, 验证密码, 0) ＝ 真)<br />     .如果 (密码验证块 (集_卡片连接句柄, 1, 0, 0) ＝ 真)<br /> <br />     .否则<br />         .如果 (密码验证块 (集_卡片连接句柄, 1, 1, 1) ＝ 真)<br /> <br />         .否则<br />             编辑框_1扇区0.内容 ＝ 填充文本320<br />             编辑框_1扇区1.内容 ＝ 填充文本320<br />             编辑框_1扇区2.内容 ＝ 填充文本320<br />             .如果 (单选框_keyA.选中 ＝ 真)<br />                 编辑框_密码A扇区1.背景颜色 ＝ #红色<br />             .否则<br />                 编辑框_密码B扇区1.背景颜色 ＝ #红色<br />             .如果结束<br />             _日志 (“1扇区 ==>密码错误。”)<br />             返回 ()<br />         .如果结束<br /> <br />     .如果结束<br />     .如果 (单选框_keyA.选中 ＝ 真)<br />         编辑框_密码A扇区1.背景颜色 ＝ #绿色<br />         扇区1密码A记录 ＝ 编辑框_密码A扇区1.内容<br />     .否则<br />         编辑框_密码B扇区1.背景颜色 ＝ #绿色<br />         扇区1密码B记录 ＝ 编辑框_密码B扇区1.内容<br />     .如果结束<br />     编辑框_1扇区0.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 0)<br />     编辑框_1扇区1.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 1)<br />     编辑框_1扇区2.内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 2)<br />     扇区1密码位置内容 ＝ 读取块数据 (集_卡片连接句柄, 1, 3)<br />     .如果真 (扇区1密码位置内容 ≠ “”)<br />         编辑框_控制位1.内容 ＝ 取文本中间 (扇区1密码位置内容, 13, 8)<br />         编辑框_密码B扇区1.内容 ＝ 取文本右边 (扇区1密码位置内容, 12)<br />         编辑框_密码B扇区1.背景颜色 ＝ #绿色<br />         扇区1密码B记录 ＝ 编辑框_密码B扇区1.内容<br /> <br />     .如果真结束<br /> <br />     _日志 (“1扇区 >>>读取成功。”)<br /> .否则<br />     _日志 (“1扇区 ==>置入密码错误。”)<br /> .如果结束<br /> <br /> .子程序 读2扇区数据<br /> <br /> 扇区2密码A记录 ＝ “”<br /> 扇区2密码B记录 ＝ “”<br /> .如果 (单选框_keyA.选中 ＝ 真)<br />     验证密码 ＝ 编辑框_密码A扇区2.内容<br /> .否则<br />     验证密码 ＝ 编辑框_密码B

liutao24k

来了来了

LXFaYX

源码在哪？

MC梦幻亮

73748196 发表于 2023-10-26 11:02
源码文件分享下

我这还在修改中....

73748196

源码文件分享下

doudou1234

挖潜