Автор Тема: [Ошибки] Ошибка в скрипте  (Прочитано 128 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Оффлайн Xabib2302 [?]

  • Новичок
  • *
  • Сообщений: 38
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
[Ошибки] Ошибка в скрипте
« Создано: Январь 11, 2019, 16:03:16 »
Доброе время суток. Помогите решить проблему с ошибкой в скрипте.

 

Код: AutoIt [Выделить]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UPX_Parameters=--best
#AutoIt3Wrapper_Res_Description=Adobe Unpack & Integration by HeX
#AutoIt3Wrapper_Res_Fileversion=31.10.2018.0
#AutoIt3Wrapper_Res_ProductVersion=31.10.2018
#AutoIt3Wrapper_Res_LegalCopyright=HeX © 2018
#AutoIt3Wrapper_Res_Language=1049
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
AutoItSetOption("MustDeclareVars", 1)

Local $oFSO = ObjCreate("Scripting.FileSystemObject")
Local $oFile

For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "Acrobat_DC_Web_WWMUI.exe") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'Acrobat_DC.exe'))
        ExitLoop
    EndIf
Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcrobatDCUpd\d+.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcrobatDCUpd_1.msp'))
        ExitLoop
    EndIf
Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcrobatDCUpd\d+_incr\.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcrobatDCUpd_2.msp'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcroRdrDC\d+_ru_RU\.exe") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcroRdrDC.exe'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcroRdrDCUpd\d+.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcroRdrDCUpd_1.msp'))
        ExitLoop
    EndIf
Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcroRdrDCUpd\d+_incr\.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcroRdrDCUpd_2.msp'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcrobatPro_\d+_Web_WWMUI\.exe") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcrobatPro.exe'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcrobatUpd\d+.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcrobatUpd_1.msp'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AcrobatUpd\d+_incr\.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AcrobatUpd_2.msp'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AdbeRdr\d+_ru_RU\.exe") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AdbeRdr.exe'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AdbeRdrUpd\d+.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AdbeRdrUpd_1.msp'))
        ExitLoop
    EndIf
    Next
For $oFile In $oFSO.GetFolder(@ScriptDir).Files
    If StringRegExp($oFile.Name, "AdbeRdrUpd\d+_incr\.msp") = 1 Then
        FileMove($oFSO.BuildPath(@ScriptDir, $oFile.Name), $oFSO.BuildPath(@ScriptDir, 'AdbeRdrUpd_2.msp'))
        ExitLoop
    EndIf
