Olá mundo
; Disponibilizar uma biblioteca de valores constantes. #Incluir < MsgBoxConstants. au3> ; Exibe "Olá, mundo!" em uma caixa de mensagens. MsgBox($MB_SYSTEMMODAL, "Título", "Olá, mundo!")
Automatizando a calculadora Windows
; Disponibilizar uma biblioteca de valores constantes. #Incluir < MsgBoxConstants. au3> ; Mostrar uma caixa de mensagens com um tempo limite de 6 segundos. MsgBox($MB_OK, "Atenção", "Evite tocar no teclado ou no mouse durante a automação", 6) ; Execute a Calculadora do Windows. Run("calc.exe") ; Aguarde que a calculadora fique ativa com um timeout de 10 segundos. WinWaitActive("[CLASSE:CalcFrame]", "", 10) ; Se a calculadora não aparecer após 10 segundos, então saia do script. Se WinExists("[CLASSE:CalcFrame]") = 0 Então Saia; Digite automaticamente o ano atual na calculadora. Send(@YEAR) ; Vamos desacelerar um pouco o script para que possamos ver o que está acontecendo. Sleep(600) ; Digite automaticamente 'dividir por 4', e depois dormir 600 ms. Send("/4") Sleep(600) ; Pressione a tecla de retorno para exibir o resultado, e durma 600 ms. Send("{{ENTER}") Sleep(600) ; Copie o resultado para a área de transferência usando o atalho do Windows Ctrl+C. Send("^c") ; Declare, e atribua o conteúdo da área de transferência a, uma variável. Local $fResult = ClipGet() ; Verifique se a variável contém ou não um ponto decimal. Se StringInStr($fResult, ".") Em seguida ; Mostrar uma caixa de mensagem com um tempo limite de 5 segundos. MsgBox($MB_OK, "Ano bissexto", @YEAR & " não é um ano bissexto", 5) Caso contrário ; Esta mensagem só será exibida se o ano atual for um ano bissexto. MsgBox($MB_OK, "Ano bissexto", @YEAR & " é um ano bissexto", 5) EndIf ; Feche a calculadora do Windows - sempre arrumar depois. WinClose("[CLASSE:CalcFrame]")
Encontre a média
; Find Average por JohnOne, modificado por czardas #include < MsgBoxConstants. au3> _Example() ; Execute o exemplo. Func _Exemplo() ; Mostre uma caixa de entrada e peça ao usuário para inserir alguns números separados por vírgulas.Local $sInput = InputBox("Find Average", "Digite alguns números separados por vírgulas: 1,2,42,100,3") Se ocorrer um erro, então saia do roteiro. Se @error Então Sair ; Povoar um array com a entrada do usuário. Local $aSplit = StringSplit($sInput, ",") ; Passe o array para a função _Find_Average() e então verifique se há erros. Local $fAverage = _Find_Average($aSplit) If @error Then Exit ; Exibir o resultado em uma caixa de mensagem. MsgBox($MB_OK, "Find Average", "Result: " & $fAverage) EndFunc ;==>_Example Func _Find_Average($Array) ; Se a entrada não for do tipo correto (um array), então retorne um erro junto com os detalhes.If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) ; São possíveis verificações mais detalhadas, mas para maior brevidade, apenas uma é realizada aqui ; Declarar uma variável para armazenar a soma dos números. Local $iArraySum = 0; Faça um loop através do array. Para $i = 1 a $aArray[0] ; Incrementar a soma pelo número em cada elemento do array. $iArraySum += Número($aArray[$i]) Próximo; Retorne a média arredondada para 2 casas decimais. Retornar Round($iArraySum / $Array[0], 2) EndFunc ;==>_Find_Average
