Bună ziua lume
; Puneți la dispoziție o bibliotecă de valori constante. #include < MsgBoxConstants. au3> ; Afișează "Hello, world!" într-o casetă de mesaje. MsgBox($MB_SYSTEMMODAL, "Titlu", "Bună ziua, lume!")
Automatizarea calculatorului Windows
; Puneți la dispoziție o bibliotecă de valori constante. #include < MsgBoxConstants. au3> ; Afișează o casetă de mesaje cu un timp de așteptare de 6 secunde. MsgBox($MB_OK, "Atenție", "Evitați să atingeți tastatura sau mouse-ul în timpul automatizării.", 6) ; Rulați calculatorul Windows. Run("calc.exe") ; Așteptați ca calculatorul să devină activ cu un timeout de 10 secunde. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Dacă calculatorul nu a apărut după 10 secunde, atunci ieșiți din script. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Introduceți automat anul curent în calculator. Send(@YEAR) ; Să încetinim puțin scriptul pentru a putea vedea ce se întâmplă. Sleep(600) ; Tastați automat "divide cu 4", apoi dormiți 600 ms. Send("/4") Sleep(600) ; Apăsați tasta return pentru a afișa rezultatul, apoi dormiți 600 ms. Send("{ENTER}") Sleep(600) ; Copiați rezultatul în clipboard folosind prescurtarea Windows Ctrl+C. Send("^c") ; Declarați și atribuiți conținutul clipboard-ului unei variabile. Local $fResult = ClipGet() ; Verificați dacă variabila conține sau nu un punct zecimal. If StringInStr($fResult, ".") Then ; Afișează o casetă de mesaje cu un timp de așteptare de 5 secunde. MsgBox($MB_OK, "Leap Year", @YEAR & " nu este un an bisect.", 5) Else ; Acest mesaj va fi afișat numai dacă anul curent este un an bisect. MsgBox($MB_OK, "Leap Year", @YEAR & " este un an bisect.", 5) EndIf ; Închideți calculatorul Windows - întotdeauna faceți ordine după aceea. WinClose("[CLASS:CalcFrame]")
Găsiți media
; Find Average de JohnOne, modificat de czardas #include < MsgBoxConstants. au3> _Example() ; Executați exemplul. Func _Example() ; Afișează o casetă de introducere și cere utilizatorului să introducă câteva numere separate prin virgule. Local $sInput = InputBox("Find Average", "Enter some numbers separated by commas: 1,2,42,100,3") ; Dacă a apărut o eroare, atunci ieșiți din script. If @error Then Exit ; Umpleți o matrice cu datele introduse de utilizator. Local $aSplit = StringSplit($sInput, ",") ; Transmiteți matricea către funcția _Find_Average() și apoi verificați dacă există erori. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Afișează rezultatul într-o casetă de mesaje. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Exemplu Func _Find_Average($aArray) ; Dacă datele de intrare nu sunt de tipul corect (un array), atunci se returnează o eroare împreună cu detaliile. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Sunt posibile verificări mai detaliate, dar pentru a fi mai scurt, aici se efectuează doar una. ; Declarați o variabilă pentru a stoca suma numerelor. Local $iArraySum = 0 ; Rulează în buclă prin matrice. For $i = 1 To $aArray[0] ; Creșteți suma cu numărul din fiecare element al tabloului. $iArraySum += Number($aArray[$i]) Next; Întoarce media rotunjită la 2 zecimale. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
