易语言 winpe优盘写入源码

小萝卜头 发表于 2011-10-8 21:47:55

.版本 2
.支持库 xplib
.支持库 EThread
.支持库 shell
.支持库 eCompress
.支持库 eAPI
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (1)
优化内存 ()
启动线程 (&_写文件, , )
允许拖放 (图片框1.取窗口句柄 (), &编辑框1拖放回调函数)
.子程序编辑框1拖放回调函数
.参数 q, 整数型
.参数 w, 文本型
.参数 e, 整数型
.参数 r, 整数型
.局部变量 n, 整数型
.局部变量分割结果, 文本型, , "0"
编辑框1.内容＝ “”
分割结果＝分割文本 (w, “|”, )
.计次循环首 (q, n)
编辑框1.加入文本 (分割结果 )
.计次循环尾 ()                                                                                                    这里是显示托拽文件的

.子程序 _写文件
.如果真 (文件是否存在 (取特定目录 (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_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
打开指定网址 (“http://bbs.luobotou.org”)

.子程序 _超级链接框2_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
打开指定网址 (“http://zyswht.blog.163.com/”)

杏阳发表于 2012-7-26 22:07:01

呼呼{:39:}

nkc3g4 发表于 2012-7-31 17:19:45

杏阳发表于 2012-7-26 22:07 static/image/common/back.gif
呼呼

看到这代码什么感受？

杏阳发表于 2012-7-31 17:37:14

admin 发表于 2012-7-31 17:19 static/image/common/back.gif
看到这代码什么感受？

还好，哈哈

nkc3g4 发表于 2013-5-19 18:45:52

要继续研究易语言。。国家的希望啊。。

页: [1]

萝卜头IT论坛's Archiver

易语言 winpe优盘写入源码