Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 3)

Модерирует : gyra, Maz

gyra (23-01-2020 10:51): AutoIT (Часть 4)  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

   

Widok



Moderator-Следопыт
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
Описание:

Цитата:
AutoIt v3 - это язык для написания сценариев, напоминающий BASIC. Основным его назначением является автоматизация работ с Windows GUI (графическим интерфейсом пользователя MS Windows). Для выполнения этой сложной задачи предоставляется комбинация испытанных методов, включающих в себя эмуляцию нажатий комбинаций клавиш клавиатуры, перемещения указателя мыши, управление окнами и их визуальными элементами. Как показывает практика, эти "приводные ремни" весьма эффективны для получения работающих решений в ситуациях, когда другие стандартные средства (например, VBScript и SendKeys) оказываются бессильны.
Умеет он очень и очень многое! Бесплатный.

 
  • Справки
  • Инструменты
  • Ресурсы, посвящённые AutoIt
  • Полезные советы новичкам и не только
  • Готовые решения
  • Скрипт раскраски кода AutoIt для публикации в форумах
     


     
    За шапкой следит ViSiToR / AZJIO  

  • Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 13:07 01-06-2010 | Исправлено: Maz, 12:29 10-01-2020
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет всем
     
    При нажатии на кнопку "ОК", открывается дочернее окно,
    но в этом окне не работает GUICtrlCreateButton, вообще ни как.
    При закрытии этого дочернего окна, и нажатии второй кнопки
    опять исчезает Label в никуда, хотя я явно указал эту Label.
    Вот такая у меня проблема возникла.
    Подробнее...
     

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 22:33 04-10-2011
    ViSiToR



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Cosmogor 22:33 04-10-2011
    Цитата:
    в этом окне не работает GUICtrlCreateButton, вообще ни как

    Всё работает, просто его перекрывает Label (нужно сделать высоту не 70, а к примеру 40).
     
     

    Цитата:
    При закрытии этого дочернего окна, и нажатии второй кнопки  
     опять исчезает Label в никуда, хотя я явно указал эту Label.

    Нужно переключать GUI (GUISwitch($Parent) после удаления дочернего окна).
     
    Подробнее...

    ----------
    ViSiToR a.k.a CreatoR
    CreatoR это не ник, CreatoR это стиль жизни!

    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 02:55 05-10-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ViSiToR, да , размер Label был не правильно указан,
    и второй Label сейчас заработал как надо благодарствую  


    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 19:17 05-10-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет всем.
     
    Почему у меня переменная $iFileWrit возвращает 0
    после второго вызова дочернего окна. При первом вызове
    нормально, сначало возвращает 1, после закрытия дочернего
    окна 0. А при втором вызове всегда 0, хотя я явно указал в
    Global $iFileWrit = 1
    Подробнее...

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 06:52 07-10-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Cosmogor,
    $iFileWrit у Вас только в начале равна 1, после первого закрытия дочернего окна ей присваивается значение 0. Пока Вы опять не присвоите ей 1 или любое другое, так и будет 0.

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 11:01 07-10-2011 | Исправлено: madmasles, 11:01 07-10-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles, дак это выходит, что нужно присвоить значение 1 не вначале скрипта,
    а в середине после While. Чтобы при возвращении из другой функции было 0, а при входе в функцию снова было 1.  Только так стало работать.  
    Выходит что Global можно и не ставить.

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 11:12 07-10-2011
    vovka1021



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
      подскажите как реализовать чтобы рандомно одно из 3 сообщений отправлялось в игре (W.o.T)
    Читать дальше..

    Всего записей: 63 | Зарегистр. 02-04-2011 | Отправлено: 19:14 07-10-2011 | Исправлено: vovka1021, 21:54 07-10-2011
    ynbIpb



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vovka1021

    Код:
    Dim $stext[3]; объявляем массив
    $stext[0] = "Сори парни, пойду посру"
    $stext[1] = "Пацаны у вас инет лагает?"
    $stext[2] = "Ребята я отойду на секунду."
    $iArray = Random (0, 2, 1) ; выбираем случайное число от 0 до 2
    MsgBox (0, "", $stext[$iArray])


    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 22:37 07-10-2011
    vovka1021



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    перед тем как отправить необходимо нажать enter, вставить текст и нажать enter. и все это привязать к стоит галочка или нет в чекбоксе. подскажите новичку

    Всего записей: 63 | Зарегистр. 02-04-2011 | Отправлено: 06:16 08-10-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vovka1021, как вариант.

    Код:
    ; Если стоит галочка в $AutoRelog, то вставляем текст и нажимаем ENTER.
    If ControlCommand ("","","Button2","IsChecked","")=1 Then
    ControlSetText("", "","Edit1", "Текст")
    Send("{ENTER}")
    EndIf

     
    Или вот так:

    Код:
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
     
    Case $StartBot
    If ControlCommand ("","","Button6","IsChecked","")=1 Then
    Dim $stext[3] ; объявляем массив
    $stext[0] = "Сори парни, пойду посру"
    $stext[1] = "Пацаны у вас инет лагает?"
    $stext[2] = "Ребята я отойду на секунду."
    $iArray = Random (0, 2, 1) ; выбираем случайное число от 0 до 2
    ; MsgBox (0, "", $stext[$iArray])
    ControlSetText("", "","Edit2", $stext[$iArray])
    EndIf
     
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

     
    Добавить в конец этого кода.

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 17:38 10-10-2011 | Исправлено: Cosmogor, 18:05 10-10-2011
    Artem_Butenko



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
        Ребята, пожалуйста подскажите, каким образом с помощью сабжа можно организовать последовательный запуск исполняемых файлов, с ожиданием завершения работы одного файла, перед запуском другого.
         Можно ли при компиляции проекта в *.exe-файл, назначить ему свои собственные значения параметров FileDescription и FileVersion?

    Всего записей: 711 | Зарегистр. 19-02-2008 | Отправлено: 17:26 14-10-2011 | Исправлено: Artem_Butenko, 17:27 14-10-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Artem_Butenko,

    Код:
    #region [i];**** Directives created by AutoIt3Wrapper_GUI ****[/i]
    #AutoIt3Wrapper_icon=Resources\MyIcon.ico
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Comment=Можно здесь написать одно
    #AutoIt3Wrapper_Res_Description=А здесь написать другое
    #AutoIt3Wrapper_Res_Fileversion=1.2.3.4
    #AutoIt3Wrapper_Res_LegalCopyright=©2011 Artem_Butenko
    #AutoIt3Wrapper_Res_Language=1049
    #endregion [i];**** Directives created by AutoIt3Wrapper_GUI ****[/i]
     
    Dim $aFilesToRun[3] = [2, @WindowsDir & '\NOTEPAD.EXE', @SystemDir & '\calc.exe']
    For $i = 1 To $aFilesToRun[0]
        RunWait($aFilesToRun[$i])
    Next
    MsgBox(64, 'Info', 'Все')

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 18:02 14-10-2011
    Artem_Butenko



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles
     
    Спасибо за совет, будем испытывать в действии!

    Всего записей: 711 | Зарегистр. 19-02-2008 | Отправлено: 00:14 15-10-2011
    AZJIO



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто нибудь в курсе, есть ли программы, которые позволяют подсчитать количество шагов алгоритма?
     
    Обновил функцию _FileSearch.au3, пример использования. Теперь поддерживает множественные маски типа "*.is?;s*.cp*".
    Остались вопросы:  
    1) вывод о ненайденных файлах помечается как @Error=3, это сделано как и в других аналогичных функциях, хотя я склоняюсь не считать отсутсвие результатов как ошибку, хотя бы выразить через @extended. Например в Search_duplicates результаты поиска присоединяются к переменной и "ненайдено" не считается ошибкой, хотя в других примерах отутствие результата является ошибкой, так как не даёт возможность использовать результат в дальнейшем.
    2. При тестах поиск по всему диску возвражает на 1 больше количество файлов, чем нативный способ получения количества через "Свойства", выделив всё. Аналогично и для папок. При попытке найти предположительный повтор не дало положительного результата и функция от Melba23 и NIKZZZZZ выдаёт результат такой же как у меня.

    Всего записей: 4409 | Зарегистр. 03-05-2006 | Отправлено: 15:12 15-10-2011 | Исправлено: AZJIO, 16:59 15-10-2011
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Возможно ли добавить к иконке прозрачности? Например, как тут:

    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 19:25 15-10-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud,
    Мне не совсем понятно, Вам надо просто взять произвольную иконку и сделать ее светлее?

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 14:50 16-10-2011
    Artem_Butenko



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles
     

    Цитата:
    #region ;**** Directives created by AutoIt3Wrapper_GUI ****  
    #AutoIt3Wrapper_icon=Resources\MyIcon.ico  
    #AutoIt3Wrapper_Compression=4  
    #AutoIt3Wrapper_Res_Comment=Можно здесь написать одно  
    #AutoIt3Wrapper_Res_Description=А здесь написать другое  
    #AutoIt3Wrapper_Res_Fileversion=1.2.3.4  
    #AutoIt3Wrapper_Res_LegalCopyright=©2011 Artem_Butenko  
    #AutoIt3Wrapper_Res_Language=1049  
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****  
       
    Dim $aFilesToRun[3] = [2, @WindowsDir & '\NOTEPAD.EXE', @SystemDir & '\calc.exe']  
    For $i = 1 To $aFilesToRun[0]  
         RunWait($aFilesToRun[$i])  
    Next  
    MsgBox(64, 'Info', 'Все')

     
    Компилировал данный скрипт, только в свойствах файла не отобразилась указанная информация. Не знаю почему так. Использовал последнюю версию сабжа. Пожалуйста подскажите, где здесь "подводные камни". И еще, можно ли скрыть иконку запускаемой программы из системного трея, что для этого необходимо добавить в скрипт? Буду Вам очень благодарен за ценный совет!

    Всего записей: 711 | Зарегистр. 19-02-2008 | Отправлено: 15:35 16-10-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Artem_Butenko
    Цитата:
    только в свойствах файла не отобразилась указанная информация.
    Установите полную версию SciTE4AutoIt3.exe.
    Пример этого скомпилированного скрипта Test.

    Цитата:
    скрыть иконку запускаемой программы из системного трея
    В самом верху вставьте.
    Код:
    #NoTrayIcon


    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 18:05 16-10-2011 | Исправлено: madmasles, 18:14 16-10-2011
    AZJIO



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles

    Цитата:
    Вам надо просто взять произвольную иконку и сделать ее светлее?
    Скрытые файлы в проводнике отображаются блеклыми, но ведь их иконки не меняются. Видимо используется какая то функция, которая накладывает полупрозрачный белый слой поверх иконки. Аналогично используются символ ярлыка, замка, щита, который накладывается вторым слоем на иконку.

    Всего записей: 4409 | Зарегистр. 03-05-2006 | Отправлено: 18:16 16-10-2011
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles
     
    Необходимо определенную иконку из библиотеки shell32.dll сделать прозрачной наполовину и добавить в ImageList, который затем мы прикрутим к объекту Tree. Создавать на диске промежуточные файлы не желательно.

    Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 18:19 16-10-2011
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

    Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 3)
    gyra (23-01-2020 10:51): AutoIT (Часть 4)


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru