gyra Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Предыдущие обсуждения: Часть 1 | Часть 2 | Часть 3     AutoIt 3   Домашняя страница Страница загрузки Русское сообщество AutoIt   Описание: Цитата: AutoIt v3 - это язык для написания сценариев, напоминающий BASIC. Основным его назначением является автоматизация работ с Windows GUI (графическим интерфейсом пользователя MS Windows). Для выполнения этой сложной задачи предоставляется комбинация испытанных методов, включающих в себя эмуляцию нажатий комбинаций клавиш клавиатуры, перемещения указателя мыши, управление окнами и их визуальными элементами. Как показывает практика, эти "приводные ремни" весьма эффективны для получения работающих решений в ситуациях, когда другие стандартные средства (например, VBScript и SendKeys) оказываются бессильны. Умеет он очень и очень многое! Бесплатный.   Справки Инструменты Ресурсы, посвящённые AutoIt Полезные советы новичкам и не только Готовые решения Версии для устаревших Windows Скрипт раскраски кода AutoIt для публикации в форумах     За шапкой следит ViSiToR / AZJIO   Всего записей: 7932 | Зарегистр. 18-02-2006 | Отправлено: 10:49 23-01-2020 | Исправлено: Egor2020, 14:02 22-03-2021

Habib2302 Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как исключить @AutoItExe из поиска файлов FileFindFirstFile и FileFindNextFile Всего записей: 529 | Зарегистр. 09-05-2012 | Отправлено: 16:53 23-10-2021

