admin管理员组

文章数量:1568357

U盘启动盘源代码

#Region ;**** 参数创建于 ACNWrapper_GUI ****

#AutoIt3Wrapper_icon=G:\U盘 + 工具\U盘 WIN7 PE启动安装工具.exe

#AutoIt3Wrapper_outfile=C:\Users\hrl\Desktop\万能U盘启动安装工具V3.exe

#AutoIt3Wrapper_Res_Comment=万能U盘启动安装工具V3.0

#AutoIt3Wrapper_Res_Description=https://www.2345/?kqq386263723

#AutoIt3Wrapper_Res_Fileversion=V3.0

#AutoIt3Wrapper_Res_LegalCopyright=没有

#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

;--------------------------------------------------------------本软件脚本编写、请在修改时保留作者信息,以下为脚本开始--------------------------------------------------------------;

#include ;变量声明。

#include ;

#include

#include

#include

#include

#include

#include

FILEINSTALL("TomasDat.exe", @TEMPDIR & "\TomasDat.exe" , 1 ) ;利用“Fileinstall”函数把文件嵌入到脚本中。

FILEINSTALL("TomasGui_01.bmp", @TEMPDIR & "\81901.tmp" , 1 ) 

FILEINSTALL("TomasGui_02.jpg", @TEMPDIR & "\81902.tmp" , 1 ) 

FILEINSTALL("TomasGui_03.bmp", @TEMPDIR & "\81903.tmp" , 1 ) 

FILEINSTALL("TomasGui_04.bmp", @TEMPDIR & "\81904.tmp" , 1 ) 

FILEINSTALL("TomasGui_05.bmp", @TEMPDIR & "\81905.tmp" , 1 ) 

FILEINSTALL("TomasGui_06.bmp", @TEMPDIR & "\81906.tmp" , 1 ) 

FILEINSTALL("TomasGui_07.bmp", @TEMPDIR & "\81907.tmp" , 1 ) 

FILEINSTALL("TomasGui_08.bmp", @TEMPDIR & "\81908.tmp" , 1 ) 

FILEINSTALL("TomasGui_09.bmp", @TEMPDIR & "\81909.tmp" , 1 ) 

FILEINSTALL("TomasGui_10.bmp", @TEMPDIR & "\81910.tmp" , 1 ) 

FILEINSTALL("TomasGui_01-1.bmp", @TEMPDIR & "\81901-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_02-1.bmp", @TEMPDIR & "\81902-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_03-1.bmp", @TEMPDIR & "\81903-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_04-1.bmp", @TEMPDIR & "\81904-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_06-1.jpg", @TEMPDIR & "\81906-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_05-1.bmp", @TEMPDIR & "\81905-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_07-1.bmp", @TEMPDIR & "\81907-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_09-1.bmp", @TEMPDIR & "\81909-1.tmp" , 1 ) 

FILEINSTALL("TomasGui_09-2.bmp", @TEMPDIR & "\81909-2.tmp" , 1 ) 

$Form1 = GUICreate("自由人制作万能U盘启动安装工具V3.0   ", 536, 375, 421, 203)

$Pic01 = GUICtrlCreatePic(@TempDir & "\81901.tmp", 0, 0, 464, 21)

GUICtrlSetTip($Pic01, "亲爱的'" & @UserName & "',欢迎使用自由人制作U盘启动安装工具。", "提示", "1", "1") ;气泡提示。

$Pic02 = GUICtrlCreatePic(@TempDir & "\81902.tmp", 464, 0, 72, 21)

$Pic03 = GUICtrlCreatePic(@TempDir & "\81909.tmp", 0, 21, 536, 202)

GUICtrlSetTip($Pic03, "亲爱的'" & @UserName & "',欢迎使用自由人制作U盘启动安装工具。", "提示", "1", "1")

$Pic04 = GUICtrlCreatePic(@TempDir & "\81910.tmp", 0, 223, 285, 121)

