操作 AutoIT：界面与自动化操作结合来简化日常劳动: .Net Reactor验证License，设置License，创建License，截图AutoIt自动化实现。（六）

自动化操作的稳定性，便利性虽然已经满足了要求，但是页面上呈现的按钮太多了，可以做的更加简单一些。

1. 简化页面的按钮，把5个按钮减少至3个，把Display HID按钮功能整合到create license里面；把保存图片按钮功能放到保存License操作中；

2. 优化输入框。由3个简化为2个，因为HID是固定的，不应该支持手动修改，而expired date默认为当前日期延后2个月，是支持修改的；

代码如下：

#include <ScreenCapture.au3>
#include <GuiConstantsEx.au3>
#include <date.au3>
#include <GuiTab.au3>
#include <GuiEdit.au3>

Opt("WinTitleMatchMode")
AutoItSetOption("SendKeyDelay")
AutoItSetOption("WinWaitDelay")
;区域截图
Func screen_capture($path)
    if FileExists($path)=  or StringInStr($path,"\")= Then
        MsgBox(, "Path Error", "Please input correct Path info!")
    Else
        $handle = WinGetHandle(".NET Reactor")
        if $handle="" then return
        ConsoleWrite(_Now() & " "& "Screen capture win handle: " & $handle & @CRLF)
        WinActivate($handle)
        $control = ControlGetHandle($handle,"","[Name:groupBox6]")
        ConsoleWrite(_Now() & " "& "Screen capture Control handle: " & $control & @CRLF)
        ;_ScreenCapture_Capture("D:\abc.jpg", ,,,)
        _ScreenCapture_CaptureWnd($path & "\AutoIt.jpg", $control)
    EndIf
EndFunc

;无论焦点在哪儿，都回归到包含 EvaluationType 行
Func init($handle)
    $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
    ConsoleWrite(_Now()& " "& $text & @CRLF)
    $text2 = $text
    While StringInStr($text, "EvaluationType =") =
        ConsoleWrite(_Now()& " "& $text & @CRLF)
        ControlSend($handle,"","", "{UP}")
        $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        If $text = $text2 And $text2 = "False" Then
            ControlSend($handle,"","", "{Down}")
            ExitLoop
        EndIf
    WEnd
    ConsoleWrite(_Now()& " "& $text & @CRLF)
EndFunc

;无论选项展开了多少次，都让所有的展开项收缩
Func collapse($handle)
    $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
    ControlSend($handle,"","", "{Down}")
    $text2 = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
    While $text <> $text2
        If StringInStr($text,$text2) <>  Then
            ControlSend($handle,"","", "{up}{enter}{down}")
            $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
            ControlSend($handle,"","", "{Down}")
            $text2 = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        Else
            $text = $text2
            ControlSend($handle,"","", "{Down}")
            $text2 = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        EndIf
    WEnd
EndFunc

;Display the HID in text field automatic
Func GetHid($filepath)
    Dim $hid
    if FileExists($filepath) Then
        $matches = StringRegExp($filepath, "\w{4}-\w{4}-\w{4}-\w{4}-\w{4}", , )
        If IsArray($matches) Then
            $hid = $matches[]
            Return $hid
        EndIf

        FileChangeDir($filepath)
        $search = FileFindFirstFile("*.txt")
        ; 检查搜索是否成功
        If $search = - Then
            Return "No HID .txt file found in the path"
        EndIf
        While
            $file = FileFindNextFile($search)
            If @error Then
                ExitLoop
            EndIf
            $matches = StringRegExp($file, "\w{4}-\w{4}-\w{4}-\w{4}-\w{4}", , )
            If IsArray($matches) Then
                $hid = $matches[]
                ExitLoop
            EndIf

            Local $file2 = FileOpen($file)
            If $file2 = - Then
                ExitLoop
            EndIf
            While
                Local $line = FileReadLine($file2)
                If @error = - Then ExitLoop
                $matches = StringRegExp($line, "\w{4}-\w{4}-\w{4}-\w{4}-\w{4}", , )
                If IsArray($matches) Then
                    $hid = $matches[]
                    ExitLoop
                EndIf
                $hid = ""
            WEnd
            FileClose($file2)
        WEnd
        ; 关闭搜索句柄
        FileClose($search)
    Else
        Return "File path is not correct"
    EndIf
    Return $hid
EndFunc

;设置 Hardware ID
Func set_hardwareID($hardware_id, $date)
    if StringLen($hardware_id) <>  or StringInStr($hardware_id, "-")= or StringInStr($date,"/")= or StringLen($date)< Or  StringLen($date)> Then
        MsgBox(, "Create license error", "Please check the hardware ID or Expire Date format")
    Else
        $handle = WinGetHandle(".NET Reactor")
        if $handle="" then return
        ConsoleWrite(_Now() & " "& "Set hardware ID Window handle: " & $handle & @CRLF)
        WinActivate($handle)
        $tab_control = ControlGetHandle($handle,"", "[name:tabControl2]")
        _GUICtrlTab_ClickTab($tab_control, )
        SendKeepActive($handle)
        ControlSend($handle,"","", "{tab 4}")
        $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        While StringInStr($text, "RSAKeyValue") <>
            ControlSend($handle,"","", "{tab 4}")
            $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        WEnd

        init($handle)
        collapse($handle)
        init($handle)

        ;输入日期
        ControlSend($handle,"","", "{down}{enter}{down 2}")
        $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        If StringInStr($text,"/") <> Then
            ControlSetText($handle,"", "[Class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1; Text:False]",$date)
            ControlSend($handle,"","", "{up 2}{enter}{up}")
        Else
            collapse($handle)
            init($handle)
        EndIf

        ;输入Hardware ID
        ControlSend($handle,"","", "{down 2}{enter}{down 2}")
        $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
        If StringInStr($text,"-") <> Then
            ControlSetText($handle,"", "[Class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1; Text:False]",$hardware_id)
            ControlSend($handle,"","", "{up 2}{enter}{up 2}")
        Else
            collapse($handle)
            init($handle)
        EndIf
    EndIf
EndFunc

;保存 License
Func save_license($path)
    if FileExists($path)=  or StringInStr($path,"\")= Then
        MsgBox(, "Path Error", "Please input correct Path info!")
    Else
        $handle = WinGetHandle(".NET Reactor")
        if $handle="" then return
        ConsoleWrite(_Now() & " "& "Save License win handle: " & $handle & @CRLF)
        WinActivate($handle)

        $control_handle = ControlGetHandle($handle,"","[Name:button1]")
        ConsoleWrite(_Now() & " "& "Save License Create License button: " & $handle & @CRLF)
        ControlClick($handle,"",$control_handle)

        $check = WinWaitActive("Save License As..")
        if $check =  Then
            ConsoleWrite(_Now() & " " & "Save License As pop up window failed" & @CRLF)
            Return
        EndIf
        $save_window_handle = WinGetHandle("Save License As..")
        ConsoleWrite(_Now() & " "& "Save License popup window handle: " & $save_window_handle & @CRLF)

        $save_input_control = ControlGetHandle($save_window_handle,"","Edit1")
        ConsoleWrite(_Now() & " "& "Save License input field handle: " & $save_input_control & @CRLF)

        ControlSetText($save_window_handle,"",$save_input_control,$path & "\SageTouch.License")
        $save_button_handle = ControlGetHandle($save_window_handle,"","Button1")
        ConsoleWrite(_Now() & " "& "Save License Save button: " & $save_button_handle & @CRLF)

        ControlClick($save_window_handle,"",$save_button_handle)
        if WinWait("确认另存为","",)<> Then
            $popup_handle = WinGetHandle("确认另存为")
            WinWaitActive($popup_handle)
            ControlClick($popup_handle,"", "Button1")
        EndIf
        If WinWait("All Done", "", ) <>  Then
            $popup_handle = WinGetHandle("All Done")
            WinWaitActive($popup_handle)
            ControlClick($popup_handle,"", "Button1")
        EndIf

    EndIf
    ;获取窗口句柄
EndFunc

;检查 License 是否是正确的
Func exam_license($path)
    If FileExists($path & "\SageTouch.License")= or StringInStr($path,"\")= Then
        MsgBox(, "Exam license","Can not find license to exam")
    Else
        $handle = WinGetHandle(".NET Reactor")
        if $handle="" then return
        WinActivate($handle)
        SendKeepActive($handle)
        $handle2 = ControlGetHandle($handle, "", "[NAME:menuStrip1]")
        if $handle2 = "" then return
        ConsoleWrite(_Now() & " " & "Get menu handle" & $handle2 & @CRLF)
        ControlSend($handle, "","","{ALT}{Tab 2}{Enter}{Down}{Enter}")
        $check = WinWaitActive("License Examiner", "", )
        if $check =  Then
            ConsoleWrite(_Now() & " " & "License Examiner pop up window failed" & @CRLF)
            Return
        EndIf
        $license_exam_handle = WinGetHandle("License Examiner")
        ConsoleWrite(_Now() & " "& "License examiner window handle: " & $license_exam_handle & @CRLF)

        $open_license_handle = ControlGetHandle($license_exam_handle,"","[Name:button2]")
        ConsoleWrite(_now() & " Open License button handle: "&$open_license_handle & @CRLF)
        ControlClick($license_exam_handle,"",$open_license_handle)

        $check = WinWaitActive("Please Select License File", "", )
        if $check =  Then
            ConsoleWrite(_Now() & " " & "Select License File pop up window failed" & @CRLF)
            Return
        EndIf

        $select_license_handle = WinGetHandle("Please Select License File")
        ConsoleWrite(_Now()& " "& "Select License File window handle: " & $select_license_handle & @CRLF)

        $select_license_input_handle = ControlGetHandle($select_license_handle,"","Edit1")
        $open_button_handle = ControlGetHandle($select_license_handle,"","Button1")
        ControlSetText($select_license_handle,"",$select_license_input_handle,$path & "\SageTouch.License")
        ControlClick($select_license_handle,"",$open_button_handle)
    EndIf
EndFunc

;Create a new GUI
GUICreate("Create License", , )

GUICtrlCreateLabel("Hardware ID", , , , )
$hardware_id = GUICtrlCreateLabel("XXXX-XXXX-XXXX-XXXX-XXXX", , , , )

GUICtrlCreateLabel("Expire Date", , , , )
$tTime = _Date_Time_GetSystemTime()
$aTime = _Date_Time_SystemTimeToArray($tTime)
$date = $aTime[] & "/"  & $aTime[] & "/" & ""
$date2 = _DateAdd("M", , $date)
$date = GUICtrlCreateInput($date2, , , , )

GUICtrlCreateLabel("License File Path", , , , )
$path = GUICtrlCreateInput("", , , , )
GUICtrlSetState(-, $GUI_FOCUS)

;$display_HID = GUICtrlCreateButton("Display HID", , , , )
$exam_License = GUICtrlCreateButton("Exam License", , , , )
$Create_License = GUICtrlCreateButton("Create License", , , , )
$Save_License = GUICtrlCreateButton("Save License", , , , )

GUISetState()
While
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Create_License
            $hid = GetHid(GUICtrlRead($path))
            GUICtrlSetData($hardware_id, $hid)
            GUISetState()
            set_hardwareID(GUICtrlRead($hardware_id), GUICtrlRead($date))
        Case $msg = $Save_License
            save_license(GUICtrlRead($path))
            screen_capture(GUICtrlRead($path))
        Case $msg = $exam_License
            exam_license(GUICtrlRead($path))
    EndSelect
Wend

界面图片如下：

界面比以前更加清洁了，功能使用起来更加简单了。