Habib2302 Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Skif_off Я поставил перед циклом и все равно Код: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseUpx=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** $hSearch = FileFindFirstFile('*.*') StringRegExpReplace(@AutoItExe, '^.*\\', '') If $hSearch = -1 Then     MsgBox(4096, "Ошибка", "Ни один из файлов не найден")     Exit EndIf While 1     $sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего     If @error Then         ExitLoop     EndIf     ConsoleWrite($sFile & @CRLF) ; File.exe     $sDir = StringLeft($sFile, StringInStr($sFile, ".", 0, -1) - 1)     ConsoleWrite($sDir & @CRLF) ; File     ShellExecuteWait(@ScriptDir & '\bin\ap28.exe','-res=' & @ScriptDir & '\' & $sFile & ',0 -icon=' & @ScriptDir & '\' & $sDir & '.ico -formats=16,24,32,48') WEnd ; Закрывает дескриптор поиска FileClose($hSearch) Всего записей: 529 | Зарегистр. 09-05-2012 | Отправлено: 20:32 23-10-2021 | Исправлено: Habib2302, 20:32 23-10-2021

Skif_off Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Habib2302 Код: $hSearch = FileFindFirstFile('*.*') If $hSearch = -1 Then     MsgBox(4096, "Ошибка", "Ни один из файлов не найден")     Exit EndIf $sAu3Exe = StringRegExpReplace(@AutoItExe, '^.*\\', '') While 1     $sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего     If @error Then         ExitLoop     EndIf     If $sFile = $sAu3Exe Then         ContinueLoop     EndIf     ConsoleWrite($sFile & @CRLF) ; File.exe     $sDir = StringLeft($sFile, StringInStr($sFile, ".", 0, -1) - 1)     ConsoleWrite($sDir & @CRLF) ; File     ShellExecuteWait(@ScriptDir & '\bin\ap28.exe','-res=' & @ScriptDir & '\' & $sFile & ',0 -icon=' & @ScriptDir & '\' & $sDir & '.ico -formats=16,24,32,48') WEnd ; Закрывает дескриптор поиска FileClose($hSearch)   Habib2302, спасибо, давненько не писал Исправил пост на всякий. Всего записей: 6489 | Зарегистр. 28-01-2008 | Отправлено: 21:13 23-10-2021 | Исправлено: Skif_off, 17:53 24-10-2021

Habib2302 Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Skif_off Спасибо. Только есть одна ошибка. ContinueCase заменить ContinueLoop Всего записей: 529 | Зарегистр. 09-05-2012 | Отправлено: 13:48 24-10-2021

Andrey_A_A Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: кодировка 256 king_stiven, даже на последних бета версиях Autoit функция FileGetEncoding() может работать "криво"... может выдавать значения более 1000, пару раз видел 2048, 16384, для себя пользуюсь "заплаткой", но она тоже иногда не помогает...   Код: #include <Encoding.au3>   $sFile='C:\test.xxx' $iCode=__FileGetEncoding($sFile) MsgBox(4096,'Переменная $iCode','$iCode =>'&$iCode&'<=')   Func _FileGetEncoding($sFile,$n=-1)   $i=FileGetEncoding($sFile,2)   Return($i=256 Or $i>999)?(_Encoding_GetFileEncoding($sFile,$n)? $i :520): $i EndFunc   Func __FileGetEncoding($sFile,$n=-1)   $aRet=StringRegExp('|32|2|1024|2|64|3|2048|3|128|4|256|4|16384|4|','\|'&_FileGetEncoding($sFile,$n)&'\|([^\|]+)\|',3)   Return @error ?1: Number($aRet[0]) EndFunc Всего записей: 1390 | Зарегистр. 15-08-2011 | Отправлено: 13:18 30-11-2021 | Исправлено: Andrey_A_A, 13:25 30-11-2021

iglezz Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Andrey_A_A Цитата: пару раз видел 2048, 16384 1024 и 2048 вполне допустимые значения (UTF-16-LE/BE без BOM), если конечно FileGetEncoding() угадал кодировку   king_stiven Цитата: FileWrite   Записывает данные в конец файла.   Ну да, это логично. А в чём вопрос?   Цитата: При записи текста AutoIt'ом по умолчанию используется ANSI С 2015 года (v3.3.14.0) по умолчанию используется UTF-8 без BOM. Если это цитата из какого-то справочника, то его полезность уже местами не очень. Как минимум рекомендую сверяться с оригинальной справкой. Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 00:47 01-12-2021 | Исправлено: iglezz, 00:48 01-12-2021

xrun1 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору v3.3.14.5 When writing text AutoIt will write using UTF8 (without BOM) by default. To write in another mode the file must be opened with FileOpen() and the relevant flags. Всего записей: 721 | Зарегистр. 26-12-2009 | Отправлено: 03:11 01-12-2021

xrun1 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Naytaco Обе - графическая оболочка для консольной системной утилиты chkdsk.exe. Что там внутри одному Богу только авторам известно. Можно запустить Проводник. ПКМ на диске --> Свойства --> Сервис и там проверить на наличие ошибок. Всего записей: 721 | Зарегистр. 26-12-2009 | Отправлено: 18:26 18-12-2021

AZJIO Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Naytaco Цитата: Или без разницы, все дело в наглядности и внешнем виде? В комплекте даже батник есть, то есть даже не нужна утилита, а зная какие ключи используются, то можно и ручками вписать ключи \F \X и указать диск. Но многие любят чтобы было красиво (пока не говорим о совместимости). Утилита показывает какие ключи включены, то есть видя их можно запомнить, в строке состояния пишет ком строку. Простота выбора, можно выбрать сразу несколько дисков, а не по одному. Можно добавить проверку в реестр, чтобы она прошла на старте системы, так как винда не позволит проверить диск на котором она находится. Больше информации о диске, что позволяет более уверенно идентифицировать что проверяется тот диск который надо. По отсутствию информации можно понять что ОС не может получить инфу о диске. автоматическое обновления при подключении/отключении устройства, в том числе дисков с несколькими логическими дисками. Использование стилей для вывода информации. Итог, можно не иметь ни одной, можно иметь батник на пару кб, можно упрощённый GUI (40кб), а можно не упрощённый GUI (113 кб). И ещё есть AutoIt3-версия утилиты, что ближе к теме AutoIt3, но размер к сожалению в разы больше - 600 кб. Всего записей: 4413 | Зарегистр. 03-05-2006 | Отправлено: 08:59 28-12-2021 | Исправлено: AZJIO, 09:21 28-12-2021

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 4)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование