[转帖]迅雷Thunder5.5.1.241自动安装源码

广布元德

Run("Thunder5.5.1.241.exe")
WinWaitActive("安装 - 迅雷5","欢迎使用 迅雷5 安装向导")
Send("!N")
WinWaitActive("安装 - 迅雷5","许可协议")
ControlClick("安装 - 迅雷5","许可协议","[class:TRadioButton;instance:1]")
Send("!N")
WinWaitActive("安装 - 迅雷5","选择附加任务")
ControlClick("安装 - 迅雷5","选择附加任务","[class:TCheckBox;instance:2]")
ControlClick("安装 - 迅雷5","选择附加任务","[class:TCheckBox;instance:1]")
;上面这句为是否添加桌面快捷方式，要添加的话，就删掉此句
send("{tab}")
send("{space}")
send("{space}")
send("{down}")
send("{space}")
send("!n")
WinWaitActive("安装 - 迅雷5","免费Google Toolbar for Internet Explorer")
controlclick("安装 - 迅雷5","免费Google Toolbar for Internet Explorer","[class:TRadioButton;instance:1]")
send("!N")
WinWaitActive("安装 - 迅雷5","选择目标位置")
send("D:\Thunder")
;上面这句不用说也明白了，安装路径
send("!n")
WinWaitActive("安装 - 迅雷5","准备安装")
send("!i")
;加入判断语句，因为安装完后会弹个网页，可是这网页有时显示，有时不显示
If winwait("迅雷看看") then
winclose("迅雷看看")
ElseIf winwait("http://help.xunlei") then
WinClose("http://help.xunlei")
Else
EndIf
WinWaitActive("安装 - 迅雷5","迅雷5 安装向导完成")
send("{space}")
send("{down}")
send("{space}")
send("!f")
MsgBox(0,"提示","迅雷安装完毕,本窗口二秒内关闭","2")

[ 本帖最后由 subp520 于 2008-2-8 02:20 编辑 ]

elesky

能不能直接跳过安装Google Toolbar for Internet Explorer和Google Toolbar for Internet 。且不选中安装！不过还是要谢谢楼主的分享

wuha3619

呵呵，我不是很懂，进来学学

lxz

进来学学

a_wind

何必，这东西是NSIS打包的，用cmd参数： /S （大小写敏感）就OK了。

drz513

/S  不好用啊

a56597862

怎么实现不安装Google Toolbar for Internet Explorer,搞了好几次,没成功

a56597862

controlclick("安装 - 迅雷5","免费Google Toolbar for Internet Explorer","[class:TRadioButton;instance:1]")

class:TRadioButton???
我用查看工具看到的只是button  ~~怎么回事

xpboy

好啊

slxwyd

支持最新的迅雷5.8.4.575

Run("Thunder5.exe")
if WinActive("打开文件 - 安全警告","您想运行此文件吗?") Then
    ControlClick("打开文件 - 安全警告","您想运行此文件吗?","[class:button;instance:2]")
EndIf
WinWaitActive("安装 - 迅雷5","欢迎使用 迅雷5 安装向导")
ControlClick("安装 - 迅雷5","欢迎使用 迅雷5 安装向导","[class:TButton;instance:1]")
WinWaitActive("安装 - 迅雷5","许可协议")
ControlClick("安装 - 迅雷5","许可协议","[class:TRadioButton;instance:1]")
ControlClick("安装 - 迅雷5","许可协议","[class:TButton;instance:2]")
WinWaitActive("安装 - 迅雷5","选择附加任务")
ControlClick("安装 - 迅雷5","选择附加任务","[class:TCheckBox;instance:2]")
Send("{TAB 2}")
Send("{SPACE 2}")
send("{down}")
send("{down}")
send("{down}")
send("{dosw}")
send("!n")
WinWaitActive("安装 - 迅雷5","免费安装Google工具栏","[class:TCheckBox;instance:2]")
MouseClick("left", 307, 445, 1)
send("{space}")
send("{dosw}")
send("!N")
ControlClick("安装 - 迅雷5","选择附加任务","[class:TButton;instance:2]")
WinWaitActive("安装 - 迅雷5","选择目标位置")
ControlClick("安装 - 迅雷5","选择目标位置","[class:TButton;instance:3]")
If WinActive("文件夹存在","是") Then
    ControlClick("文件夹存在","是","[class:Button;instance:1]")
