.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.程序集变量 文件大小, 长整数型
.程序集变量 加载句柄, 整数型
.子程序 _按钮1_被单击
.如果 (按钮1.标题 ＝ “加载”)
通用对话框1.标题 ＝ “请选择要解密的文件”
.如果真 (通用对话框1.打开 ())
按钮1.标题 ＝ “停止”
文件名 ＝ 通用对话框1.文件名
文件大小 ＝ 取大文件尺寸 (文件名)
强制结束线程 (加载句柄)
启动线程 (&加载, , 加载句柄)
.如果真结束
.否则
强制结束线程 (加载句柄)
关闭所有文件 ()
标签2.可视 ＝ 假
标签1.标题 ＝ “停止”
按钮1.标题 ＝ “加载”
进度条1.位置 ＝ 0
.如果结束
.子程序 加载
.局部变量 file, 整数型
.局部变量 save, 整数型
.局部变量 段大小, 长整数型
.局部变量 剩余大小, 长整数型
.局部变量 当前大小, 长整数型
.局部变量 当前段, 字节集
.局部变量 总大小, 长整数型
.局部变量 读写位置, 长整数型
标签1.标题 ＝ “加载文件...”
file ＝ 打开文件 (文件名, , )
总大小 ＝ 文件大小
段大小 ＝ 1024 × 1024 × 到整数 (编辑框1.内容)
剩余大小 ＝ 总大小
当前段 ＝ 读入字节集 (file, 段大小)
str ＝ “M/” ＋ 数值到格式文本 (总大小 ÷ 1048576, 2, 假) ＋ “M——已加载” ' 1024*1024=1048576
标签1.标题 ＝ “0” ＋ str
time ＝ 取启动时间 ()
.判断循环首 (读写位置 ＜ 总大小)
time ＝ 取启动时间 ()
当前大小 ＝ 取字节集数据 (到字节集 (取字节集长度 (当前段)), #长整数型, )
进度条1.位置 ＝ (读写位置 ＋ index) × 1000 ÷ 总大小
标签1.标题 ＝ 数值到格式文本 ((读写位置 ＋ index) ÷ 1048576, 2, 假) ＋ str ' 1024*1024=1048576
time ＝ 取启动时间 ()
标签2.可视 ＝ 真
读写位置 ＝ 读写位置 ＋ 当前大小
.如果 (读写位置 ＜ 总大小)
标签2.标题 ＝ “加载下一段...”
.否则
标签2.标题 ＝ “正在完成...”
.如果结束
编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (当前段)
移动读写位置 (file, , 读写位置)
当前段 ＝ 读入字节集 (file, 段大小)
标签2.标题 ＝ “”
.判断循环尾 ()
关闭所有文件 ()
进度条1.位置 ＝ 进度条1.最大位置
文件名 ＝ “”
标签1.标题 ＝ “就绪”
按钮1.标题 ＝ “加载”
信息框 (“OK”, 0, )
.子程序 取大文件尺寸, 长整数型
.参数 _文件名, 文本型
.局部变量 局部_对象, 对象
.局部变量 局部_file对象, 对象
.局部变量 局部_长度变体, 变体型
.局部变量 局部_文件尺寸, 长整数型
局部_对象.创建 (“scripting.FileSystemObject”, )
局部_file对象 ＝ 局部_对象.对象型方法 (“GetFile”, _文件名)
局部_长度变体 ＝ 局部_file对象.读属性 (“Size”, )
局部_文件尺寸 ＝ 局部_长度变体.取数值 (0)
局部_file对象.清除 ()
局部_对象.清除 ()
返回 (局部_文件尺寸)
.子程序 __启动窗口_创建完毕
按钮1.标题 ＝ “加载”
再看不懂，我不表态
