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


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

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

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

Widok



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

AutoIt3
(Часть 1)

 
 
Домашняя страница: http://www.autoitscript.com
Страница загрузки: http://www.autoitscript.com/autoit3/downloads.php
 
Описание:

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

 
Помощь по AutoIT:
  • Справку на русском (и не только) вы всегда(?) сможете найти тут
  • Учебник по AutoIt для начинающих
  • Видео-руководства на YouTube (англ.)
  • AutoIt v3: Your Quick Guide (652 КБ) - Ваш быстрый гид в мир AutoIt-а (книга в формате pdf) - Та же книжка online.
  • Справочник по командам rundll32
  • Справка WinAPI (Win 32 API по шагам)
  • Русский справочник по API-функциям
  • Полезная информация по WinAPI на русском
  • Помощь по регулярным выражениям
  • Tutorial on DllCall() & DllStructs - Небольшое (пока?) руководство по использованию функции DllCall*()
     
     
    Ресурсы, посвящённые AutoIt
  • AutoIt в Википедии
  • AutoIt Russian Community - Русское сообщество AutoIt
  • Jabber-конференция для обсуждения мелких вопросов касающихся AutoIt
  • Обзор скриптового языка AutoIt (рус.)
  • AutoIt на Yahoo! Groups
  • Раздел в конфиренции OSzone.net, посвящённый AutoIt
  • Пополняющийся со временем сайт с полезными утилитами и функциями на AutoIt
  • Коллекция AutoIt-скриптов от Sanja Alone
  • Коллекция AutoIt-скриптов от MSFN (могут быть устаревшие).
  • Коллекция AutoIt-скриптов от AZJIO
     
     
    !!! Полезные советы и заметки - новичкам и не только
     
     
  • Рекомендации по написанию скриптов
     
     
    Инструменты для AutoIt:
  • AutoIt Path Switcher - Переключение пути к папке AutoIt.
  • AutoIt3Wrapper [Страница закачки] - Программа для компиляции скрипта с дополнительными возможностями (добавление значка, описания и т.п).
  • Koda (724 Kb) - Визуализация работы с GUI - аналог Visual Basic.
  • CodeWizard (400 Kb) - нечто простенькое на вариант Koda.
  • AutoItMacroGenerator (34 Kb) - Записывает в реальном времени действия пользователя в AutoIt-код.
  • ScriptWriter (78 Kb) - Аналог AutoItMacroGenerator.
  • API Constants (1042 Kb) - Утилита для просмотра всех констант API-функции и не только.
  • Страница закачки утилит, которые идут в отдельной поставке редактора SciTE.
  • AutoIt-меню для браузера Opera.
     
    Готовые скрипты и программы с открытым кодом на AutoIt:
  • Desktop Icons Restorator - Скрипт-программа для сохранения/восстановления позиции значков рабочего стола.
  • CaptureIt - Утилита для захвата изображений с экрана.
  • SwitchIt - Скрипт для конвертирования выделенного текста.
  • Скрипт раскраски кода AutoIt для публикации в форумах
     
    Общие вопросы и решения на Autoit:
  • Обработчик скриптов добавляющий отладчик (debugger) - Последняя версия: AutoItScript Add Debugger
  • Интеракция между несколькими скриптами
  • Пример использование интеракции между скриптами - Добавление элементов GUI с внешнего модуля
  • Чтение и запись данных с/в окна/о SciTE
  • Пример автообновления версии своего приложения
  • Копирование большого файла с отображением данных прогресса
  • Создание динамического меню в Tray Icon (значок в области уведомлений)
  • Пример создания своего мастера (Wizard)
  • Метод, позволяющий запускать код VBS без создания временных файлов
  • Описание функции GUIRegisterMsg()
  • Пример перехвата вводимых символов с клавиатуры
  • Пример деактивирования TabItem
  • Пример вывода лога в Edit-поле (с поддержкой форматирования текста)
  • Пример остановки/начало выполнения скрипта + Слежение за буфером обмена с заменой неподдерживаемых в имени файла символов
  • Подключение приложения (GUI) к буферу обмена
  • Пример использования меню с значками (ModernMenu.au3) -> Список программ в меню значка в системном трее
  • Пример подсчёта интервала времени между нажатиями клавиш
  • Слежение нажатых элементов в текущем окне (под курсором)
  • Написание instant messaging Бота на AutoIt
  • Способ, позволяющий посылать нажатие клавиши в неактивное окно (не путать со свёрнутым)
  • Сервер <=> Клиент - Пример передачи файла
  • Пример отображения только элементов GUI (без самой оболочки)
  • Модуль, превращающий ваше приложение в Trial-версию
  • Слежение за выделенным текстом и с последующим его помещением в файл
     
    Отдельные функции и библиотеки (UDF):
  • Функции, относящиеся к интернету
  • Функции для работы с процессами и окнами
  • Функции для работы с файлами
  • Функции для GUI/Tray
  • Системные функции
  • Разное (то, что не подпадает под другие категории)
     


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

  • Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 14:47 12-01-2009 | Исправлено: Maz, 11:50 17-04-2017
    AZJIO



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ViSiToR
    даже функция не понадобилась, просто повторил StringRegExp
     

    Код:
    #NoTrayIcon
        $sTarget = $CmdLineRaw
        If Not @Compiled Then $sTarget = StringTrimLeft($CmdLineRaw, StringLen('"' & @ScriptFullPath & '" '))
     
        $aLnk = FileGetShortcut($sTarget)
        If @error Then Exit
    $aPath = StringRegExp($aLnk[0], "(^.*)\\(.*)$", 3)
    $DirName = StringRegExp($aPath[0], "(^.*)\\(.*)$", 3)
     
    DirCopy($aPath[0], "C:\Temp\lnk_"&$DirName[1], 1)
    ;MsgBox(0, "вот они", $aPath[0]&@CRLF&$aPath[1]&@CRLF&$DirName[1])

     
    В реестр добавить
    Цитата:
    REGEDIT4
     
    [HKEY_CLASSES_ROOT\lnkfile\shell\ram]
    @="Старт из RAM"
     
    [HKEY_CLASSES_ROOT\lnkfile\shell\ram\command]
    @="\"C:\\WINDOWS\\system32\\ram.exe\" %1"

    Всего записей: 3515 | Зарегистр. 03-05-2006 | Отправлено: 21:02 17-09-2009 | Исправлено: AZJIO, 21:18 17-09-2009
    Loopback



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

    Цитата:
    а в Autoit3 разве это не реализовано?

    Нативно нет, хотя на оффоруме проскакивала такая UDF. А SoM изначально и создавался для обхода триалов и создания патчей/кряков/лоадеров и т.д.

    Всего записей: 174 | Зарегистр. 08-03-2002 | Отправлено: 22:51 17-09-2009
    ViSiToR



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    AZJIO 21:02 17-09-2009
    Цитата:
    просто повторил StringRegExp

    Зачем:
     

    Код:
     
    $aPath = StringRegExp(@ScriptFullPath, "(^.*\\(.*))\\(.*)$", 3)
     
    ConsoleWrite("FilePath: " & $aPath[0] & @CRLF)
    ConsoleWrite("DirName:  " & $aPath[1] & @CRLF)
    ConsoleWrite("FileName: " & $aPath[2] & @CRLF)

    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:16 17-09-2009
    Kiev78

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Написал такой кусочек скрипта:
    ----------------------------------------------------------------------

    Код:
        WinWait("TEST.TXT - Блокнот", "")
        $isNC = ControlCommand("TEST.TXT - Блокнот", "", "Edit1", "GetLine", 1)
        If StringRegExp($isNC, "%", 0) = 0 Then ContinueLoop
        If
    $isNC = "N0%" Then
            If
    StringRegExp(ControlGetText ("TEST.TXT - Блокнот", "", "Edit1"), "!A=0;", 0) Then
            $correct = ControlGetText ("TEST.TXT - Блокнот", "", "Edit1")
            $correct = StringRegExpReplace ($correct, "(N\d{1,5}[XYZ])0.(\r\n)", "\1<A>\2")
            ControlSetText("TEST.TXT - Блокнот", "", "Edit1", $correct, 0)
            EndIf
        Else
            If
    StringRegExp (ControlGetText ("TEST.TXT - Блокнот", "", "Edit1"), "#1=", 0) Then
            $correct = ControlGetText ("TEST.TXT - Блокнот", "", "Edit1")
            $correct = StringRegExpReplace ($correct, "(N\d{1,5} [XYZ])0.(\r\n)", "\1#1\2")
            ControlSetText ("TEST.TXT - Блокнот", "", "Edit1", $correct, 0)
            EndIf
        EndIf

    ----------------------------------------------------------------------
    Работает замечательно
    Возникла необходимость его чуть усовершенствовать с целью более корректной работы (есть там ньюансы):
    ----------------------------------------------------------------------

    Код:
        WinWait("TEST.TXT - Блокнот", "")
        $isNC = ControlCommand("TEST.TXT - Блокнот", "", "Edit1", "GetLine", 1)
        If StringRegExp($isNC, "%", 0) = 0 Then ContinueLoop
        If
    $isNC = "N0%" Then
            If
    StringRegExp(ControlGetText("TEST.TXT - Блокнот", "", "Edit1"), "!A=0;", 0) Then
            $correct = ControlGetText("TEST.TXT - Блокнот", "", "Edit1")
            $array = StringRegExp($correct, "N\d{1,5} [XYZ]{1}0.$", 0)
            MsgBox(0, @error, $array)
            EndIf
        Else
            If
    StringRegExp(ControlGetText("TEST.TXT - Блокнот", "", "Edit1"), "#1=", 0) Then
            $correct = ControlGetText("TEST.TXT - Блокнот", "", "Edit1")
            $array = StringRegExp($correct, "N\d{1,5} [XYZ]{1}0.$", 0)
            MsgBox(0, @error, $array)
            EndIf
        EndIf
    ----------------------------------------------------------------------
    Оказывается, то, что StringRegExpReplace с лёгкостью находит и заменяет, StringRegExp абсолютно не видит (при тех же образце текста и шаблоне поиска). Как я ни пытался, StringRegExp никак не может найти совпадения, хотя для StringRegExpReplace это не проблема (см. первоначальный вариант). Это глюк младшей версии, или как это понимать? Ведь синтаксис регулярных выражений для них одинаков (то есть то, что находит одна из них, должна находить и вторая и наоборот). Или я не прав?
    Прикладываю образец текста (из файла TEST.TXT), в котором я выполняю поиск и замену (хотя здесь это не принципиально):

    Цитата:
    % D20
    N2 S2500 M3
    N4 G0 G17 G40 G49 G90 G54
    N6 #1=0 #2=-0.1
    N07 #1=(#1-0.1) IF (#1<=#2) #1=#2
    N8 G0 X22. Y0. Z8.
    N10 Z0.
    N12 G1 X33. F50.
    N14 G0 Z8.
    N16 X0.
    N18 Z0.
    N20 G1 X11.
    N22 G0 Z8.
    N24 IF (#1<>#2) N07
    N26 G0 Z100 M30
    %
     

    Здесь я заменяю все Z0. (стоящие отдельной строкой) на Z#1 (при этом X0. должна остаться нетронутой).
    Вариант с тупой заменой Z0. на Z#1 (без использования регэкспов) не катит, так как образец может выглядеть и так:

    Цитата:
    % D20.
    N2 S2500 M3
    N4 G0 G17 G40 G49 G90 G54
    N6 #1=0 #2=-0.1
    N07 #1=(#1-0.1) IF (#1<=#2) #1=#2
    N8 G0 X22. Y-8. Z0.
    N10 Y0.
    N12 G1 X33. F50.
    N14 G0 Y-8.
    N16 X0.
    N18 Y0.
    N20 G1 X11.
    N22 G0 Y-8.
    N24 IF (#1<>#2) N07
    N26 G0 Z100 M30
    %
     
    В данном случае необходимо заменять Y0. на Y#1 (опять же не трогая X0.), также возможен ещё один вариант

    Цитата:
    % D20.
    N2 S2500 M3
    N4 G0 G17 G40 G49 G90 G54
    N6 #1=0 #2=-0.1
    N07 #1=(#1-0.1) IF (#1<=#2) #1=#2
    N8 G0 X8. Y22. Z0.
    N10 X0.
    N12 G1 Y33. F50.
    N14 G0 X8.
    N16 Y0.
    N18 X0.
    N20 G1 Y11.
    N22 G0 X8.
    N24 IF (#1<>#2) N07
    N26 G0 Z100 M30
    %
     
    В данном случае необходимо заменять X0. на X#1 (на этот раз не трогая Y0.).
    ----------------------------------------------------------------------------------------
    МНЕ НЕ НУЖНО ПИСАТЬ ГОТОВЫЙ СКРИПТ (я это сделаю сам), объясните только, почему StringRegExp не находит совпадений (MsgBox выводит 0)?

    Всего записей: 244 | Зарегистр. 17-06-2006 | Отправлено: 18:56 18-09-2009 | Исправлено: Kiev78, 19:10 18-09-2009
    kosjachok



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

    Код:
    $isNC = ",n,nmnxmcnv,xmcnv,mxn,cmvnx,mcn,vmnx,mcvn,xcnmvnx"
     $array = StringRegExp($isNC, "[a-z]", 0)
     MsgBox(0, @error, $array)
     Exit

    Отработал отлично...
    MsgBox выводит 1, поэтому ошибка где - то в рег. выражении...

    Всего записей: 677 | Зарегистр. 18-08-2004 | Отправлено: 23:21 18-09-2009
    Kiev78

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    То, что код отработал, это хорошо, у меня сомнений в этом нет, вопрос в том, что при одинаковых условиях StringRegExpReplace и StringRegExp ведут себя по разному.

    Цитата:
    поэтому ошибка где - то в рег. выражении.

    Если там ошибка, то почему тогда StringRegExpReplace всё правильно отрабатывает?

    Всего записей: 244 | Зарегистр. 17-06-2006 | Отправлено: 23:55 18-09-2009
    ViSiToR



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Kiev78 23:55 18-09-2009
    Цитата:
    при одинаковых условиях StringRegExpReplace и StringRegExp ведут себя по разному

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

    Цитата:
    почему тогда StringRegExpReplace всё правильно отрабатывает?

    Я если честно не вижу 100%-ной схожести этих вызовов, в StringRegExpReplace на конце используется «(\r\n)», а в StringRegExp просто «$» (конец всей строки). Можно привести отдельный пример, без файлов и прочего, просто демонстрация замены в строке и поиск совпадения?

    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 01:26 19-09-2009
    Kiev78

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Блин, точно. Чё то меня на старости лет бес попутал.
    Я почему-то думал, что «$» означает просто конец строки, что эквивалентно (\r\n) (переводу на новую строку).
    Как я не заметил этой разницы - ума не приложу (видимо взял не ту версию скрипта, а более старую).
    Всё, вопрос исчерпан.
     

    Цитата:
    Потому что у них разные методы обработки.  

    Я имел ввиду то, что находит одна, должна находить и вторая и наоборот (другое дело, что первая может ещё и заменять - но к сути вопроса это не относилось).

    Всего записей: 244 | Зарегистр. 17-06-2006 | Отправлено: 09:22 19-09-2009 | Исправлено: Kiev78, 09:35 19-09-2009
    ViSiToR



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Kiev78 09:22 19-09-2009
    Цитата:
    Я почему-то думал, что «$» означает просто конец строки, что эквивалентно (\r\n)

    Только если указать «(?m)» в начале или в группе, тогда «^» и «$» будут также обозначать начало новой строки. Кстати, «(\r\n)» не самая лучшая идея, ведь строки иногда могут переходить через одну лишь «\n», т.ч лучше всего использовать набор «[\r\n]», где будет найдена одна из них.

    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 13:24 19-09-2009
    Kiev78

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

    Цитата:
    строки иногда могут переходить через одну лишь «\n»

    В моем конкретном случае это не актуально (у меня всегда будет \r\n в силу узкой специфики применения скрипта) но в общем случае я конечно буду учитывать разные варианты.

    Всего записей: 244 | Зарегистр. 17-06-2006 | Отправлено: 14:55 19-09-2009 | Исправлено: Kiev78, 14:56 19-09-2009
    AZJIO



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

    Код:
    $file = FileOpen(@ScriptDir&'\base_lnk.txt',  0)
     
    ; проверка открытия файла
    If $file = -1 Then
        MsgBox(0, "Ошибка", "Не могу открыть файл.")
        Exit
    EndIf

     
    ; Чтение строк в массив
    While 1
        $aLine = FileReadLine($file)
        If @error = -1 Then ExitLoop
          ; $zzz1=_GUICtrlEditGetLineCount($aLine)
          ; и как угадать количество строк в файле, или число данных массива?

        $zzz=ControlCommand($file, "", "", "GetLineCount", "")
        MsgBox(0, "строки", $zzz)
    Wend
    FileClose($file)

    Всего записей: 3515 | Зарегистр. 03-05-2006 | Отправлено: 11:27 21-09-2009
    vicbox777



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AZJIO
    10:27 21-09-2009
    Цитата:
    как узнать количество строк в файле?


    Код:
    ;Пример 1
    #Include
    <File.au3>
    $file = (@ScriptDir&'\base_lnk.txt')  
     
    $CountLines=
    _FileCountLines($file)
    If @error=1 Then  
       
    MsgBox(0, "Ошибка", "Не могу открыть файл.")  
    Else  
    MsgBox(0, "строки", $CountLines)  
    EndIf
     
     
    ;Пример 2
    #include
    <file.au3>
    $file = (@ScriptDir&'\base_lnk.txt')  
     
    Global $aRecords
    If Not
    _FileReadToArray($file,$aRecords) Then
       
    MsgBox(4096,"Error", " Error reading log to Array ", @error)
       
    Exit
    EndIf
    ; В массиве $aRecords будут содержаться все строки файла...
    Msgbox
    (0,'Результат:', $aRecords[0])

    Всего записей: 162 | Зарегистр. 17-06-2008 | Отправлено: 12:29 21-09-2009 | Исправлено: vicbox777, 12:32 21-09-2009
    kronic

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Все привет не подскажите как можно запустить команду вида.
    %SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\VMCPropertyHandler.dll,LaunchVMSal "Windows XP Mode" "||a7a82959" "Sartorius ServiceSW Win 1.1"

    Всего записей: 168 | Зарегистр. 01-11-2006 | Отправлено: 12:53 21-09-2009
    ViSiToR



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    AZJIO 11:27 21-09-2009
    Цитата:
    как узнать количество строк в файле?

    Есть UDF _FileCountLines в стандартном наборе, но она имеет некоторые ошибки, вот переделанная версия:
     

    Код:
    $iCountLines = _FileCountLinesEx("Test.txt", 0)
    $sCL_Results = StringFormat("Lines = %i\n@error = %i\n", $iCountLines, @error)
     
    ConsoleWrite($sCL_Results)
     
    Func _FileCountLinesEx($sFilePath, $iCountLastLine=1)
        Local $iCountLines = 0
        Local $sFRead = FileRead($sFilePath)
     
        If @error = -1 Then Return SetError(1, 0, 0) ;The file is empty
        If @error <> 0 Then Return SetError(2, 0, 0) ;File not exists or other "Read" error.
     
        If Not $iCountLastLine Then $sFRead = StringStripWS($sFRead, 2)
     
        $sFRead = StringReplace($sFRead, @CRLF, "")
        $iCountLines += @extended
     
        $sFRead = StringReplace($sFRead, @CR, "")
        $iCountLines += @extended
     
        StringReplace($sFRead, @LF, "")
        $iCountLines += @extended
     
        Return $iCountLines + 1
    EndFunc

    Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 13:25 21-09-2009
    AZJIO



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

    Код:
    #Include <File.au3>
    $file = (@ScriptDir&'\base_lnk.txt')
     
    Global $aRecords
    If Not _FileReadToArray($file,$aRecords) Then
       MsgBox(4096,"Error", " Error reading log to Array ", @error)
       Exit
    EndIf

    ; В массиве $aRecords будут содержаться все строки файла...
    ; В массив $aLnk читается каждая строчка состоящая из данных ярлыка

    $DIR='C:\lnk'
    For $i=1 To $aRecords[0]
    $aLnk = StringSplit($aRecords[$i], "|")
        FileCreateShortcut($aLnk[2],$DIR&'\'&$aLnk[1]&'.lnk',$aLnk[3],$aLnk[4],$aLnk[5],$aLnk[6],'',$aLnk[7])
    Next

     
    а вот первая вкладка готова создателя ярлыков

    Всего записей: 3515 | Зарегистр. 03-05-2006 | Отправлено: 15:04 21-09-2009 | Исправлено: AZJIO, 15:09 21-09-2009
    VitAlll2013

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как изменить размер окна (формы) самого приложения AutoIT? Нажал на кнопку, и окно увеличилось на сколько то там пикселей...
     
    Добавлено:
    Почему при закрытии дочернего окна закрывается сразу вся программа?

    Всего записей: 33 | Зарегистр. 31-08-2008 | Отправлено: 14:19 22-09-2009
    mischael



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Друзья, доброго времени суток!
    на работе начальство выдумало новые политики безопасности и теперь каждому пользователю (продавцам и управленцам) нужно завести персональную учетку. Соответственно нужно настроить под каждой учеткой принтеры, доступ к некоторым каталогам и т.п.
    Руками под каждым юзером ЭТО настраивать, когда их несколько десятков, да еще и на нескольких компах (каждый должен получить все функции с любого компа) - просто нет смысла, если можно автоматизировать процесс с помощью autoIT
    Скачал, почитал хелп. возникли вопросы. Может кто-нибудь сможет ответить?
     
    1. Как в скрипт, запускаемый из-под пользователя (exe-файл) вписать изменение прав доступа к определенным папкам? То есть запускает юзер экзешник и ему добавляются права на папки, описанные в скрипте. я понимаю, что можно запустить cmd из-под учетки админа и с помощью cacls добавить прав юзеру на папки, но нет ли спецфункции или просто более лаконичного способа?
     
    2. Вытекает из первого. Можно ли получить информацию о текущем пользователе? (login@domain или domain\login)
     
    3. Можно ли после этого настроить, например, принтеры и права доступа "как у пользователя, у которого уже всё настроено" ?
     
    Спасибо за внимание.

    Всего записей: 251 | Зарегистр. 25-11-2007 | Отправлено: 19:14 22-09-2009 | Исправлено: mischael, 19:15 22-09-2009
    AZJIO



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mischael
    Скорее всего всё придётся прописывать вручную, само собой программа ничего не делает. Если нужно использовать cacls, то нужно как и в батниках добавлять строки старта программы с ключами и присваивать действие кнопке или делать последовательный скрипт, но в итоге получится тоже что делает батник.
    Здесь преимущество AutoIT только в создании оболочки управления в которой можно менять установки (логин, каталоги), опять же и батником можно такое выполнить, но ГУИ удобнее.
     

    Цитата:
    Можно ли получить информацию
    принцип такой: если информация хранится в реестре, то выполнить команду чтения параметра ветки реестра, сам AutoIT по неведомым причинам ничего не угадывает, всё что он угадывает должно хранится в самой системе.
     
    ______________________________
    create_lnk.au3

    Всего записей: 3515 | Зарегистр. 03-05-2006 | Отправлено: 20:07 22-09-2009 | Исправлено: AZJIO, 20:45 06-04-2010
    U235

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

    Цитата:
    Можно ли получить информацию о текущем пользователе? (login@domain или domain\login)  

    См. макросы @LogonDomain, @LogonServer, @UserName

    Всего записей: 513 | Зарегистр. 14-12-2005 | Отправлено: 20:27 22-09-2009
    vicbox777



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VitAlll2013
    13:19 22-09-2009
    Цитата:
    Как изменить размер окна (формы) самого приложения AutoIT? Нажал на кнопку, и окно увеличилось на сколько то там пикселей...

    Вот примерно так это делается:
    Код:
    #include <GuiConstants.au3>
     
    $GUI = GUICreate("Resize GUI", 300, 200)
     
    $ResizeGUI_Button =
    GUICtrlCreateButton("Resize", 20, 40, 70, 20)
    GUICtrlSetResizing(-1, $GUI_DOCKALL)
     
    GUISetState(@SW_SHOW, $GUI)
     
    While 1
       
    Switch GUIGetMsg()
           
    Case $GUI_EVENT_CLOSE
               
    Exit
            Case
    $ResizeGUI_Button
               
    Local $aGUI_Pos = WinGetPos($GUI)
     
               
    ;Увеличиваем размер GUI на 5 единиц с каждой стороны (в высоту и в ширену)
               
    WinMove
    ($GUI, "", $aGUI_Pos[0], $aGUI_Pos[1], $aGUI_Pos[2] + 5, $aGUI_Pos[3] + 5)
       
    EndSwitch
    WEnd


    Цитата:
    Почему при закрытии дочернего окна закрывается сразу вся программа?

    Значит неправильный код. Вот так будет работать:
    Код:
    #include <GuiConstantsEx.au3>
     
    $hGUI_Main = GUICreate("Main GUI", 300, 200)
     
    $AboutButton =
    GUICtrlCreateButton("About", 105, 50, 75, 23)
     
    $hGUI_Child = GUICreate("Child GUI", 200, 100, -1, -1, -1, -1, $hGUI_Main)
     
    GUISetState(@SW_SHOW, $hGUI_Main)
     
    While 1
       
    $msg =
    GUIGetMsg(1)
       
    Select
            Case
    ($msg[0] = $GUI_EVENT_CLOSE) And ($msg[1] = $hGUI_Main)
               
    Exit
            Case
    ($msg[0] = $GUI_EVENT_CLOSE) And ($msg[1] = $hGUI_Child)
               
    GUISetState(@SW_ENABLE, $hGUI_Main)
               
    GUISetState(@SW_HIDE, $hGUI_Child)
           
    Case $msg[0] = $AboutButton
               
    GUISetState(@SW_DISABLE, $hGUI_Main)
               
    GUISetState(@SW_SHOW, $hGUI_Child)
       
    EndSelect
    WEnd

    Всего записей: 162 | Зарегистр. 17-06-2008 | Отправлено: 22:54 22-09-2009
       

    Страницы: 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

    Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
    Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


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

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.Board
    © Ru.Board 2000-2017

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru