迅雷 5.9.24.1506 自动安装

xvyingfeng

在坛子里混了很长时间了，一直在潜水，现在发布一篇自己写的东东。因为写的时候是在断网的情况下，可能在连网的时候会出现异常，没有进行测试过。

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=迅雷 5.9.24.1506 自动安装脚本文件
#AutoIt3Wrapper_Res_Description=迅雷 5.9.24.1506 自动安装脚本文件
#AutoIt3Wrapper_Res_Fileversion=0.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=COPY RIGHT (C) 电脑之家
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Run('Thunder5.9.24.1506.exe')
WinWaitActive('迅雷5 : 用户使用协议','否(&N)')
ControlClick('迅雷5 : 用户使用协议','是(&Y)>','Button2')
WinWaitActive('迅雷5: 安装选项','取消(&C)')
Send('{Down}{space}{Down}{space}{Down}{space}')
ControlClick('迅雷5: 安装选项','下一步(&N) >','Button2')
WinWaitActive('安装：迅雷5','取消(&C)')
ControlClick('安装：迅雷5','安装百度工具栏','Button4')
ControlClick('安装：迅雷5','下一步','Button2')
WinWaitActive('迅雷5: 安装完成','完成(&F)')
ControlClick('迅雷5: 安装完成','启动迅雷5','Button5')
ControlClick('迅雷5: 安装完成','将迅雷看看设为首页','Button6')
ControlClick('迅雷5: 安装完成','完成(&F)','Button2')
While 1

    If ProcessExists("iexplore.exe") Then

        ProcessClose("iexplore.exe")

        ExitLoop

    EndIf
WEnd       

FileDelete(@DesktopCommonDir & '\迅雷看看-免费高清影视.lnk')
FileDelete(@DesktopCommonDir & '\迅雷游戏.lnk')
FileDelete(@DesktopCommonDir & '\迅雷软件中心.lnk')

Exit