|
.版本 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/”)
|
|