文件名称：华亚读取工具
文件大小：17KB
文件格式：RAR
更新时间：2016-09-06 04:15:05
华亚读取工具
.版本 2 .程序集 窗口程序集1 .程序集变量 程序集_文件号, 整数型 .程序集变量 程序集_控制, 逻辑型 .程序集变量 程序集_缓存, 字节集 .程序集变量 程序集_读取位置, 整数型 .程序集变量 程序集_使用时间, 整数型 .子程序 __启动窗口_创建完毕 组合框_效验方式.加入项目 (“无效验”, 0) 组合框_效验方式.加入项目 (“奇效验”, 1) 组合框_效验方式.加入项目 (“偶效验”, 2) 组合框_效验方式.加入项目 (“标志效验”, 3) 组合框_效验方式.加入项目 (“空白效验”, 4) 组合框_效验方式.现行选中项 ＝ 2 程序集_缓存 ＝ 取空白字节集 (1028) .如果真 (文件是否存在 (取运行目录 () ＋ “\CRC32.DLL”) ＝ 假) .如果真 (写到文件 (取运行目录 () ＋ “\CRC32.DLL”, #资源_CRC) ＝ 假) 信息框 (“创建CRC32效验程序失败!”, #错误图标, ) 返回 () .如果真结束 .如果真结束 .子程序 __启动窗口_将被销毁 端口1.停止 () 关闭所有文件 () .子程序 _按钮_断开_被单击 端口1.停止 () 关闭所有文件 () 按钮_读取.禁止 ＝ 真 按钮_断开.禁止 ＝ 真 按钮_连接.禁止 ＝ 假 .子程序 _端口1_数据到达 .参数 数据字节值, 整数型 .如果真 (程序集_控制 ＝ 真) 程序集_缓存 ＝ 程序集_缓存 ＋ 到字节集 (到字节 (数据字节值)) .如果真 (取字节集长度 (程序集_缓存) ＝ 1028) .如果真 (DLL命令1 (取字节集左边 (程序集_缓存, 1024), 1024) ≠ 取字节集数据 (取字节集右边 (程序集_缓存, 4), #整数型, )) 信息框 (“无法验证”, 0, ) 返回 () .如果真结束 插入字节集 (程序集_文件号, 取字节集左边 (程序集_缓存, 1024)) 进度条1.位置 ＝ 进度条1.位置 ＋ 1 程序集_缓存 ＝ { } 程序集_读取位置 ＝ 程序集_读取位置 ＋ 4 .如果真 (程序集_读取位置 ≠ 53248) 端口1.发送数据 ({ 45, 0 } ＋ 取字节集左边 (到字节集 (程序集_读取位置), 2) ＋ { 191, 0, 4 }) 返回 () .如果真结束 信息框 (“文件输出完成！ 用时” ＋ 到文本 ((取启动时间 () － 程序集_使用时间) ＼ 1000) ＋ “秒”, #信息图标, “成功”) 连续赋值 (假, 按钮_断开.禁止, 按钮_取消.禁止, 按钮_浏览.禁止, 按钮_读取.禁止) 返回 () .如果真结束 返回 () .如果真结束 .如果真 (程序集_控制 ＝ 假 且 数据字节值 ＝ 66) 端口1.发送数据 (到字节 (99)) 端口1.发送数据 (到字节 (10)) .如果真结束 .如果真 (程序集_控制 ＝ 假 且 数据字节值 ＝ 76) 端口1.发送数据 (到字节 (99)) 端口1.发送数据 (到字节 (10)) .如果真结束 .如果真 (程序集_控制 ＝ 假 且 数据字节值 ＝ 58) 端口1.发送数据 (到字节 (117)) 端口1.发送数据 (到字节 (112)) 端口1.发送数据 (到字节 (10)) .如果真结束 .如果真 (程序集_控制 ＝ 假 且 数据字节值 ＝ 10) 端口1.发送数据 (到字节 (30)) .如果真结束 .如果真 (程序集_控制 ＝ 假 且 数据字节值 ＝ 30) 程序集_控制 ＝ 真 连续赋值 (假, 按钮_断开.禁止, 按钮_读取.禁止, 按钮_浏览.禁止, 按钮_取消.禁止) 按钮_连接.禁止 ＝ 真 .如果真结束 .子程序 _按钮_连接_被单击 .如果真 (端口1.启动 () ＝ 假) 信息框 (“串口无法打开！”, #错误图标, “端口错误”) 返回 () .如果真结束 连续赋值 (真, 按钮_连接.禁止, 按钮_读取.禁止) 连续赋值 (假, 按钮_断开.禁止, 按钮_取消.禁止) .子程序 _按钮_取消_被单击 结束 () .子程序 _按钮_读取_被单击 .如果真 (编辑框_文件名.内容 ＝ “”) 信息框 (“请选择文件路径以及文件名！”, #错误图标, “选择文件”) 返回 () .如果真结束 程序集_文件号 ＝ 打开文件 (编辑框_文件名.内容, #重写, ) .如果真 (程序集_文件号 ＝ 0) 信息框 (“创建文件失败！”, #错误图标, ) 返回 ()
【文件预览】：
华亚读取工具.e