GUICtrlSetState(-1, $GUI_DISABLE)

$Pic05 = GUICtrlCreatePic(@TempDir & "\81903.tmp", 285, 223, 251, 51)

GUICtrlSetTip($Pic05, "在点击之前'" & @UserName & "',先备份磁盘数据,点击后请稍等一会,看到提示即成功~", "提示", "1", "1")

$Pic06 = GUICtrlCreatePic(@TempDir & "\81904.tmp", 285, 274, 152, 36)

GUICtrlSetTip($Pic06, "亲爱的'" & @UserName & "',新功能,可以升级或修复现有USB启动盘(仅限TomasUS)", "提示", "1", "1")

$Pic07 = GUICtrlCreatePic(@TempDir & "\81906.tmp", 285, 310, 152, 34)

GUICtrlSetTip($Pic07, "亲爱的'" & @UserName & "',点击即可格式化磁盘,第一次使用本软件请事先备份磁盘数据。", "提示", "1", "1")

$Pic08 = GUICtrlCreatePic(@TempDir & "\81905.tmp", 437, 274, 99, 36)

GUICtrlSetTip($Pic08, "亲爱的'" & @UserName & "',如果软件未列出你的磁盘,请刷新。", "提示", "1", "1")

$Pic09 = GUICtrlCreatePic(@TempDir & "\81907.tmp", 437, 310, 99, 34)

GUICtrlSetTip($Pic09, "你懂的!!!", "提示", "1", "1")

$Pic10 = GUICtrlCreatePic(@TempDir & "\81908.tmp", 0, 344, 536, 31)

GUICtrlSetState(-1, $GUI_DISABLE)

SoundPlay('.mid文件')

$Combo1 = GUICtrlCreateCombo("", 134, 245, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))

GUICtrlSetTip($Combo1, "亲爱的'" & @UserName & "',请在这里选择你的磁盘。", "提示", "1", "1")

$Combo2 = GUICtrlCreateCombo("", 133, 276, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))

GUICtrlSetTip($Combo2, "亲爱的'" & @UserName & "',请在这里选择制作模式。", "提示", "1", "1")

GUICtrlSetData(-1, "USB-HDD(FAT16)|USB-HDD(FAT32)|USB-ZIP(FAT16)|USB-ZIP(FAT32)|USB-ZIP(FAT16)转存PBP", "USB-HDD(FAT32)")

$Checkbox1 = GUICtrlCreateCheckbox("", 127, 312, 13, 15)

GUICtrlSetTip($Checkbox1, "亲爱的'" & @UserName & "',勾选强制CHS模式后适用于较旧的主板(BIOS)", "提示", "1", "1")

If FileExists(@ScriptDir & '\ziyouren.fba') = 0 Then ;在软件部署时检索文件是否存在。

MsgBox(4096 + 16, '提示', "        本软件缺少必要组件'ziyouren.fba'、请重新下载本软件或联系QQ:386263723寻求帮助。") ;弹窗提示。

Exit

EndIf

runUSB()

runUSB()

runUSB()

GUISetState(@SW_SHOW)

While 1

If _Hover($Form1, 0, 0, 464, 21) = 1 Then ;指定此表格此位置。

GUICtrlSetImage($Pic01,@TempDir & "\81901-1.tmp") ;光标移到此处时的图像。

Else 

GUICtrlSetImage($Pic01,@TempDir & "\81901.tmp") ;默认的图像。

EndIf

If _Hover($Form1, 464, 0, 72, 21) = 1 Then 

GUICtrlSetImage($Pic02,@TempDir & "\81902-1.tmp")

Else 

GUICtrlSetImage($Pic02,@TempDir & "\81902.tmp")

EndIf

If _Hover($Form1, 285, 223, 251, 51) = 1 Then 

GUICtrlSetImage($Pic05,@TempDir & "\81903-1.tmp")

Else 

