[已解决]自动安装补丁问题

qinguofang · 发表于 2010-4-20 23:27:28

本帖最后由 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[0] & "个系统补丁，" & $i & "秒后开始安装... " & @CR, @DesktopWidth-260, @DesktopHeight-100)
      Sleep(1000)
Next
For $i=1 To $FileList[0]
      ToolTip(@CR&"  正在安装 " & $FileList[$i] & " (" & $i & "/" & $FileList[0] &") " & @CR, @DesktopWidth-320, @DesktopHeight-100)
      RunWait(@ScriptDir & "\Update\" & $FileList[$i] & " /quiet /passive /norestart")
Next
ToolTip(@CR&"  系统补丁安装完毕 !  "  &  @CR,  @DesktopWidth-260, @DesktopHeight-100)
Sleep(2000)

这个代码也是在论坛看到的我现在真需要这个麻烦老大们拉

nmgwddj · 发表于 2010-4-20 23:50:29

#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[0] & "个系统补丁，" & $i & "秒后开始安装...   " & @CR, @DesktopWidth - 260, @DesktopHeight - 100)
        Sleep(1000)
Next
For $i = 1 To $FileList[0]
        ToolTip(@CR & "  正在安装 " & $FileList[$i] & " (" & $i & "/" & $FileList[0] & ")   " & @CR, @DesktopWidth - 320, @DesktopHeight - 100)
        RunWait(@ScriptDir & "\Update" & $FileList[$i] & " /quiet /passive /norestart")
Next
ToolTip(@CR & "  系 统 补 丁 安 装 完 毕 !  " & @CR, @DesktopWidth - 260, @DesktopHeight - 100)
Sleep(2000)

newuser · 发表于 2010-4-21 08:09:38

回复 2# nmgwddj

正是我现在需要的,尽管离我的需求还不完全满足,我会按照您的方法按照我的目标去实现的,到时候请多指教!

		自动登录	找回密码
密码			加入

[系统综合] [已解决]自动安装补丁问题

本帖子中包含更多资源

评分

相关帖子

评分