论坛 › 『 软件安装 』 › 小ma激活工具自动点击源码

862228699 发表于 2020-7-3 10:58:59

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

因群友使用小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("")
      For $i = 1 To $aList
                If $aList[$i] <> "" And BitAND(WinGetState($aList[$i]), 2) Then
                        If StringInStr(WinGetText($aList[$i]), '系统信息') Then
                              If $Valve = False Then
                                        WinActivate($aList[$i])
                                        $Valve = ControlClick($aList[$i], "", "")
                              EndIf
                              ContinueLoop
                        Else
                              Sleep(1000)
                              If WinClose($aList[$i]) Then ;关闭弹出来的窗口
                                        $Valve = False
                                        $Count += 1
                              EndIf
                              If StringInStr(WinGetText($aList[$i]), '激活成功') Then
                                        ProcessClose($Pid)
                                        Exit (MsgBox(16, '提示', '激活成功，可以开车了。'))
                              EndIf
                        EndIf
                EndIf
      Next
      If $Count >= 2 Then ProcessClose($Pid)
WEnd

查看完整版本: 小ma激活工具自动点击源码