你好,世界
; 提供一个常量值库。#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秒后计算器没有出现,则退出脚本。如果WinExists("[CLASS:CalcFrame]") = 0 Then Exit ; 自动在计算器中输入当前年份。Send(@YEAR) ; 让我们把脚本的速度放慢一点,这样我们就可以看到发生了什么。Sleep(600) ; 自动输入"除以4",然后睡眠600毫秒。Send("/4") Sleep(600) ; 按回车键显示结果,然后休眠600毫秒。Send("{ENTER}") Sleep(600) ; 使用Windows快捷键Ctrl+C将结果复制到剪贴板。Send("^c") ; 声明并将剪贴板的内容分配给一个变量。Local $fResult = ClipGet() ; 检查变量是否包含小数点。If StringInStr($fResult, ".") Then ; 显示一个超时5秒的消息框。MsgBox($MB_OK, "Leap Year", @YEAR & "is not a leap year.", 5) Else ; 这个消息只有在当前年份是闰年时才会显示。WinClose("[CLASS:CalcFrame]")
找出平均值
; Find Average by JohnOne, modified by czardas #include < MsgBoxConstants.au3> _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, "Find Average", "Result: " & $fAverage) EndFunc ;== >_Example Func _Find_Average($aArray) ; 如果 输入的类型不正确(数组),那么返回一个错误和细节。If Not IsArray($aArray) Then Return SetError(1, 0, VarGetType($aArray)) 声明一个变量来存储这些数字的总和。Local $iArraySum = 0 ; 循环浏览数组。对于 $i = 1 To $aArray[0] ; 用每个数组元素中的数字增加总和。$iArraySum += Number($aArray[$i]) Next ; 返回四舍五入到小数点后两位的平均值。返回 Round($iArraySum / $aArray[0], 2) EndFunc ;==>_Find_Average。