修正论坛上网友发的收藏夹备份助手，修正后可正常编译使用

tywolf

我虽然不用IE浏览器，但是老妈平时用IE用习惯了，我又是个整天折磨系统的“坏淫”，有好几次系统被我折磨得半死的时候，刚好老妈在玩，接着就冒出一句：“我的东西怎么又不见啦，你又搞什么啊......”。为了不让“恶梦”继续，我终于决定将老妈的IE收藏夹每天备份到我的网盘上去，于是就打算用AU3写备份脚本，可我写了一半发现在autoit的官方论坛上有别人开源的现成脚本，那我就不费事了，直接下载了测试，能用就行了。结果一测试，这个小脚本问题还不少！

下面是这个脚本的BUG列表及修正办法：
1：7Z文件的路径不对且用的是FileInstall载入的路径，导致编译失败。
   解决办法：
    1.1：将$7z变量删除，改成@ScriptDir代替。
    1.2：将所有FileInstall装载代码删除
2：INI配置文件生成位置错误，导致在用外部程序调用的时候会在调用程序的目录下生成一个多余的配置文件
   解决办法：
    2.1：修正原$ini变量$ini=StringTrimRight(@ScriptName,3)&"ini"为$ini=@ScriptDir&"\"&StringTrimRight(@ScriptName,3)&"ini"
3：在创建备份的时候没有考虑备份数据的时间问题，只精确到了分，这样导致在同一分钟备份的数据无法正确备份，而且新的备份会产生新的文件。对于收藏夹这样的备份来说，旧的备份显然是多余的，可以不予保留。
   解决办法：
    3.1：在每次备份以前先删除原来的备份目录及其备份文件，从新创建即可。
4：将编译的ICO图标直接用物理路径写死在程序里，导致因为ICO图标路径错误无法正确编译
   解决办法：
    4.1：将原来写死在程序里的ICO图标代码删除，直接用SCITE编辑器写入编译的环境变量#PRE_Icon=save.ico，这步可以通过点鼠标完成，不用和我一样手写，我只是习惯了手写比较快。
5：重复代码特别多，维护修改起来太麻烦
   解决办法：
    5.1：将所有备份的代码都做成_BackupFav函数

#region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=save.ico
#PRE_Outfile=收藏夹备份助手.exe
#PRE_Res_Comment=收藏夹备份助手
#PRE_Res_Description=收藏夹备份助手
#PRE_Res_Fileversion=2.0.0.0
#PRE_Res_LegalCopyright=Ado
#PRE_Res_File_Add=收藏夹备份助手.ini
#endregion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=E:\Downloads\Koda\收藏夹备份助手.kxf

Dim $ini, $path, $Name, $lnk
$ini = @ScriptDir & "" & StringTrimRight(@ScriptName, 3) & "ini"

Func _BackupFav($runexplorer = False)
        DirRemove($path, 1)
        DirCreate($path)
        $Name = @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & "时" & @MIN & "分" & @SEC & "秒"
        RunWait(@ScriptDir & '\7z.exe' & ' a' & ' -tzip' & ' -mx9' & ' "' & $path & '\' & $Name & '.zip"' & ' "' & @FavoritesDir & '"', @WindowsDir, @SW_HIDE)
        TrayTip("恭喜！", "收藏夹于 " & $Name & " 备份完成！", 5000)
        If $runexplorer = True Then
                Run("explorer.exe" & " " & $path)
        EndIf
EndFunc   ;==>_BackupFav


;带参数运行即自动备份
If $Cmdline[0] = 1 And $Cmdline[1] = "/b" Then
        $path = IniRead($ini, "backup", "path", "")
        If $path = "" Then
                MsgBox(16, "错误！", "配置文件错误，请重新配置！")
                Exit
        EndIf
        _BackupFav()
        Exit
EndIf

;程序配置界面
$Form1 = GUICreate("收藏夹备份助手", 425, 105, -1, -1)
$Label1 = GUICtrlCreateLabel("备份文件保存目录", 8, 16, 100, 17)
$Input1 = GUICtrlCreateInput("", 112, 12, 241, 21)
$Button1 = GUICtrlCreateButton("浏览", 360, 8, 51, 25)
$Checkbox1 = GUICtrlCreateCheckbox("开机自动备份", 8, 40, 97, 17)
$Button2 = GUICtrlCreateButton("保存设置", 134, 64, 67, 25)
$Button3 = GUICtrlCreateButton("立即备份", 224, 64, 67, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

;读取配置文件
$path = IniRead($ini, "backup", "path", "")
If FileExists($path) Then
        GUICtrlSetData($Input1, $path)
Else
        GUICtrlSetData($Input1, "")
EndIf

;检查是否存在开始菜单启动项
$lnk = @StartupCommonDir & "" & StringTrimRight(@ScriptName, 3) & "lnk"
If FileExists($lnk) Then
        GUICtrlSetState($Checkbox1, $GUI_CHECKED)
EndIf

;GUI消息循环
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $path = FileSelectFolder("选择保存目录", @ComputerName)
                        If @error <> 1 Then
                                GUICtrlSetData($Input1, $path)
                        EndIf
                Case $Button2
                        $path = GUICtrlRead($Input1)
                        If $path = "" Then
                                MsgBox(16, "错误！", "请先选择保存目录！")
                        ElseIf Not FileExists($path) Then
                                MsgBox(16, "错误！", "目标目录不存在，程序将自动创建该目录！")
                                DirCreate($path)
                        Else
                                IniWrite($ini, "backup", "path", $path)
                                If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                                        FileCreateShortcut(@ScriptFullPath, $lnk, @ScriptDir, "/b")
                                Else
                                        FileDelete($lnk)
                                EndIf
                                MsgBox(64, "恭喜！", "设置已保存！", 5)
                        EndIf
                Case $Button3
                        $path = GUICtrlRead($Input1)
                        If $path = "" Then
                                MsgBox(16, "错误！", "请先选择保存目录！")
                        ElseIf Not FileExists($path) Then
                                DirCreate($path)
                        Else
                                _BackupFav(True)
                        EndIf
        EndSwitch
WEnd

redapple2008

挺幸福的。楼主。

alice148

挺幸福的。楼主。

weeks1

有了7z.exe就完美了