AutoIt 自動更新 任何軟體皆適用 加入MD5辨識 影片教學

rictirse

基於上一版大家給的建議，這邊噹噹稍作修改
可以比對MD5，新版本辨識更加準確
順便撰寫了一個檔案產生器，方便大量傳檔

下載器內部的子控數量會隨著檔案數量而變化
如果你檔案在aspx內只有一筆那在更新器也只會看到一筆資料
防止錯誤下載

這邊有使用教學影片歡迎跟噹噹來來研究


自動更新辨識器

1. #include <IE.au3>
   
2. #include <Array.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. 
   
5. Dim $DirPath = @ScriptDir&"Download"
   
6. 
   
7. $oIE = _IECreate( "http://myweb.hinet.net/home19/leojackey/Update.aspx", 1, 0, 1)
   
8. $sText = _IEBodyReadText($oIE)
   
9. _IEQuit ($oIE)
   
10. 
    
11. $Line = StringSplit ( $sText, @LF, 2)
    
12. Global $Array[UBound($Line)][3]
    
13. Global $Local_MD5[UBound($Line)]
    
14. Global $Download[UBound($Line)]
    
15. 
    
16. For $i = 0 To (UBound($Line)-1)
    
17.   $Split = StringSplit ( $Line[$i], @TAB, 2)
    
18.   $Array[$i][0] = $Split[0]
    
19.   $Array[$i][1] = $Split[1]
    
20.   $Array[$i][2] = $Split[2]
    
21. Next
    
22. 
    
23. GUICreate ( "Auto Update", 710, 40+($i*40))
    
24. 
    
25. GUICtrlCreateLabel ( "更新進度", 10, 13)
    
26. 
    
27. $Progres = GUICtrlCreateProgress ( 70, 10, 628, 20)
    
28. 
    
29. For $i = 0 To (UBound($Line)-1)
    
30.   GUICtrlCreateLabel ( "軟體名稱："&$Array[$i][1], 10, 37+($i*40), 290, 40)
    
31.     GUICtrlSetFont( -1, 18, 800)
    
32. 
    
33.   GUICtrlCreateLabel ( "Server MD5："&$Array[$i][2], 310, 40+($i*40), 300)
    
34. 
    
35.   $Local_MD5[$i] = GUICtrlCreateLabel ( "Local MD5："&$Array[$i][2], 310, 55+($i*40), 300)
    
36. 
    
37.   $Download[$i] = GUICtrlCreateButton ( "下載", 650, 42+($i*40), 50, 25)
    
38.     GUICtrlSetState  ( -1, $GUI_DISABLE)
    
39. Next
    
40. 
    
41. _CheckMD5()
    
42. 
    
43. GUISetState()
    
44. 
    
45. While True
    
46.   $msg = GUIGetMsg()
    
47.   For $i = 0 To (UBound($Line)-1)
    
48.     If $msg = $Download[$i] Then
    
49.       _Download ( $Array[$i][0], $DirPath&""&$Array[$i][1])
    
50.       GUICtrlSetState  ( $Download[$i], $GUI_DISABLE)
    
51.     EndIf
    
52.   Next
    
53. 
    
54.   If $msg = $GUI_EVENT_CLOSE Then Exit
    
55. WEnd
    
56. 
    
57. Func _Download ( $FilePath_Server, $FilePath_Local)
    
58.   $TotalSize = InetGetSize ($FilePath_Server) ;; 取得總容量
    
59.   $hDownload = InetGet ($FilePath_Server, $FilePath_Local, 1, 1) ;;開始下載
    
60. 
    
61.   Do
    
62.     Sleep (50)
    
63.     $NowDownload = InetGetInfo($hDownload, 0)
    
64. 
    
65.     $per = Int ($NowDownload/$TotalSize*100) ;;計算百分比
    
66.     $res = Int (StringLeft ( $per, 3)) ;;百分值
    
67.     GUICtrlSetData ($progres , $res) ;;下載進度
    
68. 
    
69.     TrayTip ( "正在下載更新中", "已下載 " & Int ($NowDownload/1024)&" kB", 1) ;;監視已下載大小
    
    
70. 
    
71.   Until InetGetInfo ( $hDownload, 2)
    
72. 
    
73.   GuiCtrlSetData ( $progres , 0)
    
74. 
    
75.   If $TotalSize = FileGetSize ($FilePath_Local) Then
    
76. ;~     MsgBox ( 0, "更新完成", "檔案大小：" &Int ($TotalSize/1024)&" kB"&@CRLF&"已下載大小：" & Int ($NowDownload/1024)&" kB")
    