GUICtrlSetImage($Pic05,@TempDir & "\81903.tmp")

EndIf

If _Hover($Form1, 285, 274, 152, 36) = 1 Then 

GUICtrlSetImage($Pic06,@TempDir & "\81904-1.tmp")

Else 

GUICtrlSetImage($Pic06,@TempDir & "\81904.tmp")

EndIf

If _Hover($Form1, 285, 310, 152, 34) = 1 Then 

GUICtrlSetImage($Pic07,@TempDir & "\81906-1.tmp")

Else 

GUICtrlSetImage($Pic07,@TempDir & "\81906.tmp")

EndIf

If _Hover($Form1, 437, 274, 99, 36) = 1 Then 

GUICtrlSetImage($Pic08,@TempDir & "\81905-1.tmp")

Else 

GUICtrlSetImage($Pic08,@TempDir & "\81905.tmp")

EndIf

If _Hover($Form1, 437, 310, 99, 34) = 1 Then 

GUICtrlSetImage($Pic09,@TempDir & "\81907-1.tmp")

Else 

GUICtrlSetImage($Pic09,@TempDir & "\81907.tmp")

EndIf

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE, $Pic09

FileDelete(@TempDir & "\81901.tmp") ;删除在缓冲中刚刚嵌入的文件。

FileDelete(@TempDir & "\81902.tmp")

FileDelete(@TempDir & "\81903.tmp")

FileDelete(@TempDir & "\81904.tmp")

FileDelete(@TempDir & "\81905.tmp")

FileDelete(@TempDir & "\81906.tmp")

FileDelete(@TempDir & "\81907.tmp")

FileDelete(@TempDir & "\81908.tmp")

FileDelete(@TempDir & "\81909.tmp")

FileDelete(@TempDir & "\81910.tmp")

FileDelete(@TempDir & "\81901-1.tmp")

FileDelete(@TempDir & "\81902-1.tmp")

FileDelete(@TempDir & "\81903-1.tmp")

FileDelete(@TempDir & "\81904-1.tmp")

FileDelete(@TempDir & "\81905-1.tmp")

FileDelete(@TempDir & "\81906-1.tmp")

FileDelete(@TempDir & "\81907-1.tmp")

FileDelete(@TempDir & "\81909-1.tmp")

FileDelete(@TempDir & "\81909-2.tmp")

EXIT 

Case $Pic02 ;指定"Pic02"动作。

ShellExecute("http://user.qzone.qq/386263723/main") ;利用本机默认浏览器运行网页。

Case $Pic08

GUICtrlSetState($pic01, $GUI_DISABLE) ;在执行"Pic08"的动作时"Pic01"不可执行(以下相同)。

GUICtrlSetState($pic02, $GUI_DISABLE)

GUICtrlSetState($pic05, $GUI_DISABLE)

GUICtrlSetState($pic06, $GUI_DISABLE)

GUICtrlSetState($pic07, $GUI_DISABLE)

GUICtrlSetState($pic08, $GUI_DISABLE)

GUICtrlSetState($pic09, $GUI_DISABLE)

runUSB()

runUSB()

runUSB()

GUICtrlSetState($pic01, $GUI_ENABLE) ;在"Pic08"执行完成时"Pic01"可执行(以下相同)。

GUICtrlSetState($pic02, $GUI_ENABLE)

GUICtrlSetState($pic05, $GUI_ENABLE)

GUICtrlSetState($pic06, $GUI_ENABLE)

GUICtrlSetState($pic07, $GUI_ENABLE)

GUICtrlSetState($pic08, $GUI_ENABLE)

GUICtrlSetState($pic09, $GUI_ENABLE)

Case $Pic05

GUICtrlSetImage($Pic03,@TempDir & "\81909-1.tmp") ;指定"Pic03"为"\81909-1.tmp"。

If GUICtrlRead($Combo1) <> "" Then