EndIf
WinWaitActive("安装 - 迅雷5","准备安装")
ControlClick("安装 - 迅雷5","准备安装","[class:TButton;instance:3]")
WinWaitActive("安装 - 迅雷5","迅雷5 安装向导完成")
WinActivate("安装 - 迅雷5","提示: 打开新的IE窗口，IE右键菜单就会出现")
Send("{TAB}")
Send("{SPACE}")
Send("{TAB}")
Send("{SPACE}")
ControlClick("安装 - 迅雷5","提示: 打开新的IE窗口，IE右键菜单就会出现","[class:TButton;instance:2]")
send("!n")


仿照楼上的在处理谷歌这个垃圾软件上，用了一个鼠标点击解决了。

zho44520

谢谢  学习机会不能错过

冷静的心

原帖由 slxwyd 于 2008-8-26 07:40 发表
支持最新的迅雷5.8.4.575

Run("Thunder5.exe")
if WinActive("打开文件 - 安全警告","您想运行此文件吗?") Then
    ControlClick("打开文件 - 安全警告","您想运行此文件吗?","[class:button;instance:2]")
E ...

如果你用19“的屏幕鼠标点击，但是到22”屏幕上怎么办？还是用键盘吧

番茄

还有更新的迅雷 5.8.5.576-Ayu版本

SplashTextOn("迅雷 5.8.5.576-Ayu全自动安装程序","自动安装过程中请勿进行键盘与鼠标的操作！",550,50,-1,100,32, "楷体_GB2312",18)

Run("Thunder.v5.8.5.576.NoAD-Ayu.exe")


WinWaitActive("迅雷 5.8.5.576 安装","欢迎使用“迅雷 5.8.5.576”安装向导")
Send("!N")

WinWaitActive("迅雷 5.8.5.576 安装","许可证协议")
Send("!I") 

WinWaitActive("迅雷 5.8.5.576 安装","选择组件")
Send("{down}{down}{down}{SPACE}")
Send("{down}{SPACE}")
Send("{down}{SPACE}")
Send("{down}{down}{SPACE}")
Send("!N") 

WinWaitActive("迅雷 5.8.5.576 安装","选择安装位置")
Send("D:\Program Files\Thunder")
Send("!I")

WinWaitActive("迅雷 5.8.5.576 安装","正在完成“迅雷 5.8.5.576”安装向导")
Send("!F") 
Sleep(300)
if winactive("Windows 安全警报") Then
   Send("!U")
EndIf 

FileDelete (@SystemDir & "\cid_store.dat")   ;阻止迅雷自动上传数据信息，删除系统System32文件中的cid_store.dat文件
DirCreate  (@SystemDir & "\cid_store.dat")   ;阻止迅雷自动上传数据信息，新建系统System32文件中的cid_store.dat文件夹

WinWaitActive("迅雷扩展设置","IE加载项管理")
WinMove("迅雷扩展设置","IE加载项管理", 0, 0)
WinWaitActive("迅雷扩展设置","关闭热门推荐")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button5")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button10")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button13")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button6")
WinWaitActive("IE加载项管理","浏览器帮助程序对象")
ControlClick ("IE加载项管理","浏览器帮助程序对象", "Button7")
ControlClick ("IE加载项管理","浏览器帮助程序对象", "Button1")
WinWaitActive("迅雷扩展设置","关闭热门推荐")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button1")

sws

番茄兄写得不错，我正好在装ayu的版本。谢谢！
但是有一个问题，当软件放在“软件安装管理器”里执行的时候，到“迅雷扩展设置”那里就不动了，死活激活不了这个窗口，非要用鼠标点一下“迅雷扩展设置”窗口才可以继续，我怎么看帮助文档也没找到解决办法，貌似WinWaitActive应该能找得到才对，ControlClick也应该能点得到按钮。我在N台机器上测试都是如此，真是奇哉怪也！不知哪位大虾有解决方法？

sws

番茄兄写得不错，我正好在装ayu的版本。谢谢！
但是有一个问题，当软件放在“软件安装管理器”里执行的时候，到“迅雷扩展设置”那里就不动了，死活激活不了这个窗口，非要用鼠标点一下“迅雷扩展设置”窗口才可以继续，我怎么看帮助文档也没找到解决办法，貌似WinWaitActive应该能找得到才对，ControlClick也应该能点得到按钮。我在N台机器上测试都是如此，真是奇哉怪也！不知哪位大虾有解决方法？