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

版本六中存在一个显著问题是：

当exe文件生存之后，运行的时候，通过consoleWrite函数打印出来的数据是无法展示出来的。这就存在一个问题：当运行失败的时候，我还是看不到任何log信息。

于是，我对程序再次进行了优化，代码如下：

#include <ScreenCapture.au3>
#include <GuiConstantsEx.au3>
#include <date.au3>
#include <GuiTab.au3>
#include <GuiEdit.au3>
#include <GuiScrollBars.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>

Opt("WinTitleMatchMode")
AutoItSetOption("SendKeyDelay")
AutoItSetOption("WinWaitDelay")
Global $hListBox

;区域截图
Func screen_capture($path)
    If Not FileExists($path) or StringInStr($path,"\")= Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " " & "Failed to Save Screen Capture Picture: Path is not correct")
        return
    EndIf

    $handle = WinGetHandle(".NET Reactor")
    if $handle="" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " " & "Failed to Screen Capture: can not get .NET Reactor window handle")
        return
    EndIf

    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get Screen capture Window Handle")
    WinActivate($handle)
    $control = ControlGetHandle($handle,"","[Name:groupBox6]")
    if $control = "" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to Get Screen capture Group box handle")
        return
    EndIf
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get Screen capture Group box handle")
    _ScreenCapture_CaptureWnd($path & "\AutoIt.jpg", $control)
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Save picture as AutoIt.jpg")
EndFunc

;无论焦点在哪儿，都回归到包含 EvaluationType 行
Func init($handle)
    $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]")
    $text2 = $text
    While StringInStr($text, "EvaluationType =") =
        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
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)
    IF Not FileExists($filepath) or StringInStr($filepath,"\")= Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to get HID: File path is not correct")
        Return ""
    EndIf
    Dim $hid
    $matches = StringRegExp($filepath, "\w{4}-\w{4}-\w{4}-\w{4}-\w{4}", , )
    If IsArray($matches) Then
        $hid = $matches[]
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get HID from file path")
        Return $hid
    EndIf
    FileChangeDir($filepath)
    $search = FileFindFirstFile("*.txt")
    ; 检查搜索是否成功
    If $search = - Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to found HID from .txt file in the path")
        Return
    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[]
            _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get HID from Text file name")
            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[]
                _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get HID from txt file in file path")
                ExitLoop
            EndIf
            $hid = ""
        WEnd
        FileClose($file2)
    WEnd
    ; 关闭搜索句柄
    FileClose($search)
    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
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to set HID: hardware ID or Expire Date format wrong")
        return
    EndIf
    $handle = WinGetHandle(".NET Reactor")
    if $handle="" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to get .NET Reactor handle")
        Return
    EndIf
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "get .NET Reactor handle")
    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)
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Set Date in Grid " & $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)
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Set HID in Grid " & $hardware_id)
        ControlSend($handle,"","", "{up 2}{enter}{up 2}")
    Else
        collapse($handle)
        init($handle)
    EndIf
EndFunc

;保存 License
Func save_license($path)
    if FileExists($path)=  or StringInStr($path,"\")= Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to Save License: Path is not correct")
        Return
    EndIf
    $handle = WinGetHandle(".NET Reactor")
    if $handle="" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to Save License: Failed to Get .NET reactor handle")
        Return
    EndIf
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get Save License Window handle")
    WinActivate($handle)

    $control_handle = ControlGetHandle($handle,"","[Name:button1]")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "get Save License pop up")
    ControlClick($handle,"",$control_handle)

    $check = WinWaitActive("Save License As..")
    if $check =  Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to save license: Read pop up window failed")
        Return
    EndIf
    $save_window_handle = WinGetHandle("Save License As..")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get save license as pop up window")

    $save_input_control = ControlGetHandle($save_window_handle,"","Edit1")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get Save License input field handle")

    ControlSetText($save_window_handle,"",$save_input_control,$path & "\SageTouch.License")
    $save_button_handle = ControlGetHandle($save_window_handle,"","Button1")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get Save License Save button")

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

;检查 License 是否是正确的
Func exam_license($path)
    If FileExists($path & "\SageTouch.License")= or StringInStr($path,"\")= Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to find Sagetouch.License in the path")
        Return
    EndIf
    $handle = WinGetHandle(".NET Reactor")
    if $handle="" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to Exam license, not get .Net Reactor win handle")
        Return
    EndIf

    WinActivate($handle)
    SendKeepActive($handle)
    $handle2 = ControlGetHandle($handle, "", "[NAME:menuStrip1]")
    if $handle2 = "" then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to get Exam License Menu handle failed")
        Return
    EndIf
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get menu handle")
    ControlSend($handle, "","","{ALT}{Tab 2}{Enter}{Down}{Enter}")
    $check = WinWaitActive("License Examiner", "", )
    if $check =  Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to get exam license Pop up")
        Return
    EndIf
    $license_exam_handle = WinGetHandle("License Examiner")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get License Examiner pop up")

    $open_license_handle = ControlGetHandle($license_exam_handle,"","[Name:button2]")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Get button on License Examiner pop up")
    ControlClick($license_exam_handle,"",$open_license_handle)

    $check = WinWaitActive("Please Select License File", "", )
    if $check =  Then
        _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Failed to Select License File pop up window")
        Return
    EndIf

    $select_license_handle = WinGetHandle("Please Select License File")
    _GUICtrlListBox_AddString($hListBox, _Now() & " "& "Select License File pop up window")

    $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)
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)

$exam_License = GUICtrlCreateButton("Exam License", , , , )
$Create_License = GUICtrlCreateButton("Create License", , , , )
$Save_License = GUICtrlCreateButton("Save License", , , , )

Global $hListBox = GUICtrlCreateList("Create License Log Info", , , , , BitOR($WS_BORDER, $WS_VSCROLL, $LBS_DISABLENOSCROLL, $LBS_NOTIFY, $WS_HSCROLL))

GUISetState()
_GUICtrlListBox_BeginUpdate($hListBox)
_GUICtrlListBox_UpdateHScroll($hListBox)
_GUICtrlListBox_EndUpdate($hListBox)

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

界面如下：