[Автоматизация] Не выполняется часть кода

Xabib2302 · 31 Окт 2018

Доброе время суток. Имеется скрипт автоматизации интеграции обнов в Adobe Reader.
Дело в том, что решил поправить код добавив проверку на наличие файлов.

Код:

#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"')
	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"')
	RunWait(@SystemDir & '\msiexec.exe /a "' & @ScriptDir & '\AcrobatPro\Adobe Acrobat XI\AcroPro.msi" TARGETDIR="' & @ScriptDir & '\AcrobatPro\Install" /qb')
	FileMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat XI\*.INI", @ScriptDir & "\AcrobatPro\Install\", 9)
	FileMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat XI\*.exe", @ScriptDir & "\AcrobatPro\Install\", 9)
	DirMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat XI\Transforms", @ScriptDir & "\AcrobatPro\Install\Transforms")
	DirMove(@ScriptDir & "\AcrobatPro\Adobe Acrobat XI\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"')
	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"')
	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)

Начиная с If FileExists (@ScriptDir & 'Acrobat_DC.exe') Then код не выполняется. Происходит переименование по маске и все

xXx · 31 Окт 2018

Xabib2302 сказал(а):
(@ScriptDir & 'Acrobat_DC.exe')

Вот тут уже ошибка.
(Остальное не проверял.)

Xabib2302 · 31 Окт 2018

xXx
Не заметил. Спасибо

Автор темы	Похожие темы	Форум	Ответы	Дата
N	Автоматизация нажатия клавиш мышки.	Покупка/продажа, поиск услуг	1	Вчера в 11:48
G	Автоматизация + сообщение в ТГ	Стол заказов	0	28 Фев 2024
	Автоматизация WinSCP через COM. Копирование файлов с индикатором прогресса	Общие вопросы по AutoIt	1	17 Янв 2024
	[Автоматизация] Не выполняется условие	Общие вопросы по AutoIt	12	5 Июл 2017
W	[Автоматизация] Не выполняется ControlClick в условном переходе (if,endif)	Общие вопросы по AutoIt	11	4 Сен 2012

Поиск

Поиск

[Автоматизация] Не выполняется часть кода

Xabib2302

xXx

╚{■_■}╗

Xabib2302