77.     Run($FilePath_Local) ;;執行程序
    
78.   Else
    
79.     MsgBox ( 16, "錯誤", "更新失敗。")
    
80.   EndIf
    
81. 
    
82. EndFunc
    
83. 
    
84. Func _CheckMD5()
    
85.   Local $MD5
    
86. 
    
87.   For $i = 0 To (UBound($Line)-1)
    
88.     If FileExists ($DirPath&""&$Array[$i][1]) Then
    
89.       $MD5 = _MD5($DirPath&""&$Array[$i][1])
    
90.       GUICtrlSetData ( $Local_MD5[$i], "Local MD5："&$MD5)
    
91.       If $MD5 = $Array[$i][2] Then GUICtrlSetState  ( $Download[$i], $GUI_DISABLE)
    
92.     Else
    
93.       GUICtrlSetData ( $Local_MD5[$i], "Local MD5：未發現")
    
94.         GUICtrlSetState  ( $Download[$i], $GUI_ENABLE)
    
95.     EndIf
    
96.   Next
    
97. EndFunc
    
98. 
    
99. Func _MD5($sFile)
    
100.   Local Const $CALG_MD2 = 0x8001
     
101.   Local Const $CALG_MD4 = 0x8002
     
102.   Local Const $CALG_MD5 = 0x8003
     
103.   Local Const $CALG_SHA1 = 0x8004
     
104. 
     
105.   $hFile = FileOpen ($sFile, 16)
     
106.   $bData = FileRead ($hFile)
     
107.   $iLength = BinaryLen ($bData)
     
108.   FileClose($hFile)
     
     
109. 
     
110.   $tBuffer = DllStructCreate("byte[" & $iLength & "]")
     
111.   $pBuffer = DllStructGetPtr($tBuffer)
     
112.   DllStructSetData($tBuffer, 1, $bData)
     
113. 
     
114.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", 0, "dword*", 0)
     
115.   $tResult = DllStructCreate ("byte[" & $iResult[7] & "]")
     
116.   $pResult = DllStructGetPtr ($tResult)
     
117.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", $pResult, "dword*", $iResult[7])
     
118.   If $iResult[0] <> 0 Then Return StringTrimLeft (DllStructGetData ($tResult, 1), 2)
     
119. 
     
120.   $tBuffer = 0
     
121.   $tResult = 0
     
122. EndFunc

複製代碼

aspx 產生器

1. #include <IE.au3>
   
2. #include <Array.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. 
   
5. Dim $DirPath = @ScriptDir&"Download"
   
6. 
   
7. $oIE = _IECreate( "http://myweb.hinet.net/home19/leojackey/Update.aspx", 1, 0, 1)
   
8. $sText = _IEBodyReadText($oIE)
   
9. _IEQuit ($oIE)
   
10. 
    
11. $Line = StringSplit ( $sText, @LF, 2)
    
12. Global $Array[UBound($Line)][3]
    
13. Global $Local_MD5[UBound($Line)]
    
14. Global $Download[UBound($Line)]
    
15. 
    
16. For $i = 0 To (UBound($Line)-1)
    
    
17.   $Split = StringSplit ( $Line[$i], @TAB, 2)
    
18.   $Array[$i][0] = $Split[0]
    
19.   $Array[$i][1] = $Split[1]
    
20.   $Array[$i][2] = $Split[2]
    
21. Next
    
22. 
    
23. GUICreate ( "Auto Update", 710, 40+($i*40))
    
24. 
    
25. GUICtrlCreateLabel ( "更新進度", 10, 13)
    
26. 
    
27. $Progres = GUICtrlCreateProgress ( 70, 10, 628, 20)
    
28. 
    
29. For $i = 0 To (UBound($Line)-1)
    
30.   GUICtrlCreateLabel ( "軟體名稱："&$Array[$i][1], 10, 37+($i*40), 290, 40)
    
31.     GUICtrlSetFont( -1, 18, 800)
    
32. 
    
33.   GUICtrlCreateLabel ( "Server MD5："&$Array[$i][2], 310, 40+($i*40), 300)
    
34. 
    
35.   $Local_MD5[$i] = GUICtrlCreateLabel ( "Local MD5："&$Array[$i][2], 310, 55+($i*40), 300)
    
36. 
    
37.   $Download[$i] = GUICtrlCreateButton ( "下載", 650, 42+($i*40), 50, 25)
    
38.     GUICtrlSetState  ( -1, $GUI_DISABLE)
    
39. Next
    
40. 
    
41. _CheckMD5()
    
42. 
    
43. GUISetState()
    
44. 
    
