[amel27]

amel27 как то у меня спрашивал, откуда у меня такое недоверие к $Array[0], вот именно функция _ArrayDelete() и доказывает, что надёжнее использовать Ubound($Array)-1

ничего это не доказывает - нужно просто внимательно читать документацию по функции, в _ArrayDelete() индекс может быть равен нулю значит она не поддерживает счетчики. Строго говоря, "массив со счетчиком" - это специальный пользовательский тип данных (UDT), отличный от обычного массива... соответственно, функция должна "понимать" этот тип

примерно следующая строка сможет выполнить этот файл как любой au3 файл где установлен AutoIt

для полноты картины - можно выполнять не только файлы, но и отдельные команды:

Код:

Run(@AutoItExe & " /ErrorStdOut /AutoIt3ExecuteLine " & chr(34) &"MsgBox(0, 'Привет', 'Привет от:'& @CR & @computername)"& chr(34))

[Creat0R]

amel27,

индекс может быть равен нулю значит она не поддерживает счетчики.

Я просто ориентируюсь на встроенных функциях, все они возвращают в нулевом элементе массива общее число элементов.

ожно выполнять не только файлы, но и отдельные команды

Я вкурсе - Это то и дало мне толчок в эту сторону... я раньше думал, что используя @AutoItExe & " /AutoIt3ExecuteLine ...", нужен обязательно установленный AutoIt... но оказывается нужен всего лишь закомпилированный скрипт.

[Maza Faka]

Creat0R
Спасибо за примеры с Redim и Progress!

А многие ли знают о том, что скомпилированный скрипт работает почти как полноценный интерпритатор кода AutoIt?

Запустить AutoIt3 скрипт на выполнение из скомпилированного AutoIt3 сценария: Compiled.exe [/ErrorStdOut] [/AutoIt3ExecuteScript file] [params ...] Эта форма позволяет сэкономить размер установки и использовать копию интерпретатора AutoIT3.exe, который уже находится внутри скомпилированного скрипта

P.S.

ErrorStdOut Позволяет перенаправить все фатальные ошибки на стандартное устройство вывода (StdOut), которое можно перенаправить в приложения, например, редактор Scite

И как это сделать?

[Creat0R]

Maza Faka,

И как это сделать?

Что именно? пренаправить? вроде это приложение само должно перехватывать из этого устройства (методом StdRead).
А вот как заставить первичный скрипт не выпадать с фатальной ошибкой (т.е выпадть, но без сообщении), я если честно и сам не могу сообразить... разве что писать весь код программы во временный файл, и запускать с нужными параметрами из закомпилированного скрипта... но это кажется не очень практично.

[mikola1983]

как сделать предложение пользователю. хочешь установить? если да то происходит установка если нет то генерится сообщение и высылается на емайлесли у кого есть готовый скрипт поделитесь пожалуйста.

[Creat0R]

mikola1983,

как сделать предложение пользователю. хочешь установить?

Не знаю как (и возможно ли вообще) на email отсылать, но вот пример с вопросом:

Код:

$Ask = MsgBox(36, "Вопрос", "хочешь установить?")
If $Ask = 6 Then
    MsgBox(64, "Ответ", "Отлично, устанавливаем!")
    ;тут устанавливаем
Else
    MsgBox(48, "Ответ", "А жаль :(")
    ;тут отсылаем на email ;)
EndIf

[Maza Faka]

Creat0R
Как сделать это-же, только в режиме OnEvent?

Код:

#include <GUIConstants.au3>
Dim $i = 1
$gui = GUICreate("My GUI", 300, 200, -1, -1)
$Button = GUICtrlCreateButton("Start", 115, 20, 70)
$Progress = GUICtrlCreateProgress(10, 60, 280, 15)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

        Select
    Case $msg = $Button
        GUICtrlSetData($Button, "Abort")
        For $i = $i To 100
            If GUIGetMsg() = $Button Then
                GUICtrlSetData($Button, "Start")
                ExitLoop
            EndIf
            Sleep(30)
            GUICtrlSetData($Progress, $i)
            If $i = 100 Then $i = 0
            Next

            Case $msg = $Gui_Event_Close
            ExitLoop
        EndSelect
    WEnd

Пока топчусь на том, что не могу даже закрыть Gui-окно, во время цикла For

Код:

#include <GUIConstants.au3>
Opt("GuiOnEventMode", 1)
Dim $end = 1
$gui = GUICreate("My GUI", 300, 200, -1, -1)
$Button = GUICtrlCreateButton("Start", 115, 20, 70)
$Progress = GUICtrlCreateProgress(10, 60, 280, 15)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGui")
GUICtrlSetOnEvent($Button, "Progress")
GUISetState(@SW_SHOW)

While 1
    Sleep(500)
WEnd

Func Progress()
    For $i = 10 To 100 Step 10
        GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGui")
        Sleep(300)
        If $i = 100 Then $i = 0
            GuiCtrlSetData($Progress, $i)
        Next
    EndFunc

Func CloseGui()
    Exit
EndFunc

[amel27]

Creat0R

А вот как заставить первичный скрипт не выпадать с фатальной ошибкой (т.е выпадть, но без сообщении), я если честно и сам не могу сообразить... разве что писать весь код программы во временный файл, и запускать с нужными параметрами из закомпилированного скрипта... но это кажется не очень практично

Не понял... Зачем временный файл? Ключ "/ErrorStdOut" вроде никак не связан с "/AutoIt3ExecuteScript".

[mikola1983]

Пасипа ... а есть какой нибуть вообще вариант отчета ....возможно 1 файл в который дабавятся имена ПК или логоны юзеров ...что нибуть такое по чему можно былобы определить кто отказался от установки.?

[spooll]

Creat0R,

Огромный труд, поклон тебе, мне до такого не дорасти наверное
У меня на компе также виснет 1ый экран, но тут явно, что я его затаскал уже вконец
Буду ставить юзерям, думаю все ок будет.Спасибо еще раз 8)