Next
Sleep(1000)
If FileExists (@ScriptDir & '\Acrobat_DC.exe') Then
    RunWait('7z.exe x Acrobat_DC.exe -o"' & @ScriptDir & '\Acrobat_DC"')
    FileDelete (@ScriptDir & '\Acrobat_DC\*.htm')
    DirRemove(@ScriptDir & '\Acrobat_DC\GB18030', 1)
    FileDelete (@ScriptDir & '\Acrobat_DC\Adobe Acrobat\*.msp')
    IniDelete(@ScriptDir & "\Acrobat_DC\Adobe Acrobat\setup.ini", "Product", "PATCH")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\Acrobat_DC\Adobe Acrobat\AcroPro.msi" TARGETDIR="' & @ScriptDir & '\Acrobat_DC\Install" /qb')
    FileMove(@ScriptDir & "\Acrobat_DC\Adobe Acrobat\*.INI", @ScriptDir & "\Acrobat_DC\Install\", 9)
    FileMove(@ScriptDir & "\Acrobat_DC\Adobe Acrobat\*.exe", @ScriptDir & "\Acrobat_DC\Install\", 9)
    DirMove(@ScriptDir & "\Acrobat_DC\Adobe Acrobat\Transforms", @ScriptDir & "\Acrobat_DC\Install\Transforms")
    DirMove(@ScriptDir & "\Acrobat_DC\Adobe Acrobat\VCRT_x64", @ScriptDir & "\Acrobat_DC\Install\VCRT_x64")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\Acrobat_DC\Install\AcroPro.msi" /p "' & @ScriptDir & '\AcrobatDCUpd_1.msp" TARGETDIR="' & @ScriptDir & '\Acrobat_DC\Install" /qb')
    If FileExists (@ScriptDir & 'AcrobatDCUpd_2.msp') Then
        RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\Acrobat_DC\Install\AcroPro.msi" /p "' & @ScriptDir & '\AcrobatDCUpd_2.msp" TARGETDIR="' & @ScriptDir & '\Acrobat_DC\Install" /qb')
    EndIf
    FileSetAttrib(@ScriptDir & '\Acrobat_DC\Install\*.*', '-H', 1)
EndIf
Sleep(1000)
If FileExists (@ScriptDir & '\AcrobatPro.exe') Then
    RunWait('7z.exe x AcrobatPro.exe -o"' & @ScriptDir & '\AcrobatPro"')
    FileDelete (@ScriptDir & '\AcrobatPro\*.htm')
    DirRemove(@ScriptDir & '\AcrobatPro\GB18030', 1)
    $hSearch = FileFindFirstFile(@ScriptDir & '\AcrobatPro\*.*') ; возвращает дескриптор поиска, определяющий путь и маску
    While 1
        $sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего
        If @error Then ExitLoop
        $iAnswer = DirMove(@ScriptDir & "\AcrobatPro\" & $sFile, @ScriptDir & "\AcrobatPro\Adobe Acrobat")
        If $iAnswer = 2 Then ExitLoop
    WEnd
    FileClose($hSearch)
    FileDelete (@ScriptDir & '\AcrobatPro\Adobe Acrobat\*.msp')
    IniDelete(@ScriptDir & "\AcrobatPro\Adobe Acrobat\setup.ini", "Product", "PATCH")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcrobatPro\Adobe Acrobat\AcroPro.msi" TARGETDIR="' & @ScriptDir & '\AcrobatPro\Install" /qb')
    FileMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat\*.INI", @ScriptDir & "\AcrobatPro\Install\", 9)
    FileMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat\*.exe", @ScriptDir & "\AcrobatPro\Install\", 9)
    DirMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat\Transforms", @ScriptDir & "\AcrobatPro\Install\Transforms")
    DirMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat\VCRT_x64", @ScriptDir & "\AcrobatPro\Install\VCRT_x64")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcrobatPro\Install\AcroPro.msi" /p "' & @ScriptDir & '\AcrobatUpd_1.msp" TARGETDIR="' & @ScriptDir & '\AcrobatPro\Install" /qb')
    If FileExists (@ScriptDir & 'AcrobatUpd_2.msp') Then
        RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcrobatPro\Install\AcroPro.msi" /p "' & @ScriptDir & '\AcrobatUpd_2.msp" TARGETDIR="' & @ScriptDir & '\AcrobatPro\Install" /qb')
    EndIf
    FileSetAttrib(@ScriptDir & '\AcrobatPro\Install\*.*', '-H', 1)
EndIf
Sleep(1000)
If FileExists (@ScriptDir & '\AcroRdrDC.exe') Then
    RunWait('7z.exe x AcroRdrDC.exe -o"' & @ScriptDir & '\AcroRdrDC"')
    FileDelete (@ScriptDir & '\AcroRdrDC\*.msp')
    IniDelete(@ScriptDir & "\AcroRdrDC\setup.ini", "Product", "PATCH")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcroRdrDC\AcroRead.msi" TARGETDIR="' & @ScriptDir & '\AcroRdrDC\Install" /qb')
    FileMove(@ScriptDir & "\AcroRdrDC\*.INI", @ScriptDir & "\AcroRdrDC\Install\", 9)
    FileMove(@ScriptDir & "\AcroRdrDC\*.exe", @ScriptDir & "\AcroRdrDC\Install\", 9)
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcroRdrDC\Install\AcroRead.msi" /p "' & @ScriptDir & '\AcroRdrDCUpd_1.msp" TARGETDIR="' & @ScriptDir & '\AcroRdrDC\Install" /qb')
    If FileExists (@ScriptDir & 'AcroRdrDCUpd_2.msp') Then
        RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcroRdrDC\Install\AcroRead.msi" /p "' & @ScriptDir & '\AcroRdrDCUpd_2.msp" TARGETDIR="' & @ScriptDir & '\AcroRdrDC\Install" /qb')
    EndIf
    FileSetAttrib(@ScriptDir & '\AcroRdrDC\Install\*.*', '-H', 1)
EndIf
Sleep(1000)
If FileExists (@ScriptDir & '\AdbeRdr.exe') Then
    RunWait('7z.exe x AdbeRdr.exe -o"' & @ScriptDir & '\AdbeRdr"')
    FileDelete (@ScriptDir & '\AdbeRdr\*.msp')
    IniDelete(@ScriptDir & "\AdbeRdr\setup.ini", "Product", "PATCH")
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AdbeRdr\AcroRead.msi" TARGETDIR="' & @ScriptDir & '\AdbeRdr\Install" /qb')
    FileMove(@ScriptDir & "\AdbeRdr\*.INI", @ScriptDir & "\AdbeRdr\Install\", 9)
    FileMove(@ScriptDir & "\AdbeRdr\*.exe", @ScriptDir & "\AdbeRdr\Install\", 9)
    RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AdbeRdr\Install\AcroRead.msi" /p "' & @ScriptDir & '\AdbeRdrUpd_1.msp" TARGETDIR="' & @ScriptDir & '\AdbeRdr\Install" /qb')
    If FileExists (@ScriptDir & 'AdbeRdrUpd_2.msp') Then
        RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AdbeRdr\Install\AcroRead.msi" /p "' & @ScriptDir & '\dbeRdrUpd_2.msp" TARGETDIR="' & @ScriptDir & '\AdbeRdr\Install" /qb')
    EndIf
    FileSetAttrib(@ScriptDir & '\AdbeRdr\Install\*.*', '-H', 1)
EndIf
Exit(0)


Русское сообщество AutoIt

[Ошибки] Ошибка в скрипте
« Отправлен: Январь 11, 2019, 16:03:16 »

Помечен как лучший ответ пользователем Xabib2302 Отправлен Январь 11, 2019, 16:48:38

Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4091
  • Репутация: 1083
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: [Ошибки] Ошибка в скрипте
« Ответ #1, Отправлен: Январь 11, 2019, 16:39:05 »
Код: AutoIt [Выделить]
;~ AutoItSetOption("MustDeclareVars", 1)

Или объявите переменные в начале скрипта ;)

Русское сообщество AutoIt

Re: [Ошибки] Ошибка в скрипте
« Ответ #1 Отправлен: Январь 11, 2019, 16:39:05 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
2 Ответов
5952 Просмотров
Последний ответ Март 27, 2011, 04:45:32
от forfrends
15 Ответов
9026 Просмотров
Последний ответ Август 20, 2011, 21:40:10
от at
9 Ответов
4321 Просмотров
Последний ответ Март 02, 2012, 13:07:05
от vanekzver
19 Ответов
18960 Просмотров
Последний ответ Август 24, 2013, 12:19:52
от madmasles
4 Ответов
2623 Просмотров
Последний ответ Май 24, 2013, 15:09:57
от MnM
3 Ответов
1505 Просмотров
Последний ответ Апрель 09, 2015, 09:28:41
от CrazyDoc
1 Ответов
404 Просмотров
Последний ответ Декабрь 16, 2017, 20:46:42
от qqww22
2 Ответов
442 Просмотров
Последний ответ Декабрь 23, 2017, 12:25:21
от joiner
8 Ответов
879 Просмотров
Последний ответ Октябрь 31, 2018, 07:41:12
от Yriy_07
14 Ответов
604 Просмотров
Последний ответ Декабрь 06, 2018, 11:09:05
от dimcomp