无忧启动论坛

标题: 启动盘制作工具（原创）芾1.0版源码au3 [打印本页]

作者: dsc 时间: 2025-4-21 11:06
标题: 启动盘制作工具（原创）芾1.0版源码au3
启动盘制作工具（原创）带1.0源码
网上搜索了一圈暂末找到可用的au3制盘工具源码就发一个出来吧，数据在diy文件夹中，带有ventoy与微pe，多种批量制作等等，当然也可手工置放成其它或自己的pe数据，云盘中是不定期长期更新的肯定会好用些，建议感兴趣的朋友收藏，本工具云盘链接:
https://www.123912.com/s/7ktmjv-Vjbv3?提取码：NYvZ

共享总链接:
https://www.123912.com/s/7ktmjv-Qubv3

1.0基础版源码如下（本基础版仅供新手学习叁考之用，还有很多地方需修改完善，如进度条等等，更多更好请云盘下载试用）
#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $aDisks[0][3] ; [Index, Model, SizeGB]

; 创建主界面
Local $hGUI = GUICreate("制盘工具1.0", 600, 450)
GUICtrlCreateLabel("选择目标磁盘：", 10, 10)
Global $cDiskList = GUICtrlCreateCombo("", 10, 30, 580, 20, $CBS_DROPDOWNLIST)
GUICtrlCreateLabel("分区表类型：", 10, 60)
Global $rMBR = GUICtrlCreateRadio("MBR", 100, 60, 50)
Global $rGPT = GUICtrlCreateRadio("GPT", 160, 60, 50)
GUICtrlSetState($rMBR, $GUI_CHECKED)
GUICtrlCreateLabel("启动分区大小 (GB)：", 10, 90)
Global $iBootSize = GUICtrlCreateInput("1", 100, 90, 50, 20)
GUICtrlCreateLabel("第二分区大小 (GB，留空为剩余)：", 10, 120)
Global $iPart2Size = GUICtrlCreateInput("", 200, 120, 50, 20)
GUICtrlCreateLabel("第二分区格式：", 10, 150)
Global $cPart2Format = GUICtrlCreateCombo("NTFS", 100, 150, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($cPart2Format, "FAT32|exFAT", "NTFS")
GUICtrlCreateLabel("第三分区格式：", 10, 180)
Global $cPart3Format = GUICtrlCreateCombo("NTFS", 100, 180, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($cPart3Format, "FAT32|exFAT", "NTFS")
Global $bStart = GUICtrlCreateButton("开始制作", 250, 350, 100, 30)
Global $idProgress = GUICtrlCreateProgress(10, 400, 580, 20, $PBS_SMOOTH)

; 初始化磁盘列表
RefreshDiskList()
GUISetState(@SW_SHOW)

While 1
Local $nMsg = GUIGetMsg()
Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $bStart
         StartProcess()
EndSwitch
WEnd

Func RefreshDiskList()
Local $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
Local $colDisks = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
ReDim $aDisks[0][3]
GUICtrlSetData($cDiskList, "")

For $objDisk In $colDisks
      Local $iSizeGB = Round($objDisk.Size / 1000^3)
      Local $sText = "Disk " & $objDisk.Index & ": " & StringStripWS($objDisk.Model, 2) & " (" & $iSizeGB & " GB)"
      GUICtrlSetData($cDiskList, $sText)

      ReDim $aDisks[UBound($aDisks)+1][3]
      $aDisks[UBound($aDisks)-1][0] = $objDisk.Index
      $aDisks[UBound($aDisks)-1][1] = StringStripWS($objDisk.Model, 2)
      $aDisks[UBound($aDisks)-1][2] = $iSizeGB
Next
EndFunc

Func StartProcess()
Local $sSelected = GUICtrlRead($cDiskList)
Local $iDiskIndex = -1

; 查找选择的磁盘
For $i = 0 To UBound($aDisks)-1
      If $sSelected = "Disk " & $aDisks[$i][0] & ": " & $aDisks[$i][1] & " (" & $aDisks[$i][2] & " GB)" Then
         $iDiskIndex = $aDisks[$i][0]
         ExitLoop
      EndIf
Next
If $iDiskIndex = -1 Then Return MsgBox(16, "错误", "请选择有效磁盘")

; 获取参数
Local $sPartType = (GUICtrlRead($rMBR) = $GUI_CHECKED) ? "MBR" : "GPT"
Local $iBootSizeGB = Number(GUICtrlRead($iBootSize))
Local $iPart2SizeGB = Number(GUICtrlRead($iPart2Size))
Local $sPart2Format = GUICtrlRead($cPart2Format)
Local $sPart3Format = GUICtrlRead($cPart3Format)

; 生成diskpart脚本
Local $sScript = "select disk " & $iDiskIndex & @CRLF & _
                  "clean" & @CRLF & _
                  "convert " & $sPartType & @CRLF & _
                  "create partition primary size=" & ($iBootSizeGB * 1024) & @CRLF & _
                  "format fs=fat32 label=U1 quick" & @CRLF & _
                  "assign" & @CRLF

; 第二分区
If $iPart2SizeGB > 0 Then
      $sScript &= "create partition primary size=" & ($iPart2SizeGB * 1024) & @CRLF
Else
      $sScript &= "create partition primary" & @CRLF
EndIf
$sScript &= "format fs=" & $sPart2Format & " label=U2 quick" & @CRLF & _
            "assign" & @CRLF

; 第三分区（如果有剩余空间）
If $iPart2SizeGB > 0 Then
      $sScript &= "create partition primary" & @CRLF & _
                  "format fs=" & $sPart3Format & " label=U3 quick" & @CRLF & _
                  "assign" & @CRLF
EndIf

; 保存并运行脚本
Local $sTempFile = @TempDir & "\diskpart_script.txt"
FileDelete($sTempFile)
FileWrite($sTempFile, $sScript)
RunWait('diskpart /s "' & $sTempFile & '"', "", @SW_HIDE)

; 查找分区盘符
Local $sU1Drive = FindVolume("U1")
Local $sU2Drive = FindVolume("U2")
Local $sU3Drive = FindVolume("U3")

; 复制文件
UpdateProgress(25, "正在复制启动文件...")
DirCopy(@ScriptDir & "\diy\esp", $sU1Drive & "\", 1)

UpdateProgress(50, "正在复制数据文件...")
DirCopy(@ScriptDir & "\diy\data", $sU2Drive & "\", 1)

If $sU3Drive Then
      UpdateProgress(75, "正在复制附加数据...")
      DirCopy(@ScriptDir & "\diy\data3", $sU3Drive & "\", 1)
EndIf

; 隐藏启动分区
RunWait('mountvol ' & StringLeft($sU1Drive, 2) & ' /D', "", @SW_HIDE)

UpdateProgress(100, "操作完成！")
MsgBox(64, "完成", "制盘成功完成！")
EndFunc

Func FindVolume($sLabel)
For $i = 1 To 10
      Local $aDrives = DriveGetDrive("ALL")
      If Not @error Then
         For $j = 1 To $aDrives[0]
            If DriveGetLabel($aDrives[$j]) = $sLabel Then
                  Return $aDrives[$j]
            EndIf
         Next
      EndIf
      Sleep(1000)
Next
Return SetError(1, 0, "")
EndFunc

Func UpdateProgress($iPercent, $sText)
GUICtrlSetData($idProgress, $iPercent)
WinSetTitle($hGUI, "", "制盘工具 - " & $sText)
EndFunc

作者: rengrancunzai 时间: 2025-4-21 11:44
谢谢楼主分享

作者: 欧卡洗衣 时间: 2025-4-21 11:59
感谢奉献

作者: 加加减减 时间: 2025-4-21 12:00
谢谢楼主分享

作者: 兮哩糊涂 时间: 2025-4-21 12:11
学习学习谢楼主分享！

作者: wn168cn@163.com 时间: 2025-4-21 12:21
支持原创谢谢分享

作者: jho 时间: 2025-4-21 12:32
谢谢分享

作者: jh198354 时间: 2025-4-21 12:34
感谢分享！！！

作者: hzz0518 时间: 2025-4-21 13:00
感谢大佬无私分享

作者: liangnijian 时间: 2025-4-21 13:00
谢谢分享

作者: 一代宗师 时间: 2025-4-21 13:57
支持原创。。厉害。

作者: 2013qq413958 时间: 2025-4-21 14:11
感谢分享

作者: xzst110 时间: 2025-4-21 15:04
谢楼主分享

作者: handsome_xiang 时间: 2025-4-21 15:09
谢谢分享！

作者: guong 时间: 2025-4-21 15:19
谢谢楼主分享

作者: qq1443454447 时间: 2025-4-21 15:27
感谢分享

作者: dayeye 时间: 2025-4-21 15:40
挺好的。看不懂

作者: classMain 时间: 2025-4-21 16:45
谢谢分享

作者: 小灰兔 时间: 2025-4-21 17:45
谢谢分享

作者: lxgood 时间: 2025-4-21 19:42
谢谢楼主分享

作者: win98se 时间: 2025-4-21 20:05
感谢分享

作者: liangzr1976 时间: 2025-4-21 20:24
多谢分享！

作者: kingwsl2008 时间: 2025-4-21 20:58
感谢大佬无私分享

作者: yc2428 时间: 2025-4-21 21:25
谢谢分享

作者: ebaqiang 时间: 2025-4-22 05:32
ebaqiang

作者: yqw1234 时间: 2025-4-22 07:52
感谢有你

作者: mouse723 时间: 2025-4-22 08:02
驚為天人的神作，看了讓人熱血沸騰，感謝分享。

作者: dkzzlf 时间: 2025-4-22 08:09
围观一下

作者: 86933924 时间: 2025-4-24 14:04
谢谢分享

作者: 2267981144 时间: 2025-4-24 14:32
多谢分享！

作者: tonfro 时间: 2025-4-30 21:07
感谢分享

作者: z_wd 时间: 5 天前
谢谢！

作者: fegr 时间: 前天 14:50
感谢分享

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)