Ahoj světe
; Zpřístupněte knihovnu konstantních hodnot. #include < MsgBoxConstants. au3> ; Zobrazí "Hello, world!" v messageboxu. MsgBox($MB_SYSTEMMODAL, "Title", "Hello, world!")
Automatizace kalkulačky systému Windows
; Zpřístupněte knihovnu konstantních hodnot. #include < MsgBoxConstants. au3> ; Zobrazte okno zprávy s časovým limitem 6 sekund. MsgBox($MB_OK, "Attention", "Avoid touching keyboard or mouse during automation.", 6) ; Spusťte kalkulačku Windows. Run("calc.exe") ; Počkejte, až bude kalkulačka aktivní s časovým limitem 10 sekund. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Pokud se kalkulačka neobjevila ani po 10 sekundách, ukončete skript. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Automaticky zadejte aktuální rok do kalkulačky. Send(@YEAR) ; Trochu zpomalíme skript, abychom viděli, co se děje. Sleep(600) ; Automaticky zadáme 'děleno 4' a pak uspíme 600 ms. Send("/4") Sleep(600) ; Stiskněte klávesu return, aby se zobrazil výsledek, a uspěte 600 ms. Send("{ENTER}") Sleep(600) ; Zkopírujte výsledek do schránky pomocí klávesové zkratky Windows Ctrl+C. Send("^c") ; Deklarujte a přiřaďte obsah schránky do proměnné. Local $fResult = ClipGet() ; Zkontrolujte, zda proměnná obsahuje desetinnou tečku, nebo ne. If StringInStr($fResult, ".") Then ; Zobrazte okno se zprávou s časovým limitem 5 sekund. MsgBox($MB_OK, "Přestupný rok", @YEAR & " není přestupný rok.", 5) Else ; Tato zpráva se zobrazí pouze v případě, že aktuální rok je přestupný. MsgBox($MB_OK, "Přestupný rok", @YEAR & " je přestupný rok.", 5) EndIf ; Zavřete kalkulačku Windows - vždy po ní ukliďte. WinClose("[CLASS:CalcFrame]")
Zjistěte průměrnou hodnotu
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Spusťte příklad. Func _Example() ; Zobrazte vstupní pole a požádejte uživatele o zadání několika čísel oddělených čárkami. Local $sInput = InputBox("Najdi průměr", "Zadej několik čísel oddělených čárkami: 1,2,42,100,3") ; Pokud došlo k chybě, ukončete skript. If @error Then Exit ; Naplňte pole vstupem od uživatele. Local $aSplit = StringSplit($sInput, ",") ; Předejte pole funkci _Find_Average() a poté zkontrolujte, zda nedošlo k chybě. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Zobrazte výsledek v okně se zprávou. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Příklad Func _Find_Average($aArray) ; Pokud vstup není správného typu (pole), pak vrátíme chybu spolu s podrobnostmi. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Je možné provést podrobnější kontroly, ale pro stručnost zde provedeme pouze jednu. ; Deklarujte proměnnou pro uložení součtu čísel. Local $iArraySum = 0 ; Projděte pole ve smyčce. For $i = 1 To $aArray[0] ; Zvyšte součet o číslo v každém prvku pole. $iArraySum += Number($aArray[$i]) Next ; Vraťte průměr zaokrouhlený na 2 desetinná místa. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
