AU3源码,写仿YLMF的一键还原界面

2022-04-13 07:40:03 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《AU3源码,写仿YLMF的一键还原界面》，欢迎阅读！
一键,还原,源码,界面,YLMF

AU3源码,写仿YLMF的一键还原界面.txt其实全世界最幸福的童话，不过是一起度过柴米油盐的岁月。一个人愿意等待，另一个人才愿意出现。感情有时候只是一个人的事，和任何人无关。爱，或者不爱，只能自行了断。#Region ;**** 参数创建于 AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=LOGO\biosclub.ico #AutoIt3Wrapper_outfile=e:\onekey.exe

#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI **** #include

#Region ### START Koda GUI section ### Form=e:\脚本\au3\gui\onekey.kxf Global $sysinfo1, $sysinfo2 $sysinfo1 = True

$AForm1 = GUICreate("onekey 一键备份还原", 351, 200, -1, -1,$WS_SIZEBOX+$WS_SYSMENU) $varhd = "C:" $getlist = "C:"

$Group1 = GUICtrlCreateGroup("", 7, 0, 337, 132)

$Group2 = GUICtrlCreateGroup("Ghost 操作：", 13, 13, 147, 47) $bf = GUICtrlCreateRadio("备分", 29, 30, 55, 17) $hy = GUICtrlCreateRadio("还原", 94, 31, 49, 17) GUICtrlCreateGroup("", -99, -99, 1, 1)

$bfhy = GUICtrlCreateGroup("备份分区：", 165, 13, 172, 60) $Label1 = GUICtrlCreateLabel("C:盘总体容量：" & Round(DriveSpaceTotal("c:")) & "M", 186, 34, 141, 17, $WS_DISABLED)

;$Label1 = GUICtrlCreateLabel("", 186, 34, 141, 17,$WS_DISABLED) $Label2 = GUICtrlCreateLabel("", 186, 52, 141, 17, $WS_DISABLED)

$List1 = GUICtrlCreateCombo($varhd, 225, 11, 39, 20,$CBS_DROPDOWNLIST) GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group4 = GUICtrlCreateGroup("Ghost 镜像文件路径：", 14, 72, 324, 51) Global $sTmpFile = 'G:\Ghost\C_WinXP.GHO'

Global $hFile = GUICtrlCreateInput("G:\Ghost\C_WinXP.GHO", 21, 90, 241, 21) GUICtrlSetState(-1, $GUI_DROPACCEPTED)

Global $hFileSel1 = GUICtrlCreateButton("保存(S)", 268, 89, 65, 22) $advbt = GUICtrlCreateButton("高级(&A)", 24, 139, 65, 23) $Button3 = GUICtrlCreateButton("撤销(&S)", 106, 139, 65, 23) $Button4 = GUICtrlCreateButton("确定(&O)", 187, 139, 65, 23)

$cancelbutton = GUICtrlCreateButton("退出(&X)", 269, 139, 65, 23) GUICtrlSetState($hy, $GUI_CHECKED) GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ### $var = DriveGetDrive("FIXED") If Not @error Then For $i = 1 To $var[0]

$varhd = GUICtrlSetData($List1, StringUpper($var[$i])) $lasthd = StringUpper($var[0])

$lastdrv = StringUpper($var[$lasthd])

Next EndIf While 1

$Msg = GUIGetMsg() Select

Case $Msg = $cancelbutton Or $Msg = $GUI_EVENT_CLOSE ExitLoop

Case $Msg = $hy $sysinfo1 = True $sysinfo2 = False $bfhyt = "还原分区："

GUICtrlSetData($bfhy, $bfhyt)

GUICtrlSetData($hFileSel1, "打开(&O)") ControlDisable("", "", $Button4) ControlHide("", "", $Label2)

GUICtrlSetData($Label1, $getlist & "盘总体容量：" & Round(DriveSpaceTotal($getlist)) & "M") Case $Msg = $bf $sysinfo2 = True $sysinfo1 = False $bfhyt = "备份分区："

GUICtrlSetData($bfhy, $bfhyt)

GUICtrlSetData($hFileSel1, "保存(&S)") ControlEnable("", "", $Button4) ControlEnable("", "", $Button3) ControlShow("", "", $Label2)

GUICtrlSetData($Label1, $getlist & "盘已用空间：" & (Round(DriveSpaceTotal($getlist)) - Round(DriveSpaceFree($getlist))) & "M")

GUICtrlSetData($Label2, $lastdrv & "盘可用空间：" & Round(DriveSpaceFree($lastdrv)) & "M") Case $Msg = $hFileSel1

If $bfhyt = "还原分区：" Then Global $sTmpFile = FileOpenDialog("Select file:", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "(*.gho;)") If @error Then ContinueLoop

GUICtrlSetData($hFile, $sTmpFile) Else

Global $sTmpFile = FileSaveDialog("Select file:", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "(*.gho;)") If @error Then ContinueLoop

GUICtrlSetData($hFile, $sTmpFile) EndIf

Case $Msg = $List1

;If BitAnd(GUICtrlRead($hy), $GUI_DEFBUTTON) Then

If $sysinfo1 = True Then

$getlist = GUICtrlRead($List1)

GUICtrlSetData($Label1, $getlist & "盘总体容量：" (Round(DriveSpaceTotal($getlist))) & "M") Else

GUICtrlSetData($Label1, $getlist & "盘已用空间：" (Round(DriveSpaceTotal($getlist)) - Round(DriveSpaceFree($getlist))) & "M") EndIf

If $sysinfo2 = True Then

$getlist = GUICtrlRead($List1)

GUICtrlSetData($Label1, $getlist & "盘已用空间：" (Round(DriveSpaceTotal($getlist)) - Round(DriveSpaceFree($getlist))) & "M") Else

GUICtrlSetData($Label1, $getlist & "盘总体容量：" (Round(DriveSpaceTotal($getlist))) & "M") EndIf

Case $Msg = $advbt

GUICtrlSetData($advbt, "简洁(&S)")

;### Tidy Error -> "wend" is closing previous "case" EndSelect WEnd

&

&

&

&

本文来源：https://www.dywdw.cn/ce885b0b1a2e453610661ed9ad51f01dc2815789.html