设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › USB启动区 › 求帮助：au3脚本fba安装工具源码加上好友都市浪子帮我修 ...
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
返回列表 发新帖
查看: 4299|回复: 4
打印 上一主题 下一主题

[求助] 求帮助：au3脚本fba安装工具源码加上好友都市浪子帮我修改后无法安装到U盘

[复制链接]
跳转到指定楼层
1#
发表于 2011-12-2 10:11:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
#region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon=        ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile=       ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe     ;文件类型
#AutoIt3Wrapper_Compression=4                ;压缩等级
#AutoIt3Wrapper_UseUpx=y           ;使用压缩
#AutoIt3Wrapper_Res_Comment=         ;注释
#AutoIt3Wrapper_Res_Description=             ;详细信息
#AutoIt3Wrapper_Res_Fileversion=                  ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p        ;自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ziyouren         ;
#AutoIt3Wrapper_Change2CUI=N       ;修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%    ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                              ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=           ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=                      ;语法检查
;#AutoIt3Wrapper_Run_Before=             ;运行前
;#AutoIt3Wrapper_Run_After=          ;运行后
#endregion AutoIt3Wrapper 预编译参数(常用参数)
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
        
        Au3 版本:
        脚本作者:自由人：QQ ：386263723
        Email:
        QQ/TM:
        脚本版本:
        脚本功能:fba文件安装工具
        
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=i:\form1.kxf
Dim $Drive, $Var, $i, $HDD
$Drive = DriveGetDrive("REMOVABLE")
If Not @error Then
        For $i = 1 To $Drive[0]
                $Var = $Var & StringUpper($Drive[$i]) & "|"
        Next
Else
        MsgBox(0, 0, "无")
        Exit
