Ошибка компиляции файла через скрипт

[_Lexa98_]

При таком коде:

Run(@Comspec & " /C start Aut2exe.exe /in " & FileGetShortName(@ScriptDir & "\" &  $sFolderName  &  "\Programm.au3"))

Вылезает ошибка(во вложениях)
Что делать?
С наступающим! :beer:

 

[joiner]

_Lexa98_
не занят ли файл процессом?
может антивирь блокировать.

 

[_Lexa98_]

Александр [?]

не занят ли файл процессом? может антивирь блокировать.

Проверил, нет


Добавлено:

Сообщение автоматически объединено: 30 Дек 2011

Весь код:

#NoTrayIcon

Global $Lib = @ScriptDir & "\engine.exe", $sFolderName

$file = FileOpenDialog("Main File", @WorkingDir & "", "Exe (*.exe)", 1)
$Gui = GUICreate("Glue", 300, 74, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateLabel('', 0, 0, 300, 74)
GUICtrlSetState(-1, 128 + 8)
$in = GUICtrlCreateLabel("Кинь файл для склеивания.", 150, 55, 150, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
	Case $msg = -13
		$file1 = FileOpen (@ScriptDir&"\Progamm.au3")
		FileWrite (@ScriptDir&"\Progamm.au3", '#NoTrayIcon' & @CRLF)
		FileWrite (@ScriptDir&"\Progamm.au3", 'FileInstall ('&'"'&$file&'"'&', @ScriptDir & "1.exe")' & @CRLF)
		FileWrite (@ScriptDir&"\Progamm.au3", 'FileInstall ('&'"'&@GUI_DragFile&'"'&', @ScriptDir & "2.exe")' & @CRLF)
		FileWrite (@ScriptDir&"\Progamm.au3", 'Run ('&'"'&"1.exe"&'"'&')' & @CRLF)
		FileWrite (@ScriptDir&"\Progamm.au3", 'Run ('&'"'&"2.exe"&'"'&')' & @CRLF)
		FileWrite (@ScriptDir&"\Progamm.au3", 'Exit')
		FileClose ($file1)
		$par = "/in " &'"'&@ScriptDir&"\Programm.au3"&'"'
		Sleep(5000)
;~ 		Run(@Comspec & " /C start Aut2exe.exe /in " & FileGetShortName(@ScriptDir & "\" &  $sFolderName  &  "\Programm.au3"))
;~ Run('"' & @AutoItExe & '" "' & $par & '"', "", @SW_HIDE, 1)
;~ 		Run("engine.exe /in Programm.au3")
		ShellExecute ( "engine.exe" , "/in "&"Programm.au3")
		GUICtrlSetData ($in, "Компиляция...")
		Sleep(5000)
		GUICtrlSetData ($in, "Файл скомпилирован.")
;~ 		FileDelete (@ScriptDir&"\Progamm.au3")
	Case $msg = -3
            Exit
    EndSelect
WEnd

 

[_Lexa98_]

UP

 

[Zaramot]

Я тоже раньше хотел написать "Joiner" файлов
И написал ....

Одна из первых моих программ:
Files Joiner.rar

 

[gora]

_Lexa98_
Возможно причина в имени пользователя содержащем спец. символы, которые в CMD следует применять с аккуратностью.
Попробуйте зайти под другим пользователем (без восклицательный знаков в имени) или добавьте ключ /VFF после запуск CMD

Run(@Comspec & " /V:OFF /C start Aut2exe.exe /in " & FileGetShortName(@ScriptDir & "\" &  $sFolderName  &  "\Programm.au3"))

 

[_Lexa98_]

Zaramot
Спасибо! :laugh:
Вот написал свой:

#NoTrayIcon

Global $file1, $file2, $but1, $but2, $but3, $but4

$Gui = GUICreate("Glue", 300, 120, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateInput("Иконка", 2, 35, 250, 15)
$Input2 = GUICtrlCreateInput("Первый exe", 2, 55, 250, 15)
$Input3 = GUICtrlCreateInput("Второй exe", 2, 75, 250, 15)
$but1 = GUICtrlCreateButton ("...", 260, 55, 30, 15)
$but2 = GUICtrlCreateButton ("...", 260, 75, 30, 15)
$but4 = GUICtrlCreateButton ("...", 260, 35, 30, 15)
$but3 = GUICtrlCreateButton ("Склеить", 2, 95, 295, 20)
$in = GUICtrlCreateLabel("Строка состояния", 2, 2, 150, 20)
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
	Case $but4
		$ICON = FileOpenDialog('Choose Icon file', '', 'Icon (*.ico)', '', '', GUICreate('', 563, 417))
		GUICtrlSetData ($Input1, $ICON)
	Case -3
		Exit
	Case $but1
            Ifile()
	Case $but2
            IIfile()
	Case $but3
		GUICtrlSetData ($in, "Склеивание...")
		FileWrite (@TempDir&"\Glued.au3", '#NoTrayIcon' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_1.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_2.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file1&'"'&', @TempDir&"\Setup_1.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file2&'"'&', @TempDir&"\Setup_2.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_1.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_2.exe")' & @CRLF)
		FileWrite (@TempDir&"\Glued.au3", 'Exit' & @CRLF)
		$AU3 = @TempDir & '\Glued.au3'
		$AUT2EXE = @ScriptDir & '\comp.exe'
		$EXE = @ScriptDir & '\Glued.exe'
		Run($AUT2EXE & ' /in ' & $AU3 & ' /out ' & $EXE & ' /icon ' & $ICON & ' /comp 0 /nopack')
;~ 		Run($AUT2EXE & ' /in ' & $AU3 & ' /icon ' & $ICON & ' /comp 0 /nopack')
		Sleep(3000)
		GUICtrlSetData ($in, "Склеено")
		FileDelete (@TempDir & "\Glued.au3")
;~ 		Run(@Comspec & " /C start Aut2exe.exe /in " & FileGetShortName(@ScriptDir & "\" &  $sFolderName  &  "\script.au3"))
;~ Run('"' & @AutoItExe & '" "' & $par & '"', "", @SW_HIDE, 1)
;~ 		Run("engine.exe /in Programm.au3")
;~ 		ShellExecute ( "engine.exe" , "/in "&"Programm.au3")
;~ 		FileDelete (@ScriptDir&"\Progamm.au3")
    EndSwitch
WEnd

Func Ifile()
	$file1 = FileOpenDialog('Choose a first EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
	GUICtrlSetData ($Input2, $file1)
EndFunc

Func IIfile()
	$file2 = FileOpenDialog('Choose a second EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
	GUICtrlSetData ($Input3, $file2)
EndFunc

8)