xz.huawei 发表于 2010-3-27 21:41:27

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

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')
ifWinActive('迅雷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')

凌雨 发表于 2010-3-28 15:24:58

楼主辛苦啦......

dulein 发表于 2010-3-28 20:52:26

谢谢楼主分享~！

neozjx 发表于 2010-3-28 23:13:28

支持一下楼主

jodyzyx 发表于 2010-4-1 13:18:37

新手学习了 谢谢分享
.

xtiauj007 发表于 2010-4-5 19:34:06

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

mxj987 发表于 2010-4-22 12:52:37

不错 好用 谢谢分享
页: [1]
查看完整版本: 迅雷5 V5.9.17.1334 自动安装脚本