Здравствуйте, мир
Предоставить библиотеку постоянных значений. #include < MsgBoxConstants. au3> ; Отображает "Привет, мир!" в окне сообщений. MsgBox($MB_SYSTEMMODAL, "Title", "Hello, world!") ; Отображает "Hello, world!".
Автоматизация калькулятора Windows
Предоставить библиотеку постоянных значений. #Включить < MsgBoxConstants. au3> ; Отобразить окно сообщения с тайм-аутом 6 секунд. MsgBox($MB_OK, "Внимание", "Не прикасаться к клавиатуре или мыши во время автоматизации", 6) ; Запустить Windows Calculator. Run("calc.exe") ; Дождитесь активации калькулятора с тайм-аутом 10 секунд. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Если через 10 секунд калькулятор не появился, то выходите из скрипта. Если WinExists("[CLASS:CalcFrame]") = 0, то выход ; Автоматически введите текущий год в калькулятор. Send(@YEAR) ; Давайте немного притормозим скрипт, чтобы посмотреть, что происходит. Sleep(600) ; Автоматически набираем 'поделить на 4', а затем спим 600 мс. Send("/4") Sleep(600) ; Нажмите клавишу возврата, чтобы отобразить результат, и спите 600 мс. Send("{ENTER}") Sleep(600) ; Скопируйте результат в буфер обмена, используя комбинацию клавиш Windows Ctrl+C. Send("^c") ; Объявите и присвойте переменной содержимое буфера обмена. Local $fResult = ClipGet() ; Проверяем, содержит ли переменная десятичную точку или нет. Если StringInStr($fResult, ".") , то ; Отобразить окно сообщения с тайм-аутом 5 секунд. MsgBox($MB_OK, "Високосный год", @YEAR & " не високосный год", 5) Иначе ; Это сообщение будет отображаться только в том случае, если текущий год является високосным.MsgBox($MB_OK, "Високосный год", @YEAR & " - это високосный год", 5) EndIf ; Закройте калькулятор Windows - всегда приводите в порядок после этого. WinClose("[CLASS:CalcFrame]")
Найти среднее
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Запустите пример. Func _Example() ; Отображает поле ввода и просит пользователя ввести некоторые числа, разделенные запятыми.Локальный $sInput = InputBox("Find Average", "Введите несколько чисел, разделенных запятыми: 1,2,42,100,3"). Если произошла ошибка, выйдите из скрипта. Если @error Then Exit ; Заполните массив входными данными пользователя. Local $aSplit = StringSplit($sInput, ",") ; Передаем массив в функцию _Find_Average(), а затем проверяем на наличие ошибок. Локальное $fAverage = _Find_Average($aSplit) If @error Then Exit ; Отображает результат в окне сообщений. MsgBox($MB_OK, "Find Average", "Результат: " & $fAverage) EndFunc ;==>_Example Func _Find_Average($aArray) ; Если вход не правильного типа (массив), то возвращаем ошибку вместе с деталями.Если не IsArray($aArray), то возвращаем SetError(1, 0, VarGetType($aArray)) ; Более детальная проверка возможна, но для краткости здесь выполняется только одна. ; Объявите переменную для хранения суммы чисел. Локальный $iArraySum = 0 ; Проходим через массив. For $i = 1 To $aArray[0] ; Увеличиваем сумму на число в каждом элементе массива. $iArraySum += Number($aArray[$i]) Next ; Возвращаем среднее округленное до 2-х знаков после запятой. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
