Γεια σας κόσμε
; Διαθέστε μια βιβλιοθήκη σταθερών τιμών. #include < MsgBoxConstants. au3> ; Εμφανίζει το "Hello, world!" σε ένα πλαίσιο μηνυμάτων. MsgBox($MB_SYSTEMMODAL, "Title", "Hello, world!")
Αυτοματοποίηση της αριθμομηχανής των Windows
; Διαθέστε μια βιβλιοθήκη σταθερών τιμών. #include < MsgBoxConstants. au3> ; Εμφανίστε ένα πλαίσιο μηνυμάτων με χρονικό όριο 6 δευτερολέπτων. MsgBox($MB_OK, "Attention", "Avoid touching the keyboard or mouse during automation.", 6) ; Εκτελέστε την αριθμομηχανή των Windows. Run("calc.exe") ; Περιμένετε να ενεργοποιηθεί η αριθμομηχανή με χρονικό όριο 10 δευτερολέπτων. WinWaitActive("[CLASS:CalcFrame]", "", 10) ; Αν η αριθμομηχανή δεν εμφανίστηκε μετά από 10 δευτερόλεπτα τότε βγείτε από το σενάριο. If WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; Πληκτρολογήστε αυτόματα το τρέχον έτος στην αριθμομηχανή. Send(@YEAR) ; Ας επιβραδύνουμε λίγο το σενάριο για να δούμε τι συμβαίνει. Sleep(600) ; Πληκτρολογήστε αυτόματα το 'divide by 4', και στη συνέχεια κοιμηθείτε 600 ms. Send("/4") Sleep(600) ; Πατήστε το πλήκτρο return για να εμφανιστεί το αποτέλεσμα, και κοιμηθείτε 600 ms. Send("{ENTER}") Sleep(600) ; Αντιγράψτε το αποτέλεσμα στο πρόχειρο χρησιμοποιώντας τη συντόμευση των Windows Ctrl+C. Send("^c") ; Δηλώστε και αναθέστε τα περιεχόμενα του πρόχειρου σε μια μεταβλητή. Local $fResult = ClipGet() ; Ελέγξτε αν η μεταβλητή περιέχει δεκαδικό σημείο ή όχι. If StringInStr($fResult, ".") Then ; Εμφανίστε ένα πλαίσιο μηνυμάτων με χρονικό όριο 5 δευτερολέπτων. MsgBox($MB_OK, "Leap Year", @YEAR & " δεν είναι δίσεκτο έτος.", 5) Else ; Αυτό το μήνυμα θα εμφανιστεί μόνο αν το τρέχον έτος είναι δίσεκτο έτος. MsgBox($MB_OK, "Leap Year", @YEAR & " is a leap year.", 5) EndIf ; Κλείστε την αριθμομηχανή των Windows - τακτοποιείτε πάντα μετά. WinClose("[CLASS:CalcFrame]")
Βρείτε το μέσο όρο
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants. au3> _Example() ; Run the example. Func _Example() ; Εμφανίστε ένα πλαίσιο εισαγωγής και ζητήστε από το χρήστη να εισάγει μερικούς αριθμούς που χωρίζονται με κόμμα. Local $sInput = InputBox("Find Average", "Enter some numbers separated by commas: 1,2,42,100,3") ; Εάν προκύψει σφάλμα, τότε τερματίστε το σενάριο. If @error Then Exit ; Συμπληρώστε έναν πίνακα με την είσοδο του χρήστη. Local $aSplit = StringSplit($sInput, ",") ; Περάστε τον πίνακα στη συνάρτηση _Find_Average() και στη συνέχεια ελέγξτε για σφάλματα. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Εμφανίστε το αποτέλεσμα σε ένα πλαίσιο μηνυμάτων. MsgBox($MB_OK, "Εύρεση μέσου όρου", "Αποτέλεσμα: " & $fAverage) EndFunc ;==>_Παράδειγμα Func _Find_Average($aArray) ; Αν η είσοδος δεν είναι του σωστού τύπου (ένας πίνακας), τότε επιστρέφεται ένα σφάλμα μαζί με τις λεπτομέρειες. If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; Πιο λεπτομερείς έλεγχοι είναι δυνατοί, αλλά για λόγους συντομίας εδώ εκτελείται μόνο ένας. ; Δηλώστε μια μεταβλητή για να αποθηκεύσετε το άθροισμα των αριθμών. Local $iArraySum = 0 ; Κάντε βρόχο στον πίνακα. For $i = 1 To $aArray[0] ; Αυξήστε το άθροισμα κατά τον αριθμό σε κάθε στοιχείο του πίνακα. $iArraySum += Number($aArray[$i]) Next ; Επιστροφή του μέσου όρου στρογγυλοποιημένου σε 2 δεκαδικά ψηφία. Return Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average