EndIf
$Form1 = GUICreate("自由人制作U盘安装程序", 401, 405, 501, 160)
$Pic1 = GUICtrlCreatePic("I:\ziyouren.jpg", 0, 0, 400, 50)
$Group1 = GUICtrlCreateGroup("请选择要安装的磁盘", 32, 104, 345, 81)
$Combo1 = GUICtrlCreateCombo("", 56, 136, 297, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1, $Var, StringUpper($Drive[1]))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("请选择要安装的模式", 32, 208, 345, 81)
$Combo3 = GUICtrlCreateCombo("", 56, 240, 297, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($Combo3, "USB-HDD|USB-ZIP", "USB-HDD")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("安装", 32, 344, 81, 41)
$Button2 = GUICtrlCreateButton("初始化U盘", 144, 344, 113, 41)
$Button3 = GUICtrlCreateButton("退出", 288, 344, 89, 41)
$Progress1 = GUICtrlCreateProgress(32, 304, 345, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button3
                        Exit
                Case $Button2        
                        $YN = MsgBox(49, "警告", "这个操作将会把你的U盘数据全部清空!如确定将"&

"格式化U盘,按确定,否则按取消.")

                        $T0 = GUICtrlRead($Combo1)
                        $T1 = GUICtrlRead($Combo3)
                        Parser_File($T0, $T1, 1)
                Case $Combo3
                        $T0 = GUICtrlRead($Combo1)
                        $T1 = GUICtrlRead($Combo3)
                        Parser_File($T0, $T1, 0)
        EndSwitch
WEnd


Func Parser_File($a, $b, $c)
        Select
                Case $c = 1
                        If $b = "USB-HDD" Then
                                $usb = "--fat32"
                        EndIf
                        If $b = "USB-ZIP" Then
                                $usb = "--ZIP --fat16"
                        EndIf
                        $array = StringSplit($Var, "|", 1)
                        For $j = 1 To $array[0]
                                If $a = $array[$j] Then
                                        $HDD = $j
                                EndIf
                        Next
                        GUICtrlSetState($Button1, $GUI_DISABLE)
                        GUICtrlSetState($Button2, $GUI_DISABLE)
                        GUICtrlSetState($Button3, $GUI_DISABLE)
                        GUICtrlSetData($Progress1, 25)
                        install()
                        ;        GUICtrlSetData($Tip, "当前状态：正在将引导程序写入U盘中，请稍

候...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ")

format --raw --force", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 50)
                        ;        GUICtrlSetData($Tip, "当前状态：正在准备U盘PE数据和必备文件中

，请稍候...")                           ;  extended 60M  这里是UD大小，根据FBA文件自行调整
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ")

format --force" & $usb & "--primary 11M --extended 60M --align", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 75)
                        ;        GUICtrlSetData($Tip, "当前状态：正在将PE维护系统数据写入U盘中

，请稍候...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst.exe (hd" & $HDD & ")

load ziyouren.fba", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 100)
                        ;        GUICtrlSetData($Tip, "当前状态：所有任务全部完成！")
                        MsgBox(0, "提示", "U盘启动盘制作成功" & @CRLF & @CRLF & "请安全移除U盘

并重新接上")
                        GUICtrlSetState($Button1, $GUI_ENABLE)
                        GUICtrlSetState($Button2, $GUI_ENABLE)
                        GUICtrlSetState($Button3, $GUI_ENABLE)
                        DEL()
                        ;        GUICtrlSetData($Tip, "当前状态：等待用户确认设置开始制作...")
                Case $c = 0
                        $array = StringSplit($Var, "|", 1)
                        For $j = 1 To $array[0]
                                If $a = $array[$j] Then
                                        $HDD = $j
                                EndIf
                        Next
                        GUICtrlSetState($Button1, $GUI_DISABLE)
                        GUICtrlSetState($Button2, $GUI_DISABLE)
                        GUICtrlSetState($Button3, $GUI_DISABLE)
                        GUICtrlSetData($Progress1, 10)
                        install()
                        ;                GUICtrlSetData($Tip, "当前状态：正在重置U盘中，请稍候

...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst.exe (hd" & $HDD & ")

format --force --raw", @WindowsDir, @SW_HIDE)
                        Sleep(1000)
                        GUICtrlSetData($Progress1, 100)
                        MsgBox(0, "提示", "成功将U盘重置为未制作前的状态！" & @CRLF & @CRLF &

"请安全移除U盘并重新接上")
                        GUICtrlSetState($Button1, $GUI_ENABLE)
                        GUICtrlSetState($Button2, $GUI_ENABLE)
                        GUICtrlSetState($Button3, $GUI_ENABLE)
                        ;        GUICtrlSetData($Tip, "当前状态：等待用户确认设置开始制作...")
                        DEL()
        EndSelect
EndFunc   ;==>Parser_File


Func quit()
        GUISetState(@SW_HIDE)
        FileDelete(@WindowsDir & "\fbinst.exe")
        FileDelete(@WindowsDir & "\ziyouren.fba")
        Exit
EndFunc   ;==>quit
Func install()
        FileInstall("fbinst.exe", @WindowsDir & "\fbinst.exe", 1)
        FileInstall("ziyouren.fba", @WindowsDir & "\ziyouren.fba", 1)
EndFunc   ;==>install
Func DEL()
        FileDelete(@WindowsDir & "\fbinst.exe")
        FileDelete(@WindowsDir & "\ziyouren.fba")
EndFunc   ;==>DEL

[ 本帖最后由 2011ziyouren 于 2011-12-4 14:57 编辑 ]
回复

使用道具 举报

2#
发表于 2011-12-3 13:34:47 | 只看该作者
#region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon=                                                                                 ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile=                                                                        ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe                                                        ;文件类型
#AutoIt3Wrapper_Compression=4                                                                ;压缩等级
#AutoIt3Wrapper_UseUpx=y                                                                         ;使用压缩
#AutoIt3Wrapper_Res_Comment=                                                                 ;注释
#AutoIt3Wrapper_Res_Description=                                                        ;详细信息
#AutoIt3Wrapper_Res_Fileversion=                                                        ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p                                ;自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright=                                                 ;版权
#AutoIt3Wrapper_Change2CUI=N                                                   ;修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%                ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                                                   ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=                                                      ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=                                                                 ;语法检查
;#AutoIt3Wrapper_Run_Before=                                                                 ;运行前
;#AutoIt3Wrapper_Run_After=                                                                        ;运行后
#endregion AutoIt3Wrapper 预编译参数(常用参数)
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
       
        Au3 版本:
        脚本作者:
        Email:
        QQ/TM:
        脚本版本:
        脚本功能:
       
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=i:\form1.kxf
Dim $Drive, $Var, $i, $HDD
$Drive = DriveGetDrive("REMOVABLE")
If Not @error Then
        For $i = 1 To $Drive[0]
                $Var = $Var & StringUpper($Drive[$i]) & "|"
        Next
Else
        MsgBox(0, 0, "无")
        Exit
EndIf
$Form1 = GUICreate("自由人制作U盘安装程序", 401, 405, 501, 160)
$Pic1 = GUICtrlCreatePic("I:\ziyouren.jpg", 0, 0, 400, 50)
$Group1 = GUICtrlCreateGroup("请选择要安装的磁盘", 32, 104, 345, 81)
$Combo1 = GUICtrlCreateCombo("Combo1", 56, 136, 297, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1, $Var, StringUpper($Drive[1]))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("请选择要安装的模式", 32, 208, 345, 81)
$Combo3 = GUICtrlCreateCombo("Combo3", 56, 240, 297, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($Combo3, "USB-HDD|USB-ZIP", "USB-HDD")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("安装", 32, 344, 81, 41)
$Button2 = GUICtrlCreateButton("初始化U盘", 144, 344, 113, 41)
$Button3 = GUICtrlCreateButton("退出", 288, 344, 89, 41)
$Progress1 = GUICtrlCreateProgress(32, 304, 345, 25)



GUISetState(@SW_SHOW)



#endregion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button3
                        Exit
                Case $Button1
                        $T0 = GUICtrlRead($Combo1)
                        $T1 = GUICtrlRead($Combo3)
                        Parser_File($T0, $T1, 1)
                Case $Combo3
                        $T0 = GUICtrlRead($Combo1)
                        $T1 = GUICtrlRead($Combo3)
                        Parser_File($T0, $T1, 0)
        EndSwitch
WEnd


Func Parser_File($a, $b, $c)
        Select
                Case $c = 1
                        If $b = "USB-HDD" Then
                                $usb = "--fat32"
                        EndIf
                        If $b = "USB-ZIP" Then
                                $usb = "--ZIP --fat16"
                        EndIf
                        $array = StringSplit($Var, "|", 1)
                        For $j = 1 To $array[0]
                                If $a = $array[$j] Then
                                        $HDD = $j
                                EndIf
                        Next
                        GUICtrlSetState($Button1, $GUI_DISABLE)
                        GUICtrlSetState($Button2, $GUI_DISABLE)
                        GUICtrlSetState($Button3, $GUI_DISABLE)
                        GUICtrlSetData($Progress1, 25)
                        install()
                        ;        GUICtrlSetData($Tip, "当前状态：正在将引导程序写入U盘中，请稍候...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ") format --raw --force", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 50)
                        ;        GUICtrlSetData($Tip, "当前状态：正在准备U盘PE数据和必备文件中，请稍候...")                           ;  extended 60M  这里是UD大小，根据FBA文件自行调整
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ") format --force" & $usb & "--primary 11M --extended 60M --align", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 75)
                        ;        GUICtrlSetData($Tip, "当前状态：正在将PE维护系统数据写入U盘中，请稍候...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ") load *.fba", @WindowsDir, @SW_HIDE)
                        GUICtrlSetData($Progress1, 100)
                        ;        GUICtrlSetData($Tip, "当前状态：所有任务全部完成！")
                        MsgBox(0, "提示", "U盘启动盘制作成功" & @CRLF & @CRLF & "请安全移除U盘并重新接上")
                        GUICtrlSetState($Button1, $GUI_ENABLE)
                        GUICtrlSetState($Button2, $GUI_ENABLE)
                        GUICtrlSetState($Button3, $GUI_ENABLE)
                        DEL()
                        ;        GUICtrlSetData($Tip, "当前状态：等待用户确认设置开始制作...")
                Case $c = 0
                        $array = StringSplit($Var, "|", 1)
                        For $j = 1 To $array[0]
                                If $a = $array[$j] Then
                                        $HDD = $j
                                EndIf
                        Next
                        GUICtrlSetState($Button1, $GUI_DISABLE)
                        GUICtrlSetState($Button2, $GUI_DISABLE)
                        GUICtrlSetState($Button3, $GUI_DISABLE)
                        GUICtrlSetData($Progress1, 10)
                        install()
                        ;                GUICtrlSetData($Tip, "当前状态：正在重置U盘中，请稍候...")
                        RunWait('cmd.exe  /c  ' & @WindowsDir & "\fbinst (hd" & $HDD & ") format --force --raw", @WindowsDir, @SW_HIDE)
                        Sleep(1000)
                        GUICtrlSetData($Progress1, 100)
                        MsgBox(0, "提示", "成功将U盘重置为未制作前的状态！" & @CRLF & @CRLF & "请安全移除U盘并重新接上")
                        GUICtrlSetState($Button1, $GUI_ENABLE)
                        GUICtrlSetState($Button2, $GUI_ENABLE)
                        GUICtrlSetState($Button3, $GUI_ENABLE)
                        ;        GUICtrlSetData($Tip, "当前状态：等待用户确认设置开始制作...")
                        DEL()
        EndSelect
EndFunc   ;==>Parser_File


Func quit()
        GUISetState(@SW_HIDE)
        FileDelete(@WindowsDir & "\fbinst.exe")
        FileDelete(@WindowsDir & "\*.fba")
        Exit
EndFunc   ;==>quit
Func install()
        FileInstall("fbinst.exe", @WindowsDir & "\fbinst.exe", 1)
        FileInstall("*.fba", @WindowsDir & "\*.fba", 1)
EndFunc   ;==>install
Func DEL()
        FileDelete(@WindowsDir & "\fbinst.exe")
        FileDelete(@WindowsDir & "\*.fba")
EndFunc   ;==>DEL
回复

使用道具 举报

zfyczyh
3#
发表于 2011-12-4 01:58:21 | 只看该作者
谢谢2楼大大的代码....
回复

使用道具 举报

4#
 楼主| 发表于 2011-12-4 10:33:17 | 只看该作者

感谢都市浪子回答我的问题：

我把您帮我改的Au3脚本和Fbinst.exe放在一起格式化U盘后。点击安装，无法把fba文件安装到u盘里面。

[ 本帖最后由 2011ziyouren 于 2011-12-4 14:52 编辑 ]
回复

使用道具 举报

5#
发表于 2011-12-4 19:54:02 | 只看该作者
原帖由 2011ziyouren 于 2011-12-4 10:33 发表
我把您帮我改的Au3脚本和Fbinst.exe放在一起格式化U盘后。点击安装，无法把fba文件安装到u盘里面。



试试这个看 au3脚本fba安装工具源码 + 成品

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=203153&page=1&extra=
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-17 12:57

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表