搞搞 新意思 脚本安装在什么情况下都不会失败
本帖最后由 a2295926 于 2011-9-5 12:42 编辑聪明的您一定看得明！ 在虚拟机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,"", "","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
页:
[1]