AutoIt 撰寫的自動更新程序，各軟體皆適用

rictirse

可自動偵測本機內的檔案大小，是否與伺服器端的檔案相同
如不相同會自動啟動更新作業，可適用各種軟體更新作業

1. #include <GUIConstants.au3>
   
2. #include <Misc.au3>
   
3. Opt ("GUIOnEventMode", 1)
   
4. 
   
5. Dim $Title = "AutoUpdata"
   
6. Dim $FilePath_Server = "http://xxxxxxxxxxx";;伺服器新檔案
   
7. Dim $FilePath_Local = "R:run.exe" ;;需要更新程式的路徑
   
8. 
   
9. _Singleton ($Title);;僅允許程式單獨執行
   
10. 
    
11. ;~ _Check();;前置檢查作業
    
12. 
    
13. GUICreate ( $Title, 280, 80)
    
14. 
    
15. GUICtrlCreateLabel ("更新進度", 10, 20)
    
16. 
    
17. $Progres = GUICtrlCreateProgress ( 70, 15, 200, 20)
    
18. GUICtrlCreateButton ("開始更新", 70, 50, 60, 20)
    
19.   GUICtrlSetOnEvent ( -1, "_Start")
    
20. GUICtrlCreateButton ( "離開", 150, 50, 60, 20)
    
21.   GUICtrlSetOnEvent ( -1, "_Exit")
    
22. 
    
23. GUISetState ()
    
24. 
    
25. While True
    
26.   Sleep (50)
    
27. WEnd
    
28. 
    
29. Func _Exit()
    
30.   Exit
    
31. EndFunc
    
32. 
    
33. Func _Start()
    
34.   $TotalSize = InetGetSize ($FilePath_Server) ;; 取得總容量
    
35.   $hDownload = InetGet ($FilePath_Server, $FilePath_Local, 1, 1) ;;開始下載
    
36. 
    
37.   Do
    
38.     Sleep (50)
    
39.     $NowDownload = InetGetInfo($hDownload, 0)
    
40. 
    
41.     $per = Int ($NowDownload/$TotalSize*100) ;;計算百分比
    
42.     $res = Int (StringLeft ( $per, 3)) ;;百分值
    
43.     GUICtrlSetData ($progres , $res) ;;下載進度
    
44. 
    
45.     TrayTip ( "正在下載更新中", "已下載 " & ($NowDownload/1024)&" kB", 1) ;;監視已下載大小
    
46. 
    
47.   Until InetGetInfo ( $hDownload, 2)
    
48. 
    
49.   GuiCtrlSetData ( $progres , 0)
    
50. 
    
51.   If $TotalSize = FileGetSize ($FilePath_Local) Then
    
52.     MsgBox ( 0, "更新完成", "檔案大小：" &Int ($TotalSize/1024)&" kB"&@CRLF&"已下載大小：" & Int ($NowDownload/1024)&" kB")
    
53.     Run($FilePath_Local) ;;執行程序
    
54.     Exit
    
55.   Else
    
56.     MsgBox ( 16, "錯誤", "更新失敗。")
    
57.   EndIf
    
58. 
    
59. EndFunc
    
60. 
    
61. Func _Check()
    
62.   $Ping = Ping ( "8.8.8.8", 500) ;;;檢查網路是否通暢
    
63. 
    
64.   If $Ping Then
    
65.     TrayTip ( "自動更新程序", "正在檢查檔案...", 2)
    
66.   Else
    
67.     MsgBox ( 16, "警告", "網路連結失敗，請稍後再嘗試。")
    
68.     Exit
    
69.   EndIf
    
70. 
    
71.   $FileSize_Server = InetGetSize ($FilePath_Server);;取得伺服器新檔案的大小
    
72.   If @error Then
    
73.     MsgBox ( 36, "警告", "無法取得伺服器訊息，")
    
74.     Exit
    
75.   EndIf
    
76. 
    
77.   $FileSize_Local = FileGetSize ("run.exe");;取得本機檔案大小
    
78.   If @error Then
    
79.     If MsgBox ( 36, "警告", "無法取得檔案資訊，是否繼續下載。") = 7 Then Exit
    
    
80.   EndIf
    
81. 
    
82.   If $FileSize_Server = $FileSize_Local Then
    
83.       MsgBox( 0, "提示", "檔案檢查完成"&@CRLF&"目前已為最新版。")
    
84.       Exit
    
85.   EndIf
    
86. EndFunc

複製代碼

bunnie

噹噹,
你利用檔案大小來判斷很不錯！
我都是寫一個ini到檔案裡面,
之後匯入到使用者電腦中,
開啟程式後,
它會自動跟server端的版本做比對..

rictirse

bunnie 發表於 2013-2-15 00:38
噹噹,
你利用檔案大小來判斷很不錯！
我都是寫一個ini到檔案裡面,

其實用MD5去判斷會更準確
只是我不太確定Server上面的是不是可以產生MD5
不然就是要先手動產生放在XML上
然後用 _MD5(@ScriptFullPath) 產生MD5 去跟 網路上的MD5做比對
這是比較複雜的方法

附上MD5 UDF

1. $sFile = @WindowsDir & "\Explorer.exe"
   
2. MsgBox (0,"", _MD5($sFile))
   
3. 
   
4. Func _MD5($sFile)
   
5.   Local Const $CALG_MD2 = 0x8001
   
6.   Local Const $CALG_MD4 = 0x8002
   
7.   Local Const $CALG_MD5 = 0x8003
   
8.   Local Const $CALG_SHA1 = 0x8004
   
9. 
   
10.   $hFile = FileOpen ($sFile, 16)
    
11.   $bData = FileRead ($hFile)
    
12.   $iLength = BinaryLen ($bData)
    
13.   FileClose($hFile)
    
14. 
    
15.   $tBuffer = DllStructCreate("byte[" & $iLength & "]")
    
16.   $pBuffer = DllStructGetPtr($tBuffer)
    
17.   DllStructSetData($tBuffer, 1, $bData)
    
18. 
    
19.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", 0, "dword*", 0)
    
20.   $tResult = DllStructCreate ("byte[" & $iResult[7] & "]")
    
21.   $pResult = DllStructGetPtr ($tResult)
    
22.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", $pResult, "dword*", $iResult[7])
    
23.   If $iResult[0] <> 0 Then Return StringTrimLeft (DllStructGetData ($tResult, 1), 2)
    
24. 
    
25.   $tBuffer = 0
    
26.   $tResult = 0
    
27. EndFunc
    

複製代碼