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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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
    frankin

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    пишу бота на джаббере.Когда от него приходит сообщение(ответ),то русские символы приходят вопросами.как обучить его русскому языку?
    Всего записей: 13 | Зарегистр. 15-06-2009 | Отправлено: 15:27 15-01-2011
    madmasles

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

    Цитата:
    вот такие файлы ar1x001, ar1x002, ar1x003, arp1x001 и до ar999x001, ar1x002, ar999x003, arp999x001
    Поменяйте этот кусок:
    Код:
    ;...
    If StringRegExp($aFileList[$i], '(ar|arp)\d{1,3}x00[1-3]', 0) And _
            Not StringRegExp($aFileList[$i], '(ar|arp)0', 0) Then
        FileMove($sDirFrom & '\' & $aFileList[$i], $sDirTo & '\' & _
                StringFormat('%03d', _
                StringRegExpReplace($aFileList[$i], '^(?:ar|arp)(\d{1,3})x.*', '\1')) & _
                '\' & $aFileList[$i], 9)
    EndIf
    ;...
    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 15:30 15-01-2011 | Исправлено: madmasles, 16:33 15-01-2011
    HandyCache

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles Не работает.
    Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 15:56 15-01-2011
    madmasles

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

    Цитата:
    Не работает.


    Исправил ошибку:
    Код:
    #include <File.au3>
     
    $sDirFrom = @ScriptDir ;папка в которой ищем
    $sDirTo = @ScriptDir & '\test' ;папка куда перемещаем
     
    If Not FileExists($sDirFrom) Then
        MsgBox(16, 'Error', 'Нет такой папки ' & $sDirFrom)
        Exit
    EndIf
    $aFileList = _FileListToArray($sDirFrom, 'ar*', 1)
    If @error = 4 Then
        MsgBox(16, 'Error', 'Нет таких файлов в папке ' & $sDirFrom)
        Exit
    EndIf
    For $i = 1 To $aFileList[0]
        If StringRegExp($aFileList[$i], '(ar|arp)\d{1,3}x00[1-3]', 0) And _
                Not StringRegExp($aFileList[$i], '(ar|arp)0', 0) Then
            FileMove($sDirFrom & '\' & $aFileList[$i], $sDirTo & '\' & _
                    StringFormat('%03d', _
                    StringRegExpReplace($aFileList[$i], '^(?:ar|arp)(\d{1,3})x.*', '\1')) & _
                    '\' & $aFileList[$i], 9)
        EndIf
    Next

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 16:31 15-01-2011 | Исправлено: madmasles, 16:41 15-01-2011
    HandyCache

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles Не работает.
    Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 17:13 15-01-2011
    madmasles

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

    Цитата:
    Не работает.
    Странно, у меня все работает без проблем.
    Сначала создаем эти файлы:
    Код:
    $sDirFrom = @ScriptDir & '\1'
     
    If Not FileExists($sDirFrom) Then
        DirCreate($sDirFrom)
    EndIf
    For $i = 1 To 3
        For $j = 0 To 999
            $sFile = $sDirFrom & '\ar' & $j & 'x' & StringFormat('%03d', $i) & '.txt'
            FileWrite($sFile, 'test ' & $sFile)
        Next
        For $j = 0 To 999
            $sFile = $sDirFrom & '\arp' & $j & 'x' & StringFormat('%03d', $i) & '.txt'
            FileWrite($sFile, 'test ' & $sFile)
        Next
    Next

    Теперь перемещаем:
    Код:
    #include <File.au3>
     
    $sDirFrom = @ScriptDir & '\1' ;папка в которой ищем
    $sDirTo = @ScriptDir & '\test' ;папка куда перемещаем
     
    If Not FileExists($sDirFrom) Then
        MsgBox(16, 'Error', 'Нет такой папки ' & $sDirFrom)
        Exit
    EndIf
    $aFileList = _FileListToArray($sDirFrom, 'ar*', 1)
    If @error = 4 Then
        MsgBox(16, 'Error', 'Нет таких файлов в папке ' & $sDirFrom)
        Exit
    EndIf
    For $i = 1 To $aFileList[0]
        If StringRegExp($aFileList[$i], '(ar|arp)\d{1,3}x00[1-3]', 0) And _
                Not StringRegExp($aFileList[$i], '(ar|arp)0', 0) Then
            FileMove($sDirFrom & '\' & $aFileList[$i], $sDirTo & '\' & _
                    StringFormat('%03d', _
                    StringRegExpReplace($aFileList[$i], '^(?:ar|arp)(\d{1,3})x.*', '\1')) & _
                    '\' & $aFileList[$i], 9)
        EndIf
    Next
    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 17:43 15-01-2011
    HandyCache

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles
    ar1x001, ar1x002, ar1x003, arp1x001, arp1x002, arp1x003 перемещаются, а ar1x004 по ar1x180, arp1x004 по arp1x180, где ar1, arp1 (1 число от 1 до 999) не перемещаются.
    Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 18:27 15-01-2011
    madmasles

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

    Цитата:
    вот такие файлы ar1x001, ar1x002, ar1x003, arp1x001 и до ar999x001, ar1x002, ar999x003, arp999x001
    Исходя из этого, перемещаются файлы от  ar(p)1x001 до ar(p)999x001, от  ar(p)1x002 до ar(p)999x002 и от  ar(p)1x003 до ar(p)999x003. Первые числа 1-999, а у вторых какие границы?
    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 19:23 15-01-2011
    HandyCache

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles
    001-999
    Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 19:55 15-01-2011
    madmasles

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

    Цитата:
    001-999

    Надо было это сразу указать.
    Не будет перемещать файлы вида ar(p)0x* и ar(p)0x000

    Код:
    #include <File.au3>
     
    $sDirFrom = @ScriptDir & '\1' ;папка в которой ищем
    $sDirTo = @ScriptDir & '\test' ;папка куда перемещаем
     
    If Not FileExists($sDirFrom) Then
        MsgBox(16, 'Error', 'Нет такой папки ' & $sDirFrom)
        Exit
    EndIf
    $aFileList = _FileListToArray($sDirFrom, 'ar*', 1)
    If @error = 4 Then
        MsgBox(16, 'Error', 'Нет таких файлов в папке ' & $sDirFrom)
        Exit
    EndIf
    For $i = 1 To $aFileList[0]
        If StringRegExp($aFileList[$i], '(ar|arp)\d{1,3}x\d{3}', 0) And _
                Not StringRegExp($aFileList[$i], '(ar|arp)0', 0) And _
                Not StringRegExp($aFileList[$i], '(ar|arp)0x000', 0) Then
            FileMove($sDirFrom & '\' & $aFileList[$i], $sDirTo & '\' & _
                    StringFormat('%03d', _
                    StringRegExpReplace($aFileList[$i], '^(?:ar|arp)(\d{1,3})x.*', '\1')) & _
                    '\' & $aFileList[$i], 9)
        EndIf
    Next
    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 20:32 15-01-2011 | Исправлено: madmasles, 20:34 15-01-2011
    HandyCache

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles Спасибо!
    Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 21:08 15-01-2011
    Black666angel



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

    Цитата:
    Вот отдельно утилита Exe2Aut.

    имено он есть но мне нужен новей яже напесал
    3.2.1x.x
    в смысле чтоб распоковывал скомпелированые AutoIt-ом 3.2.12.1 ну если есть то и выше
    Всего записей: 148 | Зарегистр. 05-09-2010 | Отправлено: 02:43 17-01-2011
    ViSiToR



    Silver Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Black666angel 02:43 17-01-2011
    Цитата:
    в смысле чтоб распоковывал скомпелированые AutoIt-ом 3.2.12.1

    Эту версию и распаковывает.
     

    Цитата:
    ну если есть то и выше

    Декомпиляция поддерживается только для версий 3.2.5.1 и ниже.

    ----------
    ViSiToR a.k.a CreatoR
    CreatoR это не ник, CreatoR это стиль жизни!
    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 03:04 17-01-2011
    AZJIO



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Утилита - для создания цветного текста в поздравительных / праздничных постах форума
    Всего записей: 4413 | Зарегистр. 03-05-2006 | Отправлено: 05:39 17-01-2011
    vicbox777



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Black666angel 01:43 17-01-2011
    Цитата:
    в смысле чтоб распоковывал скомпелированые AutoIt-ом 3.2.12.1 ну если есть то и выше

    Тебе нужен декомпилятор для autoit.
    P.S. Желательно не использовать на чужих программах.
    Всего записей: 165 | Зарегистр. 17-06-2008 | Отправлено: 15:34 17-01-2011 | Исправлено: vicbox777, 22:25 17-01-2011
    ViSiToR



    Silver Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    vicbox777 15:34 17-01-2011
    Цитата:
    Желательно не использовать на чужих программах.

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

    ----------
    ViSiToR a.k.a CreatoR
    CreatoR это не ник, CreatoR это стиль жизни!
    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 15:39 17-01-2011
    Black666angel



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    У кого плохие намерения да и какие у тебя самого я не знаю!!!!!! а мне нужно для нормальных дел
    чтоб их декомпелировать и использовать как пример
    к примеру авто установочные проги  
    а чьи-то проги декомпелировать переделывать и выкладывать как сваи не в моём репертуаре  
    ну если жалко не надо разберусь без вас просто думал вы поможете оказалось не Х..!!!!!!
     
    Всего записей: 148 | Зарегистр. 05-09-2010 | Отправлено: 01:20 19-01-2011
    adminchik2010

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

    Добрый день!    
    Помогите пожалуйста написать скрипт который:    
    1)Запускает приложение.    
    2)Поочередно открывает каждый элемент его проводника в отдельном окне(стать левой клавишей мыши на элемент проводника, после нажать правую клавишу и выбрать "Open in new window")    
    Вот начало:    
       
    Dim WS    
    Set WS = WScript.CreateObject("WScript.Shell")    
    WS.run chr(34)+"C:\Program Files\System Center Operations Manager 2007\Microsoft.MOM.UI.Console.exe"+chr(34)    
    WshShell.SendKeys("My Workspace")    
       
    Заранее спасибо!  
    Всего записей: 6 | Зарегистр. 17-11-2010 | Отправлено: 14:34 19-01-2011
    madmasles

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

    Цитата:
    Вот начало:    
         
    Dim WS    
    Set WS = WScript.CreateObject("WScript.Shell")...

    Что-то Ваше начало совсем не похоже на AutoIt. Вы раздел не перепутали случайно?
    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 15:33 19-01-2011
    AZJIO



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто знает, как добавить в GUICtrlCreateEdit поддержку Ctrl+A (без Send)
    Всего записей: 4413 | Зарегистр. 03-05-2006 | Отправлено: 04:12 21-01-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