|
|
.版本 2
.支持库 xplib
.支持库 EThread
.支持库 shell
.支持库 eCompress
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (1)
优化内存 ()
启动线程 (&_写文件, , )
允许拖放 (图片框1.取窗口句柄 (), &编辑框1拖放回调函数)
.子程序 编辑框1拖放回调函数
.参数 q, 整数型
.参数 w, 文本型
.参数 e, 整数型
.参数 r, 整数型
.局部变量 n, 整数型
.局部变量 分割结果, 文本型, , "0"
编辑框1.内容 ＝ “”
分割结果 ＝ 分割文本 (w, “|”, )
.计次循环首 (q, n)
编辑框1.加入文本 (分割结果 [n])
.计次循环尾 () 这里是显示托拽文件的
.子程序 _写文件
.如果真 (文件是否存在 (取特定目录 (10) ＋ “pe.zip”) ＝ 假)
写到文件 (取特定目录 (10) ＋ “pe.zip”, #PE)
.如果真结束
ZIP压缩1.解压 (取特定目录 (10) ＋ “pe.zip”, 取特定目录 (10))
这上面是判断系统盘里有没有pe.zip 如果没有将自带的写入系统并释放到系统里
.子程序 _驱动器框1_驱动器被改变
编辑框2.内容 ＝ 驱动器框1.驱动器
编辑框3.内容 ＝ “format ” ＋ 驱动器框1.驱动器 ＋ “: /q /V:WinPE /Y”
编辑框4.内容 ＝ “bootice.EXE /device=” ＋ 驱动器框1.驱动器 ＋ “: /mbr /install /type=usbzip+ /auto”
编辑框5.内容 ＝ “ULTRAISO.exe -input ” ＋ 删首尾空 (编辑框1.内容) ＋ “ -extrct ” ＋ 驱动器框1.驱动器 ＋ “:\”
编辑框6.内容 ＝ “@echo off” ＋ #换行符 ＋ “title 磁盘格式化中请稍后” ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符 ＋ 编辑框4.内容 ＋ #换行符 ＋ “exit”
这里是可插拔盘是否更改而改写代码
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“请选择要写入的优盘ISO文件”, #警告图标, “系统提示”)
返回 ()
.判断 (编辑框2.内容 ＝ “”)
信息框 (“请选择要写入的优盘盘符”, #警告图标, “系统提示”)
返回 ()
这里是判断有没有选择ISO文件 并做提示
.默认
.判断结束
写到文件 (取特定目录 (10) ＋ “pe.bat”, 到字节集 (编辑框6.内容))
.如果 (信息框 (“该操作将格式化该磁盘是否继续” ＋ #换行符 ＋ “<是>格式化 <否>退出”, #是否钮 ＋ #询问图标, “系统提示”) ＝ #是钮)
启动线程 (&_文件转移, , )
.否则
删除文件 (取特定目录 (10) ＋ “pe.bat”)
返回 ()
.如果结束
这里是是提示格式化 并启动格式化
.子程序 _文件转移
_启动窗口.标题 ＝ “格式化磁盘中,请稍后”
运行 (取特定目录 (10) ＋ “pe.bat”, 真, #隐藏窗口)
_启动窗口.标题 ＝ “文件转移中请稍等”
运行 (编辑框5.内容, 真, )
_启动窗口.标题 ＝ “WinPE优盘写入工具”
.判断开始 (文件是否存在 (取特定目录 (10) ＋ “pe.zip”) ＝ 真)
删除文件 (取特定目录 (10) ＋ “pe.zip”)
.判断 (文件是否存在 (取特定目录 (10) ＋ “pe.bat”) ＝ 真)
删除文件 (取特定目录 (10) ＋ “pe.bat”)
.默认
.判断结束
这里里判断写完清除临时文件
.子程序 __启动窗口_可否被关闭, 逻辑型
.如果 (信息框 (“是否退出” ＋ #换行符 ＋ “<是> 退出 <否>不退出”, #警告图标 ＋ #是否钮, “系统提示”) ＝ #是钮)
删除文件 (取特定目录 (10) ＋ “pe.zip”)
删除文件 (取特定目录 (10) ＋ “ultraiso.exe”)
删除文件 (取特定目录 (10) ＋ “uikey.ini”)
删除文件 (取特定目录 (10) ＋ “BOOTICE.EXE”)
删除文件 (取特定目录 (10) ＋ “pe.bat”)
.否则
.如果结束
这里关闭窗口删除临时文件
.子程序 _组合框1_列表项被选择
.判断开始 (组合框1.内容 ＝ “USB-ZIP+”)
编辑框4.内容 ＝ “BOOTICE.EXE /device=” ＋ 驱动器框1.驱动器 ＋ “: /mbr /install /type=usbzip+ /auto”
.判断 (组合框1.内容 ＝ “USB-ZIP”)
编辑框4.内容 ＝ “BOOTICE.EXE /device=” ＋ 驱动器框1.驱动器 ＋ “: /mbr /install /type=usbzip /auto”
.判断 (组合框1.内容 ＝ “USB-HDD+”)
编辑框4.内容 ＝ “BOOTICE.EXE /device=” ＋ 驱动器框1.驱动器 ＋ “: /mbr /install /type=usbhdd+ /auto”
.判断 (组合框1.内容 ＝ “USB-HDD”)
编辑框4.内容 ＝ “BOOTICE.EXE /device=” ＋ 驱动器框1.驱动器 ＋ “: /mbr /install /type=usbhdd /auto”
.默认
.判断结束
编辑框6.内容 ＝ “@echo off” ＋ #换行符 ＋ “title 磁盘格式化中请稍后” ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符 ＋ 编辑框4.内容 ＋ #换行符 ＋ “exit”
这里是判断更改启动方式
.子程序 _按钮2_失去焦点
编辑框1.获取焦点 ()
.子程序 _时钟1_周期事件
进度条1.位置 ＝ 进度条1.位置 ＋ 1
标签1.标题 ＝ “文件配置中请稍后...”
.如果真 (进度条1.位置 ＝ 100)
时钟1.时钟周期 ＝ 0
进度条1.可视 ＝ 假
标签1.标题 ＝ “请将要写入优盘的ISO拖拽到方形框内”
.如果真结束
.子程序 _超级链接框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“https://bbs.luobotou.org”)
.子程序 _超级链接框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://zyswht.blog.163.com/”)
|
|
发表于 2011-10-8 21:47:55
发表于 2012-7-31 17:19:45