$HD = StringLeft(GUICtrlRead($Combo1), 5)

$MS = GUICtrlRead($Combo2)

GUICtrlSetState($pic01, $GUI_DISABLE)

GUICtrlSetState($pic02, $GUI_DISABLE)

GUICtrlSetState($pic05, $GUI_DISABLE)

GUICtrlSetState($pic06, $GUI_DISABLE)

GUICtrlSetState($pic07, $GUI_DISABLE)

GUICtrlSetState($pic08, $GUI_DISABLE)

GUICtrlSetState($pic09, $GUI_DISABLE)

Select

Case $MS == 'USB-HDD(FAT16)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE) ;256m为UD区域大小、"--force"为强制格式化分区,具体fbinst命令请百度fbinst。

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-HDD(FAT32)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --fat32 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --fat32 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-ZIP(FAT16)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-ZIP(FAT32)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat32 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat32 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-HDD(FAT16)转存PBP'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --force --align --zip --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' sync --copy-bpb --max-sectors 63', @ScriptDir, '', @SW_HIDE)

EndSelect

GUICtrlSetState($pic01, $GUI_ENABLE)

GUICtrlSetState($pic02, $GUI_ENABLE)

GUICtrlSetState($pic05, $GUI_ENABLE)

GUICtrlSetState($pic06, $GUI_ENABLE)

GUICtrlSetState($pic07, $GUI_ENABLE)

GUICtrlSetState($pic08, $GUI_ENABLE)

GUICtrlSetState($pic09, $GUI_ENABLE)

GUICtrlSetImage($Pic03,@TempDir & "\81909-2.tmp")

MsgBox(4096 + 64, '自由人温馨提示', '        U盘启动盘已制作成功、建议将磁盘设备安全弹出后再插入继续操作。')

Else

MsgBox(4096 + 16, '自由人温馨提示', '        还没有选择需要操作的磁盘设备呢!')

EndIf

Case $Pic06

GUICtrlSetImage($Pic03,@TempDir & "\81909-1.tmp")

If GUICtrlRead($Combo1) <> "" Then

$HD = StringLeft(GUICtrlRead($Combo1), 5)

$MS = GUICtrlRead($Combo2)

Select

GUICtrlSetState($pic01, $GUI_DISABLE)

GUICtrlSetState($pic02, $GUI_DISABLE)

GUICtrlSetState($pic05, $GUI_DISABLE)

GUICtrlSetState($pic06, $GUI_DISABLE)

GUICtrlSetState($pic07, $GUI_DISABLE)

GUICtrlSetState($pic08, $GUI_DISABLE)

GUICtrlSetState($pic09, $GUI_DISABLE)

Case $MS == 'USB-HDD(FAT16)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE) ;此处无"--force"即不格式化磁盘分区,技巧:升级或修复UD区域。

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-HDD(FAT32)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --fat32 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --fat32 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-ZIP(FAT16)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-ZIP(FAT32)'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat32 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat32 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

Case $MS == 'USB-HDD(FAT16)转存PBP'

If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat16 --primary 8m --chs --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

Else

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' format --extended 256m --align --zip --fat16 --primary 8m --archive "ziyouren.fba"', @ScriptDir, '', @SW_HIDE)

EndIf

ShellExecuteWait(@TempDir & '\TomasDat', $HD & ' sync --copy-bpb --max-sectors 63', @ScriptDir, '', @SW_HIDE)

EndSelect

GUICtrlSetState($pic01, $GUI_ENABLE)

GUICtrlSetState($pic02, $GUI_ENABLE)

GUICtrlSetState($pic05, $GUI_ENABLE)

GUICtrlSetState($pic06, $GUI_ENABLE)

GUICtrlSetState($pic07, $GUI_ENABLE)

GUICtrlSetState($pic08, $GUI_ENABLE)

GUICtrlSetState($pic09, $GUI_ENABLE)

GUICtrlSetImage($Pic03,@TempDir & "\81909-2.tmp")

