AutoIt

; Poner a disposición una biblioteca de valores constantes. #include < MsgBoxConstants . au3 >; Muestra un cuadro de mensaje con un tiempo de espera de 6 segundos. MsgBox ( $MB_OK , "Atención" , "Evite tocar el teclado o el ratón durante la automatización." , 6 ); Ejecuta la Calculadora de Windows. Ejecuta ( "calc.exe" ); Esperar a que la calculadora se active con un tiempo de espera de 10 segundos. WinWaitActive ( "[CLASS:CalcFrame]" , "" , 10 )Si la calculadora no aparece después de 10 segundos, salga del script. Si WinExists ( "[CLASS:CalcFrame]" ) = 0 Entonces Salir; Introduce automáticamente el año actual en la calculadora. Enviar ( @AÑO ); Vamos a ralentizar un poco el script para poder ver qué está pasando. Sleep ( 600 ); Escribe automáticamente 'divide por 4' y luego espera 600 ms. Enviar ( "/4" ) Espera ( 600 ); Pulsa la tecla Intro para mostrar el resultado y espera 600 ms. Enviar ( "{ENTER}" ) Espera ( 600 ); Copia el resultado al portapapeles usando el atajo de teclado de Windows Ctrl+C. Send ( "^c" )Declara una variable y asígnale el contenido del portapapeles. Local $fResult = ClipGet (); Comprobar si la variable contiene un punto decimal o no. Si StringInStr ( $fResult , "." ) Entonces ; Mostrar un cuadro de mensaje con un tiempo de espera de 5 segundos. MsgBox ( $MB_OK , "Año bisiesto" , @YEAR & " no es un año bisiesto." , 5 ) Sino ; Este mensaje solo se mostrará si el año actual es bisiesto. MsgBox ( $MB_OK , "Año bisiesto" , @YEAR & " es un año bisiesto." , 5 ) FinSi; Cierra la calculadora de Windows; siempre ordena después. WinClose ( "[CLASS:CalcFrame]" )

; Calcular el promedio por JohnOne, modificado por czardas #include < MsgBoxConstants . au3 >_Ejemplo () ; Ejecuta el ejemplo.Func _Example () ; Muestra un cuadro de entrada y pide al usuario que ingrese algunos números separados por comas. Local $sInput = InputBox ( "Calcular promedio" , "Ingrese algunos números separados por comas: 1,2,42,100,3" ); Si se produjo un error, salga del script. If @error Then Exit; Rellena una matriz con la entrada del usuario. Local $aSplit = StringSplit ( $sInput , "," ); Pasa el array a la función _Find_Average() y luego comprueba si hay errores. Local $fAverage = _Find_Average ( $aSplit ) If @error Then Exit; Muestra el resultado en un cuadro de mensaje. MsgBox ( $MB_OK , "Calcular promedio" , "Resultado: " & $fAverage ) EndFunc ;==>_ExampleFunc _Find_Average ( $aArray ) ; Si la entrada no es del tipo correcto (un array), entonces devuelve un error junto con los detalles. If Not IsArray ( $aArray ) Then Return SetError ( 1 , 0 , VarGetType ( $aArray )) ; Se pueden realizar comprobaciones más detalladas, pero por brevedad solo se realiza una aquí.; Declara una variable para almacenar la suma de los números. Local $iArraySum = 0; Recorre el array. Para $i = 1 hasta $aArray [ 0 ] ; Incrementa la suma en el número de cada elemento del array. $iArraySum += Number ( $aArray [ $i ]) Next; Devuelve el promedio redondeado a 2 decimales. Devuelve Round ( $iArraySum / $aArray [ 0 ], 2 ) EndFunc ;==>_Find_Average