Witajcie na świecie
; Udostępnić bibliotekę wartości stałych. #include < MsgBoxConstants. au3> ; Display "Hello, world!" in a messagebox. MsgBox($MB_SYSTEMMODAL, "Tytuł", "Hello, world!")
Automatyzacja kalkulatora Windows
; Udostępnić bibliotekę wartości stałych. #include < MsgBoxConstants. au3> ; Display a message box with a timeout of 6 seconds. MsgBox($MB_OK, "Uwaga", "Unikaj dotykania klawiatury lub myszy podczas automatyzacji", 6) ; Uruchom kalkulator Windows. Uruchom ("calc.exe") ; Poczekaj aż kalkulator stanie się aktywny z limitem czasu 10 sekund. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Jeśli kalkulator nie pojawił się po 10 sekundach, opuść skrypt. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Automatically type the current year into the calculator. Send(@YEAR) ; Zwolnijmy trochę skrypt, abyśmy mogli zobaczyć, co się dzieje. Sleep(600) ; Automatycznie wpisz 'divide by 4', a następnie uśpij 600 ms. Send("/4") Sleep(600) ; Naciśnij klawisz powrotu, aby wyświetlić wynik, a następnie uśpij 600 ms. Send("{ENTER}") Sleep(600) ; Skopiuj wynik do schowka, używając skrótu klawiszowego Windows Ctrl+C. Send("^c") ; Deklarowanie, i przypisywanie zawartości schowka do zmiennej. Lokalny $fResult = ClipGet() ; Sprawdź, czy zmienna zawiera kropkę dziesiętną, czy nie. If StringInStr($fResult, ".") Następnie ; Wyświetli okno wiadomości z limitem czasu 5 sekund. MsgBox($MB_OK, "Rok przestępny", @YEAR & " nie jest rokiem przestępnym.", 5) Else ; Ta wiadomość wyświetli tylko jeżeli bieżący rok jest rokiem przestępnym.MsgBox($MB_OK, "Leap Year", @YEAR & " is a leap year.", 5) EndIf ; Zamknij kalkulator Windows - zawsze posprzątaj po tym. WinClose("[CLASS:CalcFrame]")
Znajdź średnią
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Uruchom przykład. Func _Example() ; Wyświetl pole wejściowe i poproś użytkownika o wprowadzenie kilku liczb oddzielonych przecinkami.Lokalne $sInput = InputBox("Find Average", "Enter some numbers separated by commasas: 1,2,42,100,3") ; Jeśli wystąpił błąd, należy zamknąć skrypt. If @error Then Exit ; Wypełnij tablicę danymi wprowadzonymi przez użytkownika. Lokalne $aSplit = StringSplit($sInput, ",") ; Przekaż tablicę do funkcji _Find_Average() i następnie sprawdź, czy nie wystąpiły błędy. Lokalne $fAverage = _Find_Average($aSplit) If @error Then Exit ; Wyświetl wynik w polu wiadomości. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Example Func _Find_Average($aArray) ; Jeśli wejście nie jest właściwego typu (tablica), to zwróć błąd wraz ze szczegółami.Jeżeli nie jest typu IsArray($aArray), to zwróć SetError(1, 0, VarGetType($aArray)). ; Bardziej szczegółowe kontrole są możliwe, ale dla zwięzłości wykonuje się tylko jedną z nich tutaj. ; Deklarować zmienną do przechowywania sumy liczb. Lokalna $iArraySum = 0 ; Pętla przez tablicę. Dla $i = 1 do $aArray[0] ; Zwiększa sumę o liczbę w każdym elemencie tablicy. $iArraySum += Ilość($aArray[$i]) Dalej ; Zwróć średnią zaokrągloną do 2 miejsc po przecinku. Zwróć rundę($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average.
