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

易语言 winpe优盘写入源码

.版本 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]
查看完整版本: 易语言 winpe优盘写入源码