本帖最後由 rictirse 於 2014-5-22 22:01 編輯
噹噹撰寫的搜尋安裝M$的更新擋,只要是副檔名msu的檔案
只要放在資料夾內,執行Fixit_AutoInstall.exe 會自動搜尋並安裝
噹噹預設是不會自動重開機,所以全部更新完成後請自行重開機即可
如果加上rar自解功能,把msu跟 Fixit_AutoInstall全部包在同一個rar內
使用自解到tmp後啟動 Fixit_AutoInstall就可以達到自己封裝 m$更新檔的集合
1.對「Fixit_AutoInstall集合包.exe」右鍵 以WinRAR開啟
2.將要加入的更新檔副檔名為msu拖曳到RAR內
3.選擇「壓縮最佳」
4.就可以享受自己封裝的 安靜自動更新檔了
適用WinXP VISTA W7 W8 各版本的msu檔案
- #NoTrayIcon
- #RequireAdmin
- #include <Array.au3>
- Global $FullFile[1]
- Global $cnt = 0
- Global $FileCnt, $DirCnt,$BlackListCnt,$FullFilePath
- $rut = FileSelectFolder ( "請選擇一個目錄", "", 4, @ScriptDir)
- _ScanFolder($rut)
- ;~ _ArrayDisplay($FullFile)
- For $i = 1 To UBound($FullFile)-1
- $strtmp = StringSplit ( $FullFile[$i], "")
- ToolTip (StringFormat ( "總共%d個 已安裝%d個"&@CRLF&"目前正在安裝:"&@CRLF&"%s", UBound($FullFile)-1,$i, $strtmp[$strtmp[0]]), 10, 10)
- RunWait ( @ComSpec & " /c wusa.exe "&$FullFile[$i]&" /quiet /norestart", "", @SW_HIDE)
- Next
- MsgBox (0,"","安裝完成")
- Func _ScanFolder ($SourceFolder)
- Local $Search
- Local $File
- Local $FileAttributes
- Local $FullFilePath
- $Search = FileFindFirstFile ( $SourceFolder & "*.*")
- While 1
- If $Search = -1 Then
- ExitLoop
- EndIf
- $File = FileFindNextFile ($Search)
- If @error Then ExitLoop
- $FullFilePath = $SourceFolder & "" & $File
- $FileAttributes = FileGetAttrib ($FullFilePath)
- If StringInStr ( $FileAttributes, "D") Then
- $DirCnt += 1
- _ScanFolder ($FullFilePath)
- Else
- _AddArrayFile($FullFilePath)
- EndIf
- WEnd
- FileClose($Search)
- EndFunc
- Func _AddArrayFile($FileName)
- $strtmp = StringSplit ( $FileName, "")
- $strtmp = StringSplit ( $strtmp[$strtmp[0]], ".")
- If $strtmp[$strtmp[0]] = "msu" Then
- _ArrayAdd ( $FullFile, $FileName)
- EndIf
- $FileCnt += 1
- EndFunc
複製代碼
集合包請下載這個
單純背景安裝請下載這個
|