推荐一个强大便捷的Windows自动化操作工具：AutoIt 3

最近在自己整一套Windows下应用程序的自动化测试程序，不想使用诸如QTP的重量级的东西，有人推荐使用AutoIt编写脚本来实现轻量级自动化测试，使用了一下，感觉这个工具确实既强大又方便使用，还可以将脚本程序编译成exe可执行文件，对Windows下的各种窗口、控件的捕捉效果很好，可以模拟鼠标、键盘各种事件，还提供了对大多数win32 API的封装使得调用API更加方便易用，更厉害的是，还可以轻松的实现界面编程，真是相见恨晚。转念一想，这工具可以用于Windows下的自动化操作，例如文件批量命名、文本文件内容抽取、自动点击网页链接、自动安装软件、自动销毁弹出窗口等，所有可以想到的操作，拿了这个工具几分钟手到擒来，呵呵，快哉！

 

下面举几个例子：

 

第一个例子：自动抽取文本文件信息(可用于生成代码文件列表)

ExtractTextFileInfo("test.txt") ;抽取所有的*.h头文件的第一行，如果编程习惯好，*.h的第一行可以是对该文件的描述 Func ExtractTextFileInfo($output_file_name) Local $h_search = FileFindFirstFile("*.h") ;打开文件搜索handle If $h_search = -1 Then MsgBox(0, "Error", "No files/directories matched the search pattern") Exit EndIf Local $log_file = FileOpen($output_file_name, 1) ;1表示为追加写入模式 Local $file_name Local $tmp_str While 1 $file_name = FileFindNextFile($h_search) If @error Then ExitLoop ; 读取文件第一行 $tmp_str = "代码文件: " & $file_name & ":" $tmp_str &= @CRLF & " " $tmp_str &= FileReadLine($file_name, 1) $tmp_str &= @CRLF $tmp_str = StringReplace($tmp_str, "//", " ") ;将代码行里的注释符号"//"替换掉 ; 写入Log文件 FileWriteLine($log_file, $tmp_str) WEnd FileClose($log_file) FileClose($h_search) ;关闭文件搜索handle EndFunc

 

 

第二个例子：自动销毁某个进程弹出的对话框

 

Local $pid = 1880 DetectAndDestroyModalDlgByPID($pid) Local $pid_arr[2] = [1950, 2220] DetectAndDestroyModalDlgByPID($pid_arr) ; 循环检测并销毁模态对话框：其pid是指定的 Func DetectAndDestroyModalDlgByPID($pid_array) Local $pop_dlg = DetectModalDlgByPID($pid_array) While $pop_dlg WinClose($pop_dlg) $pop_dlg = DetectModalDlgByPID($pid_array) WEnd EndFunc ; 本函数寻找模态对话框[CLASS:#32770]：其pid是指定的 Func DetectModalDlgByPID($pid_array) Local $dlg_array = WinList("[CLASS:#32770]") ;列出所有对话框 If Not IsArray($dlg_array) Then Return 0 EndIf For $i = 1 to $dlg_array[0][0] Local $dlg_hwnd = $dlg_array[$i][1] Local $dlg_pid = WinGetProcess($dlg_hwnd) If $dlg_pid <> -1 Then If IsArray($pid_array) Then For $pid_tmp In $pid_array If $dlg_pid = $pid_tmp Then Return $dlg_hwnd EndIf Next Else If $dlg_pid = $pid_array Then Return $dlg_hwnd EndIf EndIf EndIf Next Return 0 EndFunc

 

 

第三个例子：自动打开绘图程序mspaint，绘制一个三角形和一个圆形

MsPaintCircle() Func MsPaintCircle() HotKeySet("{ESC}", "ExitPaintScript") ;注册热键, ESC退出 Run("mspaint.exe") Local $hwnd = WinWait("[CLASS:MSPaintApp]") WinActivate($hwnd) WinSetState($hwnd, "", @SW_MAXIMIZE) ;绘制三角形 MouseClickDrag("left", 200, 200, 600, 200) MouseClickDrag("left", 600, 200, 400, 500) MouseClickDrag("left", 400, 500, 200, 200) ;绘制圆形，圆心(400, 300)，半径50 $pi = 3.14159265358979 $my_radius = 50; $my_center_x = 400; $my_center_y = 300; $temp_degree = 0; $last_pos_x = $my_center_x $last_pos_y = $my_center_y-50 $next_pos_x = 0 $next_pos_y = 0 MouseMove($last_pos_x, $last_pos_y) While $temp_degree <= 360 $next_pos_x = $my_center_x+$my_radius*Sin($temp_degree*$pi/180) $next_pos_y = $my_center_y-$my_radius*Cos($temp_degree*$pi/180) MouseClickDrag("left", $last_pos_x, $last_pos_y, $next_pos_x, $next_pos_y, 1) $last_pos_x = $next_pos_x $last_pos_y = $next_pos_y $temp_degree += 10 WEnd EndFunc Func ExitPaintScript() Exit EndFunc

 

第四个例子：使用IE打开网址，获得其文本信息

#include <IE.au3> OpenURLInIE("www.baidu.com") Func OpenURLInIE($str_url) Local $hwnd = WinActivate("[CLASS:IEFrame]") ;IE主窗口 Local $ie_obj = _IEAttach($hwnd, "hwnd") ;根据URL关联到IE对象 _IENavigate($ie_obj, $str_url) Sleep(1000) Local $htmltxt = _IEBodyReadText($ie_obj) MsgBox(0, "html", $htmltxt) Return $htmltxt EndFunc