迅雷5 V5.9.17.1334 自动安装脚本

xz.huawei

Run('Thunder.exe')
WinWaitActive('迅雷5 : 用户使用协议','欢迎使用 迅雷5 安装向导')
ControlClick('迅雷5 : 用户使用协议','欢迎使用 迅雷5 安装向导','Button2')
WinWaitActive('迅雷5: 安装选项','选择附加任务')
ControlSetText('迅雷5: 安装选项','选择附加任务','Edit1','C:\Program Files\Thunder Network\Thunder')
Send('{DOWN}{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}')
Send('!N')
if  WinActive('迅雷5','文件夹已存在, 是否覆盖?') Then
        ControlClick('迅雷5','文件夹已存在, 是否覆盖?','Button1')
        EndIf
        WinWaitActive('安装：迅雷5','百度工具栏，让浏览和搜索更便捷！')
ControlClick('安装：迅雷5','百度工具栏，让浏览和搜索更便捷！','Button4')
ControlClick('安装：迅雷5','百度工具栏，让浏览和搜索更便捷！','Button2')
ProcessWait('IEXPLORE.EXE')
if ProcessExists('IEXPLORE.EXE') Then
   ProcessClose('IEXPLORE.EXE')
   endif  
        WinWaitActive('迅雷5: 安装完成','迅雷5安装程序已完成安装')
        WinSetState('迅雷5: 安装完成','迅雷5安装程序已完成安装',@SW_ENABLE )
        WinSetOnTop('迅雷5: 安装完成','迅雷5安装程序已完成安装',1)
WinActivate('迅雷5: 安装完成','迅雷5安装程序已完成安装')
ControlClick('迅雷5: 安装完成','迅雷5安装程序已完成安装','Button5')
ControlClick('迅雷5: 安装完成','迅雷5安装程序已完成安装','Button6')
ControlClick('迅雷5: 安装完成','迅雷5安装程序已完成安装','Button7')
ControlClick('迅雷5: 安装完成','迅雷5安装程序已完成安装','Button2')
FileDelete(@DesktopCommonDir & '\迅雷看看-免费高清影视.lnk')
FileDelete(@DesktopCommonDir & '\迅雷游戏.lnk')
FileDelete(@DesktopCommonDir & '\迅雷软件中心.lnk')

凌雨

楼主辛苦啦......

dulein

谢谢楼主分享~！

neozjx

支持一下楼主

jodyzyx

新手  学习了 谢谢分享
.

xtiauj007

一样带走，谢谢了。希望常发常用最新软件

mxj987

不错 好用 谢谢分享