[已解决]自动安装补丁问题
本帖最后由 qinguofang 于 2010-4-21 02:13 编辑自动安装补丁问题请老大们来帮我看看下 这是什么原因 我研究拉好久还是没
能研究出问题来 请老大们来看下这代码下
#include <File.au3>
$FileList=_FileListToArray(@ScriptDir & "\Update","*.exe",1)
For $i=3 To 1 Step -1
ToolTip(@CR&"共" & $FileList & "个系统补丁，" & $i & "秒后开始安装... " & @CR, @DesktopWidth-260, @DesktopHeight-100)
Sleep(1000)
Next
For $i=1 To $FileList
ToolTip(@CR&"正在安装 " & $FileList[$i] & " (" & $i & "/" & $FileList &") " & @CR, @DesktopWidth-320, @DesktopHeight-100)
RunWait(@ScriptDir & "\Update\" & $FileList[$i] & " /quiet /passive /norestart")
Next
ToolTip(@CR&"系 统 补 丁 安 装 完 毕 !"&@CR,@DesktopWidth-260, @DesktopHeight-100)
Sleep(2000)
这个代码也是在论坛看到的 我现在真需要这个 麻烦老大们拉 #include <File.au3>
$FileList = _FileListToArray(@ScriptDir & "\Update", "*.exe", 1)
If @error = 1 Then
MsgBox(0, '', '没有找到文件夹，点击确定后自动创建')
DirCreate(@ScriptDir & '\Update')
Exit
EndIf
If @error = 4 Then
MsgBox(0, '', '错误 文件夹中没有文件，清将补丁文件放入update文件夹')
Exit
EndIf
For $i = 3 To 1 Step -1
ToolTip(@CR & "共" & $FileList & "个系统补丁，" & $i & "秒后开始安装... " & @CR, @DesktopWidth - 260, @DesktopHeight - 100)
Sleep(1000)
Next
For $i = 1 To $FileList
ToolTip(@CR & "正在安装 " & $FileList[$i] & " (" & $i & "/" & $FileList & ") " & @CR, @DesktopWidth - 320, @DesktopHeight - 100)
RunWait(@ScriptDir & "\Update\" & $FileList[$i] & " /quiet /passive /norestart")
Next
ToolTip(@CR & "系 统 补 丁 安 装 完 毕 !" & @CR, @DesktopWidth - 260, @DesktopHeight - 100)
Sleep(2000) 回复 2# nmgwddj
正是我现在需要的,尽管离我的需求还不完全满足,我会按照您的方法按照我的目标去实现的,到时候请多指教!
页:
[1]