搞搞 新意思 脚本安装在什么情况下都不会失败

a2295926

聪明的您一定看得明！ 在虚拟机window7测试资源消耗大！ 脚本好易失败！ 旧的配置机器资源消耗也很大！！
在安装期间动键盘鼠标，一样没事。脚本继续！（理论上是可以的）如果动键盘鼠标动厉害就恐怕不行了！！
不懂指令，回去查查字典吧 指令简单到很！
提示：写文本时 上下界面用相同文本！！ 否则有可能上界面的指令读取下界面！导致下一指令失败！
因此没文本的界面是难写的啦~！ 应该可以用这种写法的！！ 等了聪明的您告诉我答案！比如像迅雷7！ #AutoIt3Wrapper_Icon=ico.ico

Opt("MouseCoordMode", 0)
Opt("WinTitleMatchMode", 3)

$t="360极速浏览器 安装"

Run ("360极速浏览器.exe")
TrayTip("提示", "最好关闭安全软件,以免影响自动安装效果"&@CRLF&"自动安装期间,请勿动键盘鼠标", 3, 1)

Do
If WinExists($t,"自定义") Then 
WinActivate($t,"自定义")
Sleep(100)
ControlClick($t,"自定义","Button2")
EndIf
Until WinExists($t,"自定义安装")

Do
If WinExists($t,"自定义安装") Then
WinActivate($t,"自定义安装")
ControlSetText($t,"自定义安装","Edit1","d:\Program Files\360\360kuai")
Sleep(100)
ControlCommand($t,"自定义安装","Button4","UnCheck")
ControlCommand($t,"自定义安装","Button5","UnCheck")
ControlClick($t,"自定义安装","Button1")
EndIf
Until Not WinExists($t,"自定义安装")

While 1        
        Select
                Case WinExists($t,"加入用户体验改进计划")
                       Do 
                        WinActivate($t,"加入用户体验改进计划")
                                                Sleep(100)
                                                ControlCommand($t,"", "加入用户体验改进计划","UnCheck")
                                                ControlClick($t,"", "[CLASS:Chrome_WidgetWin_0; INSTANCE:0]","left",1,434, 331)
                        Until Not WinExists($t,"加入用户体验改进计划")
                                                ExitLoop
                Case ProcessExists("360chrome.exe")
                     Do
                                           ProcessClose("360chrome.exe")
                       Sleep(100)
                                   Until Not ProcessExists("360chrome.exe")
                                        ExitLoop
        EndSelect
WEnd

TrayTip("提示", "已经安装完成", 3, 1)
Sleep(3000)
Exit