[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

morgan1991 · Отправлено: **22:57, 28-10-2008** | #**1021**

спс Creat0R, только не могу понять чё это такое?:

Код:

   $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password

зачем эти ссылки? Захожу по ним а они не рабочие, точнее там пишет типо 404, а код без них не пашет

semiono · Отправлено: **23:36, 28-10-2008** | #**1022**

Подскажите пжлст, что лучше или в каком случае лучше
winwaitactive("Alcohol","Welcome to the Alcohol") vs winwaitactive("[TITLE:Alcohol; Class:#32770]")

controlclick("Alcohol", "License Agreement", "I &Agree", "left", 1) vs controlclick("Alcohol", "License Agreement", "[Class:Button; Instance:2]", "left", 1)

я так думаю, что буквы хуже из-за кодировок и т.п. однако Title всёравно не напишешь цыфрами, дык тогда уж лучше всё так и вбивать как видно... всёравно приложение всегда конкретное и ситуация всегда предвидима, после многократных тестов проверки... ??

Меня более всего не устраивает сама путаница методов, зачем их так много? И как-то не систематизированно, сколько хелп читаю, всёравно только методом тыка познаётся.

Creat0R · Конфигурация компьютера

morgan1991,

Цитата morgan1991:

зачем эти ссылки? »

Это вроде как константы, судя по рассуждениям тут, на самом деле обращения на сервер MS не происходит (хотя видимо это зависит от тех же настроек).

semiono,

Цитата semiono:

что лучше или в каком случае лучше

Если для себя, то обычное распознавание по заголовкам и тексту вполне подходит. Если нужно надёжно, тогда лучше по классу + заголовок + текст.

Цитата semiono:

не устраивает сама путаница методов, зачем их так много? »

А это со временнем их так набралось

, классы и т.п. не всегда были доступны (в аутоите). Старые методы оставлены в целях обратной совместимости.

Цитата semiono:

сколько хелп читаю, всёравно только методом тыка познаётся »

Ну, оно так почти всегда, справка помагает, подталкивая на нужное направление

semiono · Отправлено: **01:27, 29-10-2008** | #**1024**

Путаница я имел ввиду в том, что если
winwaitactive("[TITLE:Alcohol; Class:#32770]") достаточно лишь [Title + Class] юзать,
то в controlclick нужен титл разделённый обычным текстом и потом уже класс...
то есть я хотел сначала перейти на полное использование только классов, но ведь так нельзя:

controlclick("[TITLE:Alcohol; Class:#32770]", "????", "[Class:Button; Instance:2]", "left", 1)

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

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

Creat0R · Конфигурация компьютера

semiono,

Цитата semiono:

в controlclick нужен титл разделённый текстом и потом уже класс »

Там не обязательно ставить текст

Цитата semiono:

Если делать не для себя, то возможные проблеммы когда откроется какоенибудь посторонее окно
и Enter улетит в него »

Я лично не долюбливаю функции Send и т.п. (хотя иногда без них никак), вместо бросания Enter'а в окно, лучше узнать класс контроля и нажать по нём, или в крайнем случае активировать окно (и дождаться его активности) перед посыланием.

amel27 · Отправлено: **06:16, 29-10-2008** | #**1026**

Creat0R

Цитата:

Вот так »

Супер!.. я бы на такой код не решился

...к примеру, в Си он является грубой ошибкой - компилятор не обязан соблюдать последовательность выполнения равноправных операндов - т.е. FileExists() вполне может выполниться перед DriveStatus(), поэтому мой вариант был бы другой (ниже)... Но скрипты выполняются "как написано" (всегда ли?) и это позволяет упростить некоторые проверки (контроль @error, IsArray(), etc.)

Код:

While 1
    $Next = (DriveStatus("A:")=="READY")
    If $Next Then $Next = FileExists('A:\gk.db3')
    If $Next Then ExitLoop

    If MsgBox (36, 'Предупреждение', 'Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод,' & _
        @CRLF& ' дискету пользователя, в противном случае работа не будет продолжена.' & _
        @CRLF& 'Вы хотите продолжать работу?') = 7 Then Exit
    Sleep(100)
WEnd

MsgBox(48, "Информация", "Запущена установка программы!")

Цитата:

Старые методы оставлены в целях обратной совместимости. »

не, скорей в целях прямой обучаемости

Grammaton Cleric · Конфигурация компьютера

Цитата amel27:

Супер!.. я бы на такой код не решился ...к примеру, в Си он является грубой ошибкой - компилятор не обязан соблюдать последовательность выполнения равноправных операндов - т.е. FileExists() вполне может выполниться перед DriveStatus(), поэтому мой вариант был бы другой (ниже)... Но скрипты выполняются "как написано" (всегда ли?) и это позволяет упростить некоторые проверки (контроль @error, IsArray(), etc.)

Код:

$Next = False
While 1
 If DriveStatus("A:")=="READY" Then $Next = True
 If $Next Then $Next = FileExists('A:\gk.db3')
 If $Next Then ExitLoop
If MsgBox (36, 'Предупреждение', 'Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод,' & _
 @CRLF& ' дискету пользователя, в противном случае работа не будет продолжена.' & _
 @CRLF& 'Вы хотите продолжать работу?') = 7 Then Exit
 Sleep(100)
WEnd
MsgBox(48, "Информация", "Запущена установка программы!")

»

Хм... я вот не программер, я только учусь.. Тут все, конечно, круто, но вот только я не понимаю смысл этих операций с переменной $next, не в том смысле, что я могу проще, а в том смысле, что "не мог бы ты объяснить?"... При чем, учитывая мою слабую компетентность в этом вопросе, при объяснении прошу использовать стиль "a la" для детсадовца... Не хочется просто использовать данный кусок кода - хочется его понять, для начала.

amel27 · Отправлено: **11:23, 29-10-2008** | #**1028**

Цитата Grammaton Cleric:

"не мог бы ты объяснить?" »

без проблем - у меня лобовой вариант привел к дублированию кода (MsgBox):

Код:

While 1
    If DriveStatus("A:")=="READY" Then
        If FileExists('A:\gk.db3') Then
            ExitLoop
        Else
            If MsgBox (36, 'Предупреждение','Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод, '&@CRLF& _
                                            'дискету пользователя, в противном случае работа не будет продолжена.'&@CRLF& _
                                            'Вы хотите продолжать работу?') = 7 Then Exit
        EndIf
    Else
        If MsgBox (36, 'Предупреждение','Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод, '&@CRLF& _
                                        'дискету пользователя, в противном случае работа не будет продолжена.'&@CRLF& _
                                        'Вы хотите продолжать работу?') = 7 Then Exit
    EndIf
    Sleep(100)
WEnd

MsgBox(48, "Информация", "Запущена установка программы!")

поэтому я ввел некий флаг $Next, который изначально равен FALSE (aka "красный свет", TRUE - "зеленый"),
далее (с учетом изменений):

- если вставлен диск, то DriveStatus() дает "зеленый", иначе - "красный";
- FileExists() может изменить цвет на "красный", но только с "зеленого" (иначе будет ошибка);
- если после всех проверок "зеленый", то скрипт выходит из цикла и продолжает работу;
- если "красный", то попадаем на предупреждение и далее либо выход из скрипта, либо по циклу до "зеленого"

Creat0R · Конфигурация компьютера

amel27,

Цитата amel27:

FileExists() вполне может выполниться перед DriveStatus() »

Если первое услове истина (True), то второму нет смысла выполняться, т.к условия разделены оператором Or. Также и с оператором "и", если есть два условия через And, и первое не является истиной, то второе не будет выполняться, оно выполняется только если первое условие это True.
Иногда это помагает, а иногда как раз наоборот.

Цитата amel27:

мой вариант был бы другой (ниже) »

Тем то AutoIt мне и нравится, что в нём можно сделать всё предельно просто, но точно также как и сложно

Цитата amel27:

лобовой вариант привел к дублированию кода (MsgBox) »

Не обязательно:

Код:

While 1
    If DriveStatus("A:") <> "READY" Then
        If MsgBox (36, 'Предупреждение', _
            'Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод, ' & @CRLF & _
            'дискету пользователя, в противном случае работа не будет продолжена.' & @CRLF & _
            'Вы хотите продолжать работу?') = 7 Then Exit

        ContinueLoop
    EndIf

    If FileExists('A:\gk.db3') Then ExitLoop
WEnd

MsgBox(48, "Информация", "Запущена установка программы!")

Или это не лобовой?

semiono · Отправлено: **13:58, 29-10-2008** | #**1030**

>Пожалуйста помогите с кодом?
>Надо проверить установлен ли SPTD драйвер и если нет перезагрузить Windows XP.
>Я думаю проверку драйвера можно осуществить проверкой существования файла:
>"%SystemRoot%\system32\drivers\sptd.sys"
>Или есть лучше вариант? (SPTD - это драйвер с которым обычно работает Alcohol)
>Перезагрузку можно выполнить так Run($WinDir"\system32\shutdown.exe", "-f -r -t 00") если я не ошибаюсь?
>Помогите целым куском кода, чтоб сразу вставить в скрипт? Иначе я запутаюсь в IF - логических консрукциях :\
>Ещё возможна трабла, так как я всётаки хочу это установить во время инсталяции windows на t13, может быть тут какие-то ещё есть сложности? Я >вообще-то не уверен перезагрузится ли windows в этой ситуации.
>Но полюбому, хотя бы так нужен скрипт, хотябы обычно юзать.

Ай-ай, я уже сам написал, примерчек:

Код:

If FileExists("C:\autoexec.bat") Then
Run("Calc.exe")
Else    
Shutdown(6)
EndIf

Только как это грамотно сделать, чтоб Then переходил в основной код, ссылку чтоли тут надо? Как это делают? GoTo чтоль...
Или просто тупо вставить весь код программы между: Then ... Else? Вроде это не по-програмиссткски!