微剋多資訊

 找回密碼
 註冊

Login

Login

搜索
回覆 3則 瀏覽 3528篇

[程式+碼源] MD Only M$安靜模式安裝更新檔案與 + 製作集合包教學

該用戶從未簽到

發表於 2012-10-14 00:40 | 顯示全部樓層 |閱讀模式
本帖最後由 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檔案
  1. #NoTrayIcon
  2. #RequireAdmin
  3. #include <Array.au3>
  4. Global $FullFile[1]
  5. Global $cnt = 0
  6. Global $FileCnt, $DirCnt,$BlackListCnt,$FullFilePath

  7. $rut = FileSelectFolder ( "請選擇一個目錄", "", 4, @ScriptDir)

  8. _ScanFolder($rut)

  9. ;~ _ArrayDisplay($FullFile)

  10. For $i = 1 To UBound($FullFile)-1
  11.         $strtmp = StringSplit ( $FullFile[$i], "\")
  12.         ToolTip (StringFormat ( "總共%d個 已安裝%d個"&@CRLF&"目前正在安裝:"&@CRLF&"%s", UBound($FullFile)-1,$i, $strtmp[$strtmp[0]]), 10, 10)
  13.         RunWait ( @ComSpec & " /c wusa.exe "&$FullFile[$i]&" /quiet /norestart", "", @SW_HIDE)
  14. Next
  15. MsgBox (0,"","安裝完成")

  16. Func _ScanFolder ($SourceFolder)
  17.         Local $Search
  18.         Local $File
  19.         Local $FileAttributes
  20.         Local $FullFilePath

  21.         $Search = FileFindFirstFile ( $SourceFolder & "\*.*")

  22.         While 1
  23.                 If $Search = -1 Then
  24.                         ExitLoop
  25.                 EndIf

  26.                 $File = FileFindNextFile ($Search)
  27.                 If @error Then ExitLoop

  28.                 $FullFilePath = $SourceFolder & "\" & $File
  29.                 $FileAttributes = FileGetAttrib ($FullFilePath)

  30.                 If StringInStr ( $FileAttributes, "D") Then
  31.                         $DirCnt += 1
  32.                         _ScanFolder ($FullFilePath)
  33.                 Else
  34.                         _AddArrayFile($FullFilePath)
  35.                 EndIf

  36.         WEnd
  37.         FileClose($Search)
  38. EndFunc

  39. Func _AddArrayFile($FileName)
  40.         $strtmp = StringSplit ( $FileName, "\")
  41.         $strtmp = StringSplit ( $strtmp[$strtmp[0]], ".")
  42.         If $strtmp[$strtmp[0]] = "msu" Then
  43.                 _ArrayAdd ( $FullFile, $FileName)
  44.         EndIf
  45.         $FileCnt += 1
  46. EndFunc
複製代碼

集合包請下載這個

單純背景安裝請下載這個



本帖子中包含更多資源

您需要 登入 才可以下載或查看,沒有帳號?註冊

x

簽到天數: 19

該用戶今日未簽到

發表於 2013-6-21 12:04 | 顯示全部樓層
有載點嗎
還是移除了?

使用道具

該用戶從未簽到

發表於 2013-11-17 03:09 | 顯示全部樓層
是真的沒有
看過安裝檔了

使用道具

該用戶從未簽到

發表於 2014-12-6 18:41 | 顯示全部樓層
哇~來晚了
非常棒的工具載點沒了
有誰能提供Fixit_AutoInstall集合包.exe呢?

使用道具

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2017-2-20 18:52

Discuz! X

© 2009-2017 Microduo

快速回覆 返回頂部 返回列表