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

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

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Внесите в шапку. Сорцы открытые FrontPAQ - GUI frontend for PAQ8PF and PAQ8PX
    http://encode.ru/threads/453-FrontPAQ-GUI-frontend-for-PAQ8PF-and-PAQ8PX?s=afc4e0cd657b8e5905206c1d25e5e057

    Всего записей: 586 | Зарегистр. 18-10-2008 | Отправлено: 18:41 31-08-2011
    azaktot

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день!
     
    Есть проблема.
     
    Есть компьютер в 4Гб ОЗУ, на нем установлена Windwows 7 Домашняя расширенная -32 бит
     
    Когда открываешь свойства системы мы видим что написано Установлено памяти 4Гб. Используется 3Гб.
     
    При использовании функции MemGetStats (1), мы получаем 3Гб.
     
    Вопрос как можно получить объем именно установленной памяти, т.е. 4Гб.

    Всего записей: 4 | Зарегистр. 03-07-2006 | Отправлено: 07:09 01-09-2011
    AZJIO



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    azaktot
    Говорят в 32 битной используется 3,5Гб, несмотря на то что система видит 4-х гиговую общую память.

    Всего записей: 4559 | Зарегистр. 03-05-2006 | Отправлено: 12:37 01-09-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет всем
     
    Почему у меня ListBox ни чего не возвращает.
    Код:
    Run (@ProgramFilesDir & "\Internet Explorer\Connection Wizard\inetwiz.exe")
    WinActivate ("Мастер подключения к Интернету", "")
    $List = ControlGetText("Мастер подключения к Интернету", "", "[CLASS:ListBox; INSTANCE:1]")  
    MsgBox (262144, "", $List)

     
    Хотя программа Au3Info явно показывает, что текст есть, и его много.

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 18:40 01-09-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Cosmogor
    Цитата:
    Почему у меня ListBox ни чего не возвращает.
    С ListBox ControlGetText() не работает. Попробуйте так:
    Код:
    #include <GUIListBox.au3>
    #include <Array.au3>;
     
    ;$sText = ''
    $hWin = WinWait('[Title:Заголовок; Class:Класс]', '', 3);Ваши данные
    If Not $hWin Then
        MsgBox(16, 'Error', 'Нет окна')
        Exit
    EndIf
    $hListBox = ControlGetHandle($hWin, '', '[CLASS:ListBox; INSTANCE:2]');Ваш ListBox
    If Not $hListBox Then
        MsgBox(16, 'Error', 'Error')
        Exit
    EndIf
    $iCount = _GUICtrlListBox_GetCount($hListBox)
    If $iCount < 1 Then
        MsgBox(16, 'Error', 'Error')
        Exit
    EndIf
    Dim $aText[$iCount + 1] = [$iCount];
    For $i = 0 To $iCount - 1
        $aText[$i + 1] = _GUICtrlListBox_GetText($hListBox, $i);
        ;$sText &= _GUICtrlListBox_GetText($hListBox, $i) & @LF
    Next
    ;MsgBox(0, '', $sText)
    _ArrayDisplay($aText);

     
    PS
    У меня на Windows XP нет ListBox`a на окне Мастер подключения к Интернету.
     
     

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



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles, с твоим кодом работает
    У меня тоже Windows XP, а ListBox на четвёртой странице,  
    но опять есть одно НО, если учётки для почты нет ни одной,
    то и ListBox нет тоже.
    Спасибо.
     
    ; Посылка символов непосредственно в текстовое поле  

    Код:
    ControlSend ("Мастер подключения к Интернету", "Сервер входя&щих сообщений:","Edit1", "pop.mail.ru")

    Если в Edit уже есть строка, то новая строка дописывается к уже имеющейся
    Как удалить имеющуюся строку из текстовое поля Edit.
     
     

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 10:40 02-09-2011 | Исправлено: Cosmogor, 15:33 02-09-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Cosmogor
    Цитата:
    Как удалить имеющуюся строку из текстовое поля Edit.
    Попробуйте ControlSetText().

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 15:41 02-09-2011
    Cosmogor



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles, аха-ха ну как же я сразу не догадался

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 15:58 02-09-2011
    klarus



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ещё раз попрошу помочь, в дополнение к просьбе:
    Можно как-то сделать что-бы лаунчер запускал программку с какими-либо параметрами?

    ----------
    В действительности всё совершенно иначе, чем на самом деле. © Сент-Экзюпери
    Не верьте золотом покрытым пластмассовым словам!

    Всего записей: 4315 | Зарегистр. 02-04-2007 | Отправлено: 07:29 04-09-2011
    madmasles

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

    Код:
    $sFileExe = @WindowsDir & '\notepad.exe'
    $sFile_Parametr = @ScriptDir & '\test.txt'
     
    $hFile = FileOpen($sFile_Parametr, 2)
    FileWrite($hFile, 'Путь к этому файлу - параметр запуска блокнота.')
    FileClose($hFile)
     
    If StringInStr($sFileExe, ' ') Then
        $sFileExe = '"' & $sFileExe & '"'
    EndIf
    If StringInStr($sFile_Parametr, ' ') Then
        $sFile_Parametr = '"' & $sFile_Parametr & '"'
    EndIf
     
    Run($sFileExe & ' ' & $sFile_Parametr)


    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 10:57 04-09-2011
    klarus



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    madmasles - спасибо,  
    но что бы не сказать о себе «полный дуб»)), скажу по другому - ну нифига не понял... ((
    Notepad - это как пример? Test.txt - это что и что содержит?
    Суть задачи6 есть портативная программка, исполняющий файл XXX.exe надо запускать с ключём /I:x2set.reg, в параметрах ярлыка для него, ну так раз она портативна, то почему нельзя этот параметр привязать к лодырю, что бы отвязать от ярлыка и не вязаться к СМD?

    ----------
    В действительности всё совершенно иначе, чем на самом деле. © Сент-Экзюпери
    Не верьте золотом покрытым пластмассовым словам!

    Всего записей: 4315 | Зарегистр. 02-04-2007 | Отправлено: 13:27 04-09-2011
    madmasles

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

    Код:
    $sFileExe = 'Полный путь к файлу XXX.exe';например, C:\Program Files\XXX\XXX.exe
    $sParametr = '/I:x2set.reg' ;или любой другой ключ(параметр)
    ;Если есть пробелы в пути, то ставим кавычки с двух строн
    If StringInStr($sFileExe, ' ') Then
        $sFileExe = '"' & $sFileExe & '"'
    EndIf
    ;Если есть пробелы в ключе(параметре), то ставим кавычки с двух строн
    If StringInStr($sFile_Parametr, ' ') Then
        $sParametr = '"' & $sParametr & '"'
    EndIf
    ;Запускаем файл $sFileExe с ключом(параметром) $sParametr (через пробел) или так:
    Run($sFileExe & ' ' & $sParametr)
    ;Или можно так, но что-нибудь одно:
    ShellExecute($sFileExe, $sParametr)

    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 13:36 04-09-2011 | Исправлено: madmasles, 13:48 04-09-2011
    klarus



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

    ----------
    В действительности всё совершенно иначе, чем на самом деле. © Сент-Экзюпери
    Не верьте золотом покрытым пластмассовым словам!

    Всего записей: 4315 | Зарегистр. 02-04-2007 | Отправлено: 13:52 04-09-2011 | Исправлено: klarus, 17:17 04-09-2011
    madmasles

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

    Можно использовать макросы: @ScriptDir и т.д. (@***Dir). Посмотрите их в справке.

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



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет всем
     
    Вот, делаю список всех найденных папок в файл.
    вот таким кодом:
     

    Код:
    #Include <File.au3>
     
    $Dir = @ScriptDir & "\WinNT.txt" ; Вернуть название для файла.
    $hFile = FileOpen($Dir, 2)       ; Открыть текстовый файл для записи.
    $path = @ScriptDir & "\$OEM$\$1\Drivers"  ; Путь к папке с драйверами.
     
    _Folders($path)
     
    ; Собственно сама функция поиска всех папок.
    Func _Folders($sDIR)
    Local $aDIR = _FileListToArray($sDIR,'*', 2)
    $iDEL = 0
    For $i=1 To $aDIR[0]
    $iDEL += _Folders($sDIR &"\"& $aDIR[$i])
    FileWrite($hFile, '' & $path &"\" & $aDIR[$i] & @CRLF)
    Next
    EndFunc

     
    Но, почему-то он у меня записывает все найденные папки
    с неправильными путями к ним.
     
    Вот батник хорошо отрабатывает, и все пути к найденным папкам правильные.
    И код в одну строку, а на AutoIT не реально написать также?
    Вон и код растянул на пол страницы, а отрабатывает не так, как надо
     
    for /f "tokens=4* delims=\" %%a in ('DIR "%CD%\$OEM$\$1\Drivers" /B /S /A:D') do Echo %%~b>>"%CD%\File.txt"

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 20:49 05-09-2011
    madmasles

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Cosmogor
    Цитата:
    Но, почему-то он у меня записывает все найденные папки  
     с неправильными путями к ним.
    А так:
    Код:
    #include <File.au3>
     
    $sFile = @ScriptDir & '\WinNT.txt'
    $sDIR = @ScriptDir & '\$OEM$\$1\Drivers'
    $sResult = ''
     
    $aDIR = _FileListToArray($sDIR, '*', 2)
    If Not @error Then
        For $i = 1 To $aDIR[0]
            $sResult &= $sDIR & '\' & $aDIR[$i] & @CRLF
        Next
        $hFile = FileOpen($sFile, 2)
        FileWrite($hFile, StringTrimRight($sResult, 2))
        FileClose($hFile)
    Else
        MsgBox(16, 'Error', 'Error')
    EndIf


    Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 21:49 05-09-2011
    Cosmogor



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

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 22:01 05-09-2011
    Zloy_Gelud



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

    Цитата:
    а подпапки не ищет

    Подробнее...

    Всего записей: 3267 | Зарегистр. 30-05-2007 | Отправлено: 22:46 05-09-2011
    Cosmogor



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

    Всего записей: 230 | Зарегистр. 22-04-2009 | Отправлено: 20:05 06-09-2011
    MIHMIH007



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Зравствуйте скажите пожалуйста а возможно написать скрипт для интернет страницы. Есть интернет страница на которую нужно зайти в определённое время потом в формы ввести логин и пароль и нажать одну кнопку. Возможно ли это реализовать с помощью AutoIT ?
    спасибо

    Всего записей: 743 | Зарегистр. 05-12-2006 | Отправлено: 18:10 07-09-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