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

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



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ynbIpb
    не получается

    Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 21:27 07-12-2010
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    RW4PIR
    А так:
    Код:
    #include <IE.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    GUICreate("KENT ICQ-564949436", 1000, 600)
    GUICtrlCreatePic(@ScriptDir & "\fon.gif", 0, 0, 1000, 80)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tab = GUICtrlCreateTab(0, 80, 1000, 600)
    $tab0 = GUICtrlCreateTabItem("Новости")
    GUICtrlCreatePic(@ScriptDir & "\fon.gif", 0, 100, 1000, 600)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $oIE = ObjCreate("Shell.Explorer.2")
    $GUIActiveX = GUICtrlCreateObj($oIE, 50, 100, 560, 370)
    $tab1 = GUICtrlCreateTabItem("Программы")
    $tab2 = GUICtrlCreateTabItem("Драверы")
    $tab3 = GUICtrlCreateTabItem("О Программе")
    GUICtrlCreateTabItem("")
    GUISetState()
    $oIE.navigate('http://overlockers.genref.ru/index.php')
     
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
        EndSelect
    WEnd

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 21:39 07-12-2010
    RW4PIR



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    madmasles
    картинку надо не во вкладке а над вкладками, но переключатель вкладок находится должен над картинкой

    Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 21:46 07-12-2010
    ynbIpb



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

    Цитата:
    не получается

    Видимо что-то с руками?


    Код:
    GUICtrlCreatePic(@ScriptDir & "\image.jpg",0,0,1000,106, $WS_CLIPSIBLINGS)
    GUICtrlCreateButton ( "кнопко", 10, 10 )
    GUICtrlCreateCombo ( "item1", 10, 40, 100, 15)
    GUICtrlSetData(-1, "item2|item3", "item3")

     

    Цитата:
    картинку надо не во вкладке а над вкладками

    О. там еще вкладки есть? Не заметил.

    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 21:46 07-12-2010 | Исправлено: ynbIpb, 21:48 07-12-2010
    RW4PIR



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

    Цитата:
    О. там еще вкладки есть?

    ну
     
    и как делать 7

    Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 21:56 07-12-2010
    ynbIpb



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

    Код:
    $tab=GUICtrlCreateTab (0, 80, 1000,600)
    GuiCtrlSetState(-1,$GUI_ONTOP)

    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 22:02 07-12-2010
    RW4PIR



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ynbIpb
     
    при открытии видно каритинку не видно вкладок, когда подвожу курсор то вкладка над которой курсор прорисовываетмся сквозь картинку

    Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 22:05 07-12-2010
    ynbIpb



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

    Код:
    GUICtrlCreatePic(@ScriptDir & "\image.jpg",0,0,1000,106, $WS_CLIPSIBLINGS)
    GUICtrlSetState(-1, $GUI_DISABLE)


    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 22:06 07-12-2010 | Исправлено: ynbIpb, 22:06 07-12-2010
    RW4PIR



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ynbIpb
    немного ен так хотел, но походу так нельзя сделать как я хотел
     
    хотел типо так:
    http://www.3dnews.ru/_imgdata/img/2010/12/06/603104/Untitled-4.jpg

    Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 22:11 07-12-2010
    CAHEK77



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как эту прогу использовать AutoItMacroGenerator что бы кейген автоматически активировал  игру в конце установки ?

    Всего записей: 107 | Зарегистр. 14-10-2010 | Отправлено: 18:04 08-12-2010
    ynbIpb



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    лучше не связываться с подобным софтом, а приложить усилия и чуток вникнуть в язык. Самому написать скрипт руками. По подробнее задачу разъясни.

    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 19:15 08-12-2010
    CAHEK77



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ynbIpb
    На примере кейгена от TRiViUM для Искусство войны: Битва за Кан (Ссылка на кейген).
    Какой нужно прописать код , чтобы когда установится Игра, кейген автоматически активирует игру.
    1. Нужно чтобы он активировал абсолютно сам.
    2. Нужно чтобы он это делал в скрытом режиме.
    3. делал после установки игры.

    Всего записей: 107 | Зарегистр. 14-10-2010 | Отправлено: 19:51 08-12-2010
    AZJIO



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

    Код:
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons","3","REG_SZ",'%SystemRoot%\Turquoise.dll,10')

    для смены иконки папки, ну и вообще любой иконки shell32.dll. Проблема в обновлении,

    Код:
    DllCall("shell32.dll", "none", "SHChangeNotify", "long", '0x8000000', "uint", '0x1000', "ptr", '0', "ptr", '0')
    не помогает. Утилиткой reico.exe или "Icon Refresh.exe" можно обновить, а AutoIt3'ом не получается.

    Всего записей: 4409 | Зарегистр. 03-05-2006 | Отправлено: 21:00 08-12-2010
    asdf8

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

    Цитата:
    а AutoIt3'ом не получается

     
    а так:
     

    Код:
     
    DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "uint", 0x1000, "ptr", 0, "ptr", 0)
     


    Всего записей: 92 | Зарегистр. 06-05-2007 | Отправлено: 23:13 08-12-2010
    AZJIO



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

    Цитата:
    а так:  
    как я и предполагал, не помогло. Ведь сама функция работает, если менять иконку папки через desktop.ini, значит параметры воспринимает. А в утилите reico.exe обновление происходит в три шага, так как эксплорер три раза перемигивает и думает при этом 1-3 сек, взависимости от изменений системы. Обновляет %UserProfile%\Local Settings\Application Data\IconCache.db (?). Так что это не просто F5.

    Всего записей: 4409 | Зарегистр. 03-05-2006 | Отправлено: 05:42 09-12-2010 | Исправлено: AZJIO, 07:43 09-12-2010
    ynbIpb



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    CAHEK77, еще неизвестно как получать Hardware ID из игры и передать ей ключег.
    Работа с кейгеном выглядит примерно так:

    Код:
    $sWin = "[TITLE:Theatre of War 2: Battle for Caen KeyGen; CLASS:#32770]" ; часть заголовка и класс окна кейгена
    $sHardID = "1234567890" ; Hardware ID
    $iPid = ProcessExists ("Caen_KeyGen.exe") ; проверяем запущен ли кейген
    If $iPid = 0 Then ; если нет, то запускаем
        $iPid = Run (@scriptdir & "\Caen_KeyGen.exe"); запускаем кейген
    EndIf
    $hKeygenWin = WinWait ($sWin, "", 10)
    sleep (1000); задержка, до полного появления окна кейгена
    ;WinSetState ($hKeygenWin, "", @SW_HIDE); скрываем окно

    ControlSetText ($hKeygenWin, "", "Edit2", $sHardID); вставляем HardwareID
    sleep (100)
    ControlClick ($hKeygenWin, "", "Button5"); нажимаем Get key
    sleep (100)
    $sKey = ControlGetText ($hKeygenWin, "", "Edit3") ; читаем поле с ключегом
    ProcessClose ($iPid) ; убиваем процесс кейгена
    MsgBox (0, "", "key: "& $sKey)

    Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 08:58 09-12-2010
    VV2006

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет творцам-ваятелям на автоите!
    По наводке AZJIO пробежался по верхушкам тёмного для меня леса. Дров пока не наломал, но и задачу свою с кондачка не решил. Итак, суть забавы связана с удобством использования загрузочных флешек как в среде PE винды, так и в "живой" системе.  
    Чтобы флешке присваивалась одна и таже буква, ChrisR с бутлэнда скомпилил замечательную утильку. Приспособив её в автозапуск семёрочной PE, удобно решаю кучу задач без пересборки образа - внешний батник работает с заданной флешке буквой Y.  
    По образу, такскать, и подобию попробовал скомпилить из au3 экзешник для XP. Закоментил четыре строчки условия, относящегося к W7 после Global $wait = 1000, $boucle = 10, запустил Aut2exe.exe и... в ходе конвертации вылазит ошибка добавления файла Win32\ReMount.exe.
    В принципе, скрипт+ReMount.exe задачу перемонтирования буквы решают, но хотелось всё же красиво - одним эзешником.

    А-а-а!!! Ацтаветь! Пишу быстрее, чем думаю: путь Win32\ убрал, и всё получилось.
    Чтоб два раза не ходить, другой вопрос: есть способ скрыть окно работы PENetwork? Чтоб он незаметно выполнялся? Может тоже скрипт в экзешник перепилить, а уж экзешник тот захайдить?

    Всего записей: 2123 | Зарегистр. 10-02-2006 | Отправлено: 11:07 09-12-2010 | Исправлено: VV2006, 11:25 09-12-2010
    AZJIO



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

    Цитата:
    $version='PE Network Manager 0.56'
    там по скрипту в переменную указывается текст "PE Network Manager 0.56", а желательно вместо текста далее по скрипту указывать переменную $version, а то при смене версии приходится текст во всех упоминаниях подправлять, это было ещё при версии 39, 43, 45 и т.д. Поэтому я вывел заголовок в переменную, чтоб один раз менять в начале скрипта.
    2. Переменная $keyExit="0" далее по скрипту не исползуется, можно убрать.
    3. Exit тоже можно не указывать в конце, скрипт сам выполнив команды завершается (аналогично батнику).
     

    Цитата:
    есть способ скрыть окно работы PENetwork?
    по идее некоторые команды не требуют отображения окна, но эмуляция Send("{TAB 9}") может выполнятся на активном окне.

    Всего записей: 4409 | Зарегистр. 03-05-2006 | Отправлено: 12:13 09-12-2010 | Исправлено: AZJIO, 12:15 09-12-2010
    VamPIr4eg174



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как в autoit`e увеличить скорость воспроизведения записанного макроса???

    Всего записей: 10 | Зарегистр. 09-12-2010 | Отправлено: 13:23 09-12-2010
    SAOPP

    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Ребят, ну кто-нить поможет со скриптом:

    Код:
    Opt("WinTitleMatchMode",2)  
    WinSetState ("Mozilla Thunderbird", "", @SW_MINIMIZE)

    При подобном решении, происходит сворачивание в окно (оно изначально развёрнуто на весь экран), а нужно на панель задач аналогично нажатию на кнопочку свернуть мышкой...

    Всего записей: 1048 | Зарегистр. 28-11-2004 | Отправлено: 13:58 09-12-2010 | Исправлено: SAOPP, 14:00 09-12-2010
       

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