小ma激活工具自动点击源码

862228699

因群友使用小ma激活工具，无法使用静默参数的要求，使用此代码可以实现自动激活，如果失败，2次退出程序，如果成功，退出程序。

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_OutFile=小ma激活最新KMS10.exe
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
Local $Valve = False, $Count = 0
Local $Pid = Run(@ScriptDir & '\小ma激活最新KMS10.exe')
While ProcessExists($Pid)
        Local $aList = WinList("[REGEXPTITLE:(?i)(OSPP\.VBS|KMS10)]")
        For $i = 1 To $aList[0][0]
                If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
                        If StringInStr(WinGetText($aList[$i][1]), '系统信息') Then
                                If $Valve = False Then
                                        WinActivate($aList[$i][1])
                                        $Valve = ControlClick($aList[$i][1], "", "[CLASS:TButton; INSTANCE:1]")
                                EndIf
                                ContinueLoop
                        Else
                                Sleep(1000)
                                If WinClose($aList[$i][1]) Then ;关闭弹出来的窗口
                                        $Valve = False
                                        $Count += 1
                                EndIf
                                If StringInStr(WinGetText($aList[$i][1]), '激活成功') Then
                                        ProcessClose($Pid)
                                        Exit (MsgBox(16, '提示', '激活成功，可以开车了。'))
                                EndIf
                        EndIf
                EndIf
        Next
        If $Count >= 2 Then ProcessClose($Pid)
WEnd