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

来源：互联网发布：aauto python 编辑：程序博客网时间：2024/06/03 20:44
推荐一个强大便捷的Windows自动化操作工具：AutoIt 3

2011-05-28 11:22 91人阅读评论(0) 收藏举报
最近在自己整一套Windows下应用程序的自动化测试程序，不想使用诸如QTP的重量级的东西，有人推荐使用AutoIt编写脚本来实现轻量级自动化测试，使用了一下，感觉这个工具确实既强大又方便使用，还可以将脚本程序编译成exe可执行文件，对Windows下的各种窗口、控件的捕捉效果很好，可以模拟鼠标、键盘各种事件，还提供了对大多数win32 API的封装使得调用API更加方便易用，更厉害的是，还可以轻松的实现界面编程，真是相见恨晚。转念一想，这工具可以用于Windows下的自动化操作，例如文件批量命名、文本文件内容抽取、自动点击网页链接、自动安装软件、自动销毁弹出窗口等，所有可以想到的操作，拿了这个工具几分钟手到擒来，呵呵，快哉！
 
下面举几个例子：
 
第一个例子：自动抽取文本文件信息(可用于生成代码文件列表)
view plain
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  
 
 
第二个例子：自动销毁某个进程弹出的对话框
 
view plain
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，绘制一个三角形和一个圆形
view plain
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打开网址，获得其文本信息
view plain
#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  
   