xz.huawei 发表于 2010-1-13 14:36:00

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

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')

xiaowu 发表于 2010-2-28 21:46:07

怎么没人来看哦

719931662 发表于 2010-3-9 16:00:30

Run ("Thunder5.exe")
TrayTip("注意:在此期间切勿动键盘和鼠标!","正在安装软件,请稍候...",10,1)
WinWaitActive ("迅雷5 : 用户使用协议","欢迎使用 迅雷5 安装向导")
;等待指定窗口被激活后再执行下面的命令
ControlClick ("迅雷5 : 用户使用协议","欢迎使用 迅雷5 安装向导","Button2","left","1")
;向指定控件发送鼠标点击命令
WinWaitActive ("迅雷5: 安装选项","您想要安装程序执行哪些附加任务？")
;等待指定窗口被激活后再执行下面的命令
ControlCommand ("迅雷5: 安装选项","您想要安装程序执行哪些附加任务？","SysTreeView321","UnCheck","")
;选空

ControlClick ("迅雷5: 安装选项","您想要安装程序执行哪些附加任务？","Button2","left","1")
;向指定控件发送鼠标点击命令
WinWaitActive ("安装：迅雷5","百度工具栏轻松搜索，拦截广告！")
;等待指定窗口被激活后再执行下面的命令
ControlCommand ("安装：迅雷5","安装百度工具栏","Button4","UnCheck","")
;选空
ControlClick ("安装：迅雷5","安装百度工具栏","Button2","left","1")
;向指定控件发送鼠标点击命令
WinWaitActive ("《迅雷武侠》官方网站 - Microsoft Internet Explorer","http://wx.xunlei.com/welcome2/?advid=0000100041xunleiwuxia00100&gs=xunleiwuxia")
;等待指定窗口被激活后再执行下面的命令
Send ("!{F4}")
WinWaitActive ("迅雷5: 安装完成","迅雷5安装程序已完成安装")
;等待指定窗口被激活后再执行下面的命令
ControlCommand ("迅雷5: 安装完成","迅雷5安装程序已完成安装","Button5","UnCheck","")
;选空
ControlCommand ("迅雷5: 安装完成","迅雷5安装程序已完成安装","Button7","UnCheck","")
;选空
ControlCommand ("迅雷5: 安装完成","迅雷5安装程序已完成安装","Button6","UnCheck","")
;选空
WinWaitActive ("迅雷5: 安装完成","迅雷5安装程序已完成安装")
Send ("!f")

sununs 发表于 2010-3-9 17:39:14

我做的迅雷有时候会卡住，不知道为什么。。。

77342641 发表于 2010-3-11 13:40:11

学习了。感谢！

hnkaspersky 发表于 2010-3-18 20:17:10

学习了。感谢！

ycan888 发表于 2010-3-19 14:42:31

谢谢了，很好

honghao_123 发表于 2010-4-27 11:19:40

学习了，谢谢。
页: [1]
查看完整版本: 迅雷5 V5.9.14.1246自动安装脚本