45. While True
    
46.   $msg = GUIGetMsg()
    
47.   For $i = 0 To (UBound($Line)-1)
    
48.     If $msg = $Download[$i] Then
    
49.       _Download ( $Array[$i][0], $DirPath&""&$Array[$i][1])
    
50.       GUICtrlSetState  ( $Download[$i], $GUI_DISABLE)
    
51.     EndIf
    
52.   Next
    
53. 
    
54.   If $msg = $GUI_EVENT_CLOSE Then Exit
    
55. WEnd
    
56. 
    
57. Func _Download ( $FilePath_Server, $FilePath_Local)
    
58.   $TotalSize = InetGetSize ($FilePath_Server) ;; 取得總容量
    
59.   $hDownload = InetGet ($FilePath_Server, $FilePath_Local, 1, 1) ;;開始下載
    
60. 
    
61.   Do
    
    
62.     Sleep (50)
    
63.     $NowDownload = InetGetInfo($hDownload, 0)
    
64. 
    
65.     $per = Int ($NowDownload/$TotalSize*100) ;;計算百分比
    
66.     $res = Int (StringLeft ( $per, 3)) ;;百分值
    
67.     GUICtrlSetData ($progres , $res) ;;下載進度
    
68. 
    
69.     TrayTip ( "正在下載更新中", "已下載 " & Int ($NowDownload/1024)&" kB", 1) ;;監視已下載大小
    
70. 
    
71.   Until InetGetInfo ( $hDownload, 2)
    
72. 
    
73.   GuiCtrlSetData ( $progres , 0)
    
74. 
    
75.   If $TotalSize = FileGetSize ($FilePath_Local) Then
    
76. ;~     MsgBox ( 0, "更新完成", "檔案大小：" &Int ($TotalSize/1024)&" kB"&@CRLF&"已下載大小：" & Int ($NowDownload/1024)&" kB")
    
77.     Run($FilePath_Local) ;;執行程序
    
78.   Else
    
79.     MsgBox ( 16, "錯誤", "更新失敗。")
    
80.   EndIf
    
81. 
    
82. EndFunc
    
83. 
    
84. Func _CheckMD5()
    
85.   Local $MD5
    
86. 
    
87.   For $i = 0 To (UBound($Line)-1)
    
88.     If FileExists ($DirPath&""&$Array[$i][1]) Then
    
89.       $MD5 = _MD5($DirPath&""&$Array[$i][1])
    
90.       GUICtrlSetData ( $Local_MD5[$i], "Local MD5："&$MD5)
    
91.       If $MD5 = $Array[$i][2] Then GUICtrlSetState  ( $Download[$i], $GUI_DISABLE)
    
92.     Else
    
93.       GUICtrlSetData ( $Local_MD5[$i], "Local MD5：未發現")
    
94.         GUICtrlSetState  ( $Download[$i], $GUI_ENABLE)
    
95.     EndIf
    
96.   Next
    
97. EndFunc
    
98. 
    
99. Func _MD5($sFile)
    
100.   Local Const $CALG_MD2 = 0x8001
     
101.   Local Const $CALG_MD4 = 0x8002
     
102.   Local Const $CALG_MD5 = 0x8003
     
103.   Local Const $CALG_SHA1 = 0x8004
     
104. 
     
105.   $hFile = FileOpen ($sFile, 16)
     
106.   $bData = FileRead ($hFile)
     
107.   $iLength = BinaryLen ($bData)
     
108.   FileClose($hFile)
     
109. 
     
110.   $tBuffer = DllStructCreate("byte[" & $iLength & "]")
     
111.   $pBuffer = DllStructGetPtr($tBuffer)
     
112.   DllStructSetData($tBuffer, 1, $bData)
     
113. 
     
114.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", 0, "dword*", 0)
     
115.   $tResult = DllStructCreate ("byte[" & $iResult[7] & "]")
     
116.   $pResult = DllStructGetPtr ($tResult)
     
117.   $iResult = DllCall ("Crypt32.dll", "int", "CryptHashCertificate", "hWnd", 0, "dword", $CALG_MD5, "dword", 0, "ptr", $pBuffer, "dword", $iLength, "ptr", $pResult, "dword*", $iResult[7])
     
118.   If $iResult[0] <> 0 Then Return StringTrimLeft (DllStructGetData ($tResult, 1), 2)
     
119. 
     
120.   $tBuffer = 0
     
121.   $tResult = 0
     
122. EndFunc

複製代碼

rictirse

ShekBoy 發表於 2013-3-2 18:21
請問大大你的鼠標手勢是什麼軟件

StrokeIt