本帖最后由 ac5474012 于 2024-11-8 14:44 编辑
写好了 分享一下啦
按照名称编译成exe文件后,运行巡查程序就能将桌面所有文件备份到U盘了
U盘备份.exe
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Outfile=Z:\同步\工作\AU3\项目\U盘备份桌面\U盘备份.exe
#PRE_Compression=4
#PRE_Res_Fileversion=0.0.0.4
#PRE_Res_Fileversion_AutoIncrement=p
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region ACN预处理程序参数(常用参数)
;#PRE_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#PRE_Run_Tidy= ;脚本整理
;#PRE_Run_Obfuscator= ;代码迷惑
;#PRE_Run_AU3Check= ;语法检查
;#PRE_Run_Before= ;运行前
;#PRE_Run_After= ;运行后
;#PRE_UseX64=n ;使用64位解释器
;#PRE_Compile_Both ;进行双平台编译
#EndRegion ACN预处理程序参数设置完成
#cs ____________________________________
Au3 版本:
脚本作者:
电子邮件:
QQ/TM:
脚本版本:
脚本功能:
#ce _______________脚本开始_________________
;检测目标磁盘
Sleep(500)
$pan=panfufanhui()
If $pan = "0" Then
;~ MsgBox(0,"6",$pan)
Else
FindAllFile(@DesktopDir,$pan)
EndIf
Func panfufanhui()
Local $var = IniReadSection("config.ini", "panfu")
If @error Then
MsgBox(4096, "", "错误, 读取INI文件失败.")
Else
For $i = 1 To $var[0][0]
;~ MsgBox(4096, "", "关键字: " & $var[$i][0] & @CRLF & "值: " & $var[$i][1])
$panfu=$var[$i][0]
Local $var1 = IniRead($panfu&":\请勿删除复制此文件夹\请勿删除复制此文件.in", "miyao", "fuzhi","NotFound")
If $var1 = "y" Then
巡查程序.exe#Region ACN预处理程序参数(常用参数)
#PRE_Icon= ;图标,支持EXE,DLL,ICO
#PRE_OutFile= ;输出文件名
#PRE_OutFile_Type=exe ;文件类型
#PRE_Compression=4 ;压缩等级
#PRE_UseUpx=y ;使用压缩
#PRE_Res_Comment= ;程序注释
#PRE_Res_Description= ;详细信息
#PRE_Res_Fileversion= ;文件版本
#PRE_Res_FileVersion_AutoIncrement=p ;自动更新版本
#PRE_Res_LegalCopyright= ;版权
#PRE_Change2CUI=N ;修改输出的程序为CUI(控制台程序)
;#PRE_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#PRE_Run_Tidy= ;脚本整理
;#PRE_Run_Obfuscator= ;代码迷惑
;#PRE_Run_AU3Check= ;语法检查
;#PRE_Run_Before= ;运行前
;#PRE_Run_After= ;运行后
;#PRE_UseX64=n ;使用64位解释器
;#PRE_Compile_Both ;进行双平台编译
#EndRegion ACN预处理程序参数设置完成
#cs ____________________________________
Au3 版本:
脚本作者:
电子邮件:
QQ/TM:
脚本版本:
脚本功能:
#ce _______________脚本开始_________________
While 1
Sleep(10000)
$pan=panfufanhui()
If $pan = "0" Then
;~ MsgBox(0,"6",$pan)
Else
RunWait("U盘备份.exe")
MsgBox(0,"备份完成","请卸载拔出U盘后再点击确定即可")
EndIf
WEnd
Func panfufanhui()
Local $var = IniReadSection("config.ini", "panfu")
If @error Then
MsgBox(4096, "", "错误, 读取INI文件失败.")
Else
For $i = 1 To $var[0][0]
;~ MsgBox(4096, "", "关键字: " & $var[$i][0] & @CRLF & "值: " & $var[$i][1])
$panfu=$var[$i][0]
Local $var1 = IniRead($panfu&":\请勿删除复制此文件夹\请勿删除复制此文件.in", "miyao", "fuzhi","NotFound")
If $var1 = "y" Then
;~ MsgBox(4096, "结果"&$panfu, $var1)
Return ($panfu)
EndIf
Next
EndIf
EndFunc
|