AutoIt 初探

關於AutoIt，算是接觸不久，但是它以簡單的方式訪問Windows API，讓人覺得輕鬆，初次試探，寫個小小的腳本。UI測試，測試Windows自帶的計算器。

 

示例如下：

 

 Main() Func Main() $modeName = "計算器" $modeExe = "calc.exe" Init($modeName, $modeExe) ; 有多個案例時，這裏改爲循環 $result1 = TestCase1($modeName) SaveResult($result1, "案例1") Fini($modeName, $modeExe) EndFunc ; 保存測試結果 Func SaveResult($bResult, $info) If $bResult Then MsgBox(64, "測試進度", StringFormat("測試通過(%s)", $info)) Else MsgBox(48, "測試進度", StringFormat("測試未通過(%s)", $info)) EndIf EndFunc ; 初始化環境 Func Init($modeName, $modeExe) Run($modeExe) WinWaitActive($modeName) EndFunc ; 測試案例1 Func TestCase1($modeName) Const $val1 = 1 Const $val2 = 5 Const $succ = 6 Send($val1) Send("+{=}") Send($val2) Send("=") Sleep(200); $result = ControlGetText($modeName, "", "Edit1") Return ($val1 + $val2) == Number($result) EndFunc ; 掃尾工作 Func Fini($modeName, $modeExe) MsgBox(0, "測試進度", "測試完畢") WinClose($modeName) EndFunc

 

關於autoit的api，參考http://www.dreams8.com/autoit/