TM_MaRine_Z 进哥给你写的md5效验软件 绿色的1b就一个文件 +源码

朴善英

用E写简单的1b恩


.版本 2
.支持库 shell
.支持库 dp1

.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 文件长度, 整数型
.程序集变量 文件数据, 字节集

.子程序 _按钮1_被单击

通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)
.如果真 (通用对话框1.打开 ())
文件号 ＝ 打开文件 (通用对话框1.文件名, 1, 4)
文件长度 ＝ 取文件长度 (文件号)
.如果真结束
时钟1.时钟周期 ＝ 1


.子程序 _时钟1_周期事件

.判断开始 (是否在文件尾 (文件号, ) ＝ 假)
.判断开始 (取文件长度 (文件号) － 取读写位置 (文件号) ＜ 5242880)
文件数据 ＝ 文件数据 ＋ 读入字节集 (文件号, 取文件长度 (文件号) － 取读写位置 (文件号))
.判断 (取文件长度 (文件号) － 取读写位置 (文件号) ≥ 5242880)
文件数据 ＝ 文件数据 ＋ 读入字节集 (文件号, 5242880)
.默认

.判断结束

.默认
关闭文件 (文件号)
时钟1.时钟周期 ＝ 0
效验码 ()
.判断结束


.子程序 效验码

编辑框1.内容 ＝ 取数据摘要 (文件数据)
文件长度 ＝ 0
文件数据 ＝ { }


.子程序 模拟进度条
.参数 画板, 画板
.参数 最大位置, 整数型
.参数 当前位置, 整数型
.参数 文本到画板, 文本型
.局部变量 横变量, 双精度小数型

画板.清除 (, , , )
画板.自动重画 ＝ 真
横变量 ＝ 到数值 (当前位置 ÷ 最大位置) × 画板.宽度
画板.刷子颜色 ＝ #白色
画板.画矩形 (0, 0, 画板.宽度, 画板.高度)
画板.刷子颜色 ＝ #绿色
画板.填充矩形 (画板.画笔粗细 ＋ 1, 画板.画笔粗细 ＋ 1, 横变量 － 1, 画板.高度 － 1)
画板.定位写出 (到数值 (画板.宽度 － 画板.字体.字体大小) ÷ 2 － 取文本长度 (文本到画板), (画板.高度 － 画板.取高度 (文本到画板)) ÷ 2, 到文本 (文本到画板))

.子程序 __启动窗口_创建完毕

[ 本帖最后由 朴善英 于 2008-5-10 23:04 编辑 ]

TM_MaRine_Z

又不知道哪盗版的软件自己去壳然后添了个LOGO。

hysteria

嫖上瘾

aaafffei

。。。

朴善英

原帖由 TM_MaRine_Z 于 2008-5-10 22:35 发表
又不知道哪盗版的软件自己去壳然后添了个LOGO。

......操 MLGBD 还各应老子 给你个源码看看 你要是有E 直接CTRL+V 进你的E 编译就有了

.版本 2
.支持库 shell
.支持库 dp1

.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 文件长度, 整数型
.程序集变量 文件数据, 字节集

.子程序 _按钮1_被单击

通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)
.如果真 (通用对话框1.打开 ())
    文件号 ＝ 打开文件 (通用对话框1.文件名, 1, 4)
    文件长度 ＝ 取文件长度 (文件号)
.如果真结束
时钟1.时钟周期 ＝ 1


.子程序 _时钟1_周期事件

.判断开始 (是否在文件尾 (文件号, ) ＝ 假)
    .判断开始 (取文件长度 (文件号) － 取读写位置 (文件号) ＜ 5242880)
        文件数据 ＝ 文件数据 ＋ 读入字节集 (文件号, 取文件长度 (文件号) － 取读写位置 (文件号))
    .判断 (取文件长度 (文件号) － 取读写位置 (文件号) ≥ 5242880)
        文件数据 ＝ 文件数据 ＋ 读入字节集 (文件号, 5242880)
    .默认

    .判断结束

.默认
    关闭文件 (文件号)
    时钟1.时钟周期 ＝ 0
    效验码 ()
.判断结束


.子程序 效验码

编辑框1.内容 ＝ 取数据摘要 (文件数据)
文件长度 ＝ 0
文件数据 ＝ {  }


.子程序 模拟进度条
.参数 画板, 画板
.参数 最大位置, 整数型
.参数 当前位置, 整数型
.参数 文本到画板, 文本型
.局部变量 横变量, 双精度小数型

画板.清除 (, , , )
画板.自动重画 ＝ 真
横变量 ＝ 到数值 (当前位置 ÷ 最大位置) × 画板.宽度
画板.刷子颜色 ＝ #白色
画板.画矩形 (0, 0, 画板.宽度, 画板.高度)
画板.刷子颜色 ＝ #绿色
画板.填充矩形 (画板.画笔粗细 ＋ 1, 画板.画笔粗细 ＋ 1, 横变量 － 1, 画板.高度 － 1)
画板.定位写出 (到数值 (画板.宽度 － 画板.字体.字体大小) ÷ 2 － 取文本长度 (文本到画板), (画板.高度 － 画板.取高度 (文本到画板)) ÷ 2, 到文本 (文本到画板))

.子程序 __启动窗口_创建完毕

[ 本帖最后由 朴善英 于 2008-5-10 22:39 编辑 ]

Germany

MD5效验.rar (595.24 KB)
2008-5-10 22:34, 下载次数: 0

TM_MaRine_Z

好的高手
那你给我编一个过vS 2.0的War3全图吧，我想无敌在DOTA

朴善英

原帖由 TM_MaRine_Z 于 2008-5-10 22:40 发表
好的高手
那你给我编一个过vS 2.0的War3全图吧，我想无敌在DOTA

2000SJ要的PM老子

妈妈叫小新

wcfall

gazzterran

近来学习一下代码高手

gazzterran

不是说有源码吗？
我晕

朴善英

原帖由 gazzterran 于 2008-5-10 23:03 发表
不是说有源码吗？
我晕

看6楼

vvvxvvv

易语言= =?

小猪头

TM_MaRine_Z

我要魔兽霸主，我操尼玛LZ给我做一个。