永远爱你 发表于 2010-2-2 01:27:18

Thunder(迅雷)5.9.15.1274 自动安装(含设置,需断网)

$t="迅雷5"
$t2="安装：迅雷5"
Run("Thunder5.9.15.1274.exe")
WinWait($t,"欢迎使用 迅雷5 安装向导")
WinWaitActive($t,"欢迎使用 迅雷5 安装向导")
ControlClick($t,"欢迎使用 迅雷5 安装向导","Button2")
WinWait($t,"选择附加任务")
WinWaitActive($t,"选择附加任务")
Send("{Down}")
Send("{Space}")
Send("{Down}")
Send("{Space}")
Send("{Down}2")
Send("{Space}")
ControlClick($t,"选择附加任务","Button2")
WinActivate($t2,"百度工具栏")
ControlClick($t2,"百度工具栏","Button4")
ControlClick($t2,"百度工具栏","Button2")
WinWait("找不到服务器 - Microsoft Internet Explorer")
WinWaitActive("找不到服务器 - Microsoft Internet Explorer")
if WinActivate("找不到服务器 - Microsoft Internet Explorer")then WinClose ("找不到服务器 - Microsoft Internet Explorer")
WinWait($t,"迅雷5安装程序已完成安装")
WinActivate($t,"迅雷5安装程序已完成安装")
ControlClick($t,"迅雷5安装程序已完成安装","Button5")
ControlClick($t,"迅雷5安装程序已完成安装","Button6")
ControlClick($t,"迅雷5安装程序已完成安装","Button7")
ControlClick($t,"迅雷5安装程序已完成安装","Button2")
Sleep(2000)
Run("C:\Program Files\Thunder Network\Thunder\Program\Thunder.exe")
WinWait("欢迎使用迅雷5")
WinWaitActive("欢迎使用迅雷5")
Send("D:\Downloads")
Send("{Enter}")
WinWaitActive("迅雷5")
Sleep(5000)
Send("!o")
WinWait("配置面板")
WinWaitActive("配置面板")
ControlClick("配置面板","","Button84")
ControlClick("配置面板","","Button88")
ControlClick("配置面板","","Button76")
ControlClick("配置面板","","Button66")
ControlClick("配置面板","","Button21")
ControlClick("配置面板","","Button68")
ControlClick("配置面板","","Button3")
WinWaitActive("迅雷5")
Send("!f")
Send("x")

村牛 发表于 2010-2-23 23:53:46

谢谢哦我测下看看

minghui 发表于 2010-6-10 00:30:18

这个要断网麻烦些

a85848059 发表于 2011-3-19 18:30:09

很棒 推推推

831221 发表于 2011-3-29 14:32:01

…没我说话的余地…飘走

wurich614 发表于 2011-4-21 16:58:24

看看这里的迅雷脚本

zm5268 发表于 2011-4-22 18:48:09

谢谢楼主,支持一下{:face (427):}
页: [1]
查看完整版本: Thunder(迅雷)5.9.15.1274 自动安装(含设置,需断网)