5238869 发表于 2011-11-10 14:22:19

系统静默补丁安装器（可自动跳过已安装补丁）

稍微修改了下，让程序在没有hotfix目录时不会暴挫。 使用该程序只需（相对本程序）在hotfix目录下放至所有补丁程序即可。 安装过程中会自动检测 注册 表跳过已安装的补丁程序，减少重复补丁的时间浪费。 发该源代码只为了新手入门学习，若程序存在各种缺陷待
                                                                              稍微修改了下，让程序在没有hotfix目录时不会暴挫。

使用该程序只需（相对本程序）在hotfix目录下放至所有补丁程序即可。
安装过程中会自动检测注册表跳过已安装的补丁程序，减少重复补丁的时间浪费。
发该源代码只为了新手入门学习，若程序存在各种缺陷待会员们修正并回帖共享！
源代码：
;---------------------------------------
#Include <File.au3>
Local Const $hklm="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix"
;判断hotfix目录是否存在
If Not FileExists(@ScriptDir&"\hotfix") Then
DirCreate(@ScriptDir&"\hotfix")
MsgBox(64,"Error","未发现补丁程序，请将所有补丁程序拷贝至hotfix目录后在试！")
Exit
EndIf
ToolTip(@CR&"正在安装系统补丁，请稍后！"&@CR,@DesktopWidth-260,@DesktopHeight-120)
;读取已安装补丁
Local $i=1,$Exists=""
While 1
$Exists&=RegEnumKey($hklm,$i)
If @Error Then ExitLoop
$i+=1
WEnd
;打印列表并安装所有补丁
$i=1
Local $List=_FileListToArray(@ScriptDir&"\hotfix","*",1)
While $i<=$List
$FixName=StringSplit($List[$i],"-")
$FixName=$FixName
If Not StringInStr($Exists,$FixName) Then
RunWait(@ScriptDir&"\hotfix\"&$List[$i]&" /quiet /passive /norestart")
EndIf
$i+=1
WEnd
msgbox(64,"ok","Finish.")

沂青南 发表于 2011-11-10 18:39:00

沙发/////////////............,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

danny.w 发表于 2011-11-18 20:30:39

谢谢分享。。。

zh94518 发表于 2012-7-14 10:42:19

可以。。。。。。。。。。。。。。。

chenronting 发表于 2012-11-7 22:53:16

谢谢分享。注册表位置！！

q113960096 发表于 2012-11-11 18:51:22

回复 1# 5238869


    简单有效就是好

jasonny 发表于 2012-12-19 22:37:43

感謝大大分享

xiaoniba 发表于 2013-7-23 21:13:31

收藏，备用

PEM-System 发表于 2013-10-14 23:39:06

回复 1# 5238869
"G:\1\333.au3"(9,48) : error: 表达式错误
ToolTip(@CR&"正在安装系统补丁，请稍后！"[email=&
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"G:\1\333.au3"(9,133) : error: 表达式错误
ToolTip(@CR&"正在安装系统补丁，请稍后！"&@CR,@DesktopWidth-260,@DesktopHeight-120[/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"G:\1\333.au3"(9,47) : error: email(): 未定义的函数.
ToolTip(@CR&"正在安装系统补丁，请稍后！"[email=
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
G:\1\333.au3 - 3 错误, 0 警告

joyran 发表于 2014-3-1 23:58:43

谢谢楼主分享了

hjq766 发表于 2017-9-16 19:57:56

谢谢楼主分享
页: [1]
查看完整版本: 系统静默补丁安装器（可自动跳过已安装补丁）