MsgBox(4096 + 64, '自由人温馨提示', '        U盘启动盘已成功升级、建议将磁盘设备安全弹出后再插入继续操作。')

Else

MsgBox(4096 + 16, '自由人温馨提示', '        还没有选择需要操作的磁盘设备呢!')

EndIf

Case $Pic07

GUICtrlSetImage($Pic03,@TempDir & "\81909-1.tmp")

If GUICtrlRead($Combo1) <> "" Then

GUICtrlSetState($pic01, $GUI_DISABLE)

GUICtrlSetState($pic02, $GUI_DISABLE)

GUICtrlSetState($pic05, $GUI_DISABLE)

GUICtrlSetState($pic06, $GUI_DISABLE)

GUICtrlSetState($pic07, $GUI_DISABLE)

GUICtrlSetState($pic08, $GUI_DISABLE)

GUICtrlSetState($pic09, $GUI_DISABLE)

ShellExecuteWait(@TempDir & '\TomasDat', StringLeft(GUICtrlRead($Combo1), 5) & ' format --raw --force', @ScriptDir, '', @SW_HIDE)

GUICtrlSetState($pic01, $GUI_ENABLE)

GUICtrlSetState($pic02, $GUI_ENABLE)

GUICtrlSetState($pic05, $GUI_ENABLE)

GUICtrlSetState($pic06, $GUI_ENABLE)

GUICtrlSetState($pic07, $GUI_ENABLE)

GUICtrlSetState($pic08, $GUI_ENABLE)

GUICtrlSetState($pic09, $GUI_ENABLE)

GUICtrlSetImage($Pic03,@TempDir & "\81909-2.tmp")

MsgBox(4096 + 64, '提示', '        格式化完成,已成功恢复您磁盘设备的全部空间。')

Else

MsgBox(4096 + 16, '提示', '        还没有选择需要操作的磁盘设备呢!')

EndIf

Case $pic01

ShellExecute("") ;此括号内可填写需要打开的网页,不填为打开文件所在目录

EndSwitch

WEnd

Func runUSB()

If FileExists(@TempDir & '\TomasDat.exe') = 0 Then

MsgBox(4096 + 16, '提示', "        本软件缺少必要组件'TomasDat.exe'、请重新下载本软件或联系QQ:386263723寻求帮助。")

Exit

Else

$file = @TempDir & '\HD.log'

_RunDos(@TempDir & '\TomasDat --list > ' & $file)

If FileExists($file) Then

$file_tmp = FileOpen($file, 0)

While 1

$line = FileReadLine($file_tmp)

If @error = -1 Then ExitLoop

If StringLeft($line, 5) <> "(hd0)" Then

GUICtrlSetData($Combo1, $line)

EndIf

WEnd

FileClose($file_tmp)

FileDelete($file)

EndIf

EndIf

EndFunc   ;==>runUSB

Func _Hover($cH_hWin = "", $Pos_X = 0, $Pos_Y = 0, $Pos_W = 0, $Pos_H = 0) 

     $cH_Data = GUIGetCursorInfo($cH_hWin) 

;~     TrayTip($cH_Data[0] & " " & $cH_Data[1], $Pos_X & " + " & $Pos_X + $Pos_W & "     " & $Pos_Y & " + " & $Pos_Y + $Pos_H,5) 

     If Not IsArray($cH_Data) Then Return SetError(10086) 

     If $cH_Data[0] > $Pos_X And $cH_Data[0] < $Pos_X + $Pos_W And $cH_Data[1] > $Pos_Y And $cH_Data[1] < $Pos_Y + $Pos_H Then 

         Return 1 

     Else 

         Return 0 

     EndIf 

 EndFunc

 ;--------------------------------------------------------------请在您修改后同样分享您的作品源码,以上为脚本结束--------------------------------------------------------------;

本文标签: 干货源代码启动盘位置Process