Ahoj svet
; Sprístupnite knižnicu konštantných hodnôt. #include < MsgBoxConstants. au3> ; Zobrazí "Hello, world!" v messageboxe. MsgBox($MB_SYSTEMMODAL, "Title", "Hello, world!")
Automatizácia kalkulačky systému Windows
; Sprístupnite knižnicu konštantných hodnôt. #include < MsgBoxConstants. au3> ; Zobrazte okno správy s časovým limitom 6 sekúnd. MsgBox($MB_OK, "Attention", "Avoid touching keyboard or mouse during automation.", 6) ; Spustite kalkulačku Windows. Run("calc.exe") ; Počkajte, kým sa kalkulačka stane aktívnou s časovým limitom 10 sekúnd. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Ak sa kalkulačka neobjavila po 10 sekundách, ukončite skript. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Automaticky zadajte aktuálny rok do kalkulačky. Send(@YEAR) ; Spomaľme trochu skript, aby sme videli, čo sa deje. Sleep(600) ; Automaticky zadajte "delenie 4" a potom spite 600 ms. Send("/4") Sleep(600) ; Stlačte kláves return, aby sa zobrazil výsledok, a uspite 600 ms. Send("{ENTER}") Sleep(600) ; Skopírujte výsledok do schránky pomocou klávesovej skratky Windows Ctrl+C. Send("^c") ; Deklarovať a priradiť obsah schránky do premennej. Local $fResult = ClipGet() ; Skontrolujte, či premenná obsahuje desatinnú čiarku alebo nie. If StringInStr($fResult, ".") Then ; Zobrazte okno so správou s časovým limitom 5 sekúnd. MsgBox($MB_OK, "Priestupný rok", @YEAR & " nie je priestupný rok.", 5) Else ; Táto správa sa zobrazí len vtedy, ak je aktuálny rok priestupný. MsgBox($MB_OK, "Leap Year", @YEAR & " is a leap year.", 5) EndIf ; Zatvorte kalkulačku Windows - vždy potom poupratujte. WinClose("[CLASS:CalcFrame]")
Zistiť priemer
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Spustite príklad. Func _Example() ; Zobrazte vstupné pole a požiadajte používateľa, aby zadal niekoľko čísel oddelených čiarkami. Local $sInput = InputBox("Find Average", "Zadajte niekoľko čísel oddelených čiarkami: 1,2,42,100,3") ; Ak nastala chyba, ukončite skript. If @error Then Exit ; Naplňte pole vstupom od používateľa. Local $aSplit = StringSplit($sInput, ",") ; Odovzdajte pole funkcii _Find_Average() a potom skontrolujte, či nedošlo k chybe. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Zobrazte výsledok v okne so správou. MsgBox($MB_OK, "Nájdi priemer", "Výsledok: " & $fAverage) EndFunc ;==>_Ukážka Func _Find_Average($aArray) ; Ak vstup nie je správneho typu (pole), potom vráťte chybu spolu s podrobnosťami. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Sú možné podrobnejšie kontroly, ale pre stručnosť sa tu vykoná len jedna. ; Deklarovať premennú na uloženie súčtu čísel. Local $iArraySum = 0 ; Prejdite pole v slučke. For $i = 1 To $aArray[0] ; Zvýšte súčet o číslo v každom prvku poľa. $iArraySum += Number($aArray[$i]) Next ; Vráťte priemer zaokrúhlený na 2 desatinné miesta. Vrátiť Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
