每个月,我都要做大量的license文件,为项目延期使用。
由于对AutoIt进行了学习,在一定程度上能够应用自动化来简化日常劳动。
我从来就不苛求自动化能够做一切事情,只要在一定程度上提高工作效率即可。
1. 现在我要应用AutoIt脚本生成一个页面,页面上可以输入我要做license常用的几个元素;
2. 得用AutoIt脚本操作做license的工具,输入页面上的几个元素
3. 完成之后,编译成exe
完成之后,界面如下:
脚本如下:
难点在于:
1. 如何在一个AutoIt无法识别的控件GridView中输入值;
2. 页面上很多控件,通过AutoInfo识别,只能看到相同的class,如何区分它们?
3. 用controlSend命令的时候,如何让脚步运行更加高效,不会出现异常情况?如果处置不当,经常会在错误的输入框输入内容;
4. 脚步编译成exe文件之后,如果运行出现异常,该如何处置?总不至于重新编译吧?
#include <ScreenCapture.au3> #include <GuiConstantsEx.au3> #include <date.au3> Opt("WinTitleMatchMode") AutoItSetOption("SendKeyDelay") AutoItSetOption("WinWaitDelay") ;区域截图 Func screen_capture($path) if FileExists($path)= 0 or StringInStr($path,"")=0 Then MsgBox(0, "Path Error", "Please input correct Path info!") Else $handle = WinGetHandle(".NET Reactor v4.5.9.8 - Full Version") if $handle="" then return 0 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", 350,290,900,420) _ScreenCapture_CaptureWnd($path & "AutoIt.jpg", $control) EndIf EndFunc ;设置 Hardware ID Func set_hardwareID($hardware_id, $date) if StringLen($hardware_id) <> 24 or StringInStr($date,"201")=0 or StringLen($date)<8 Then MsgBox(0, "Create license error", "Please input correct License create info!") Else $handle = WinGetHandle(".NET Reactor v4.5.9.8 - Full Version") if $handle="" then return 0 ConsoleWrite(_Now() & " "& "Set hardware ID Window handle: " & $handle & @CRLF) WinActivate($handle) ControlFocus($handle,"","[Name:button7]") SendKeepActive($handle) ControlSend($handle,"","", "{tab}") $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]") While $text <> "False" ConsoleWrite(_Now()& " "& $text & @CRLF) ControlSend($handle,"","", "{UP}") $text = ControlGetText($handle,"","[class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1]") WEnd ControlSend($handle,"","", "{Down 2}{Enter}{Down 2}") ControlSetText($handle,"", "[Class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1; Text:False]",$date) ControlSend($handle,"","", "{up 2}{enter}{down}{enter}{down 2}") ControlSetText($handle,"", "[Class:WindowsForms10.EDIT.app.0.1f550a4_r15_ad1; Text:False]",$hardware_id) ControlSend($handle,"","", "{up 2}{enter}") EndIf EndFunc ;保存 License Func save_license($path) if FileExists($path)= 0 or StringInStr($path,"")=0 Then MsgBox(0, "Path Error", "Please input correct Path info!") Else $handle = WinGetHandle(".NET Reactor v4.5.9.8 - Full Version") if $handle="" then return 0 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 = 0 Then ConsoleWrite(_Now() & " " & "Save License As pop up window failed" & @CRLF) Return 0 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("确认另存为","",1)<>0 Then $popup_handle = WinGetHandle("确认另存为") WinWaitActive($popup_handle) ControlClick($popup_handle,"", "Button1") EndIf EndIf ;获取窗口句柄 EndFunc ;检查 License 是否是正确的 Func exam_license($path) If FileExists($path & "SageTouch.License")=0 or StringInStr($path,"")=0 Then MsgBox(0, "Exam license","Can not find license to exam") Else $handle = WinGetHandle(".NET Reactor v4.5.9.8 - Full Version") if $handle="" then return 0 WinActivate($handle) ControlSend($handle, "","","{ALT}{T}{Down}{Enter}") ;ControlSend($handle, "", "","{DOWN}{Enter}") $check = WinWaitActive("License Examiner", "", 5) if $check = 0 Then ConsoleWrite(_Now() & " " & "License Examiner pop up window failed" & @CRLF) Return 0 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", "", 5) if $check = 0 Then ConsoleWrite(_Now() & " " & "Select License File pop up window failed" & @CRLF) Return 0 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", 700, 300) GUICtrlCreateLabel("Hardware ID", 30, 30, 250, 20) $hardware_id = GUICtrlCreateInput("33DD-8F20-FA26-7E2A-CDE6", 30, 50, 250, 20) GUICtrlCreateLabel("Expire Date", 300, 30, 200, 20) $date = GUICtrlCreateInput("2013-10-1", 300, 50, 200, 20) GUICtrlCreateLabel("License File Path", 30, 100, 120, 20) $path = GUICtrlCreateInput("", 30, 120, 470, 20) $exam_License = GUICtrlCreateButton("Exam License", 30, 170, 120, 20) $Create_License = GUICtrlCreateButton("Create License", 180, 170, 120, 20) $Save_License = GUICtrlCreateButton("Save License", 330, 170, 120, 20) $Screen_Capture = GUICtrlCreateButton("Screen Capture", 480, 170, 120, 20) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Create_License set_hardwareID(GUICtrlRead($hardware_id), GUICtrlRead($date)) Case $msg = $Screen_Capture screen_capture(GUICtrlRead($path)) Case $msg = $Save_License save_license(GUICtrlRead($path)) Case $msg = $exam_License exam_license(GUICtrlRead($path)) EndSelect Wend