迅雷7自动安装源码

星雨朝霞 · 发表于 2010-11-27 15:15:13

本帖最后由星雨朝霞于 2012-5-7 20:38 编辑

在某个帖子看到有迅雷7的自动安装程序(不开源),就把自己写的放出来给大伙过过眼.
欢迎指出错误,并加以修正.

适用版本:7.1(自行测试)

If FileExists('Thunder7.1.1.1982.exe')<>1 Then Exit
Run ('Thunder7.1.1.1982.exe')
$title='迅雷7安装程序'
WinWait($title,'软件许可协议')
ControlClick($title,'软件许可协议','Button1')
WinWait($title,'Thunder')
ControlSetText($title,'Thunder','Edit1','D:\Program Files\Thunder Network\Thunder7')
ControlClick($title,'Thunder','Button6')
ControlClick($title,'Thunder','Button7')
WinWait('迅雷7')
ControlClick('迅雷7','','Button2')
WinWait($title,'Thunder')
ControlClick($title,'Thunder','Button1')
WinWait('迅雷7')
ControlClick('迅雷7','','Button2')
WinWaitClose($title,'Thunder')
While 1
        If ControlGetHandle($title,'','Button4') Then ExitLoop
        Sleep(200)
WEnd
ControlClick($title,'','Button4')
ControlClick($title,'','Button5')
ControlClick($title,'','Button1')

迅雷7其它版本请自行测试!如果迅雷没改过迅雷7的安装包应该是可以用在其它迅雷7版本上的!

xhy121 · 发表于 2010-11-27 18:28:06

感谢高手分享,AU3学习中!

转角遇到囜 · 发表于 2010-11-28 16:08:11

就知道你会这样写，哈哈哈

31408177 · 发表于 2010-11-29 12:21:38

不错不错通过楼主的代码我又学习了一点东西嘿嘿

joe7711 · 发表于 2010-12-17 22:26:21

If FileExists('Thunder7.1.1.1982.exe')<>1 Then Exit
Run ('Thunder7.1.1.1982.exe')
$title='迅雷7安装程序'
WinWait($title,'软件许可协议')
ControlClick($title,'软件许可协议','Button1')
WinWait($title,'Thunder')
ControlSetText($title,'Thunder','Edit1','D:\Program Files\Thunder Network\Thunder7')
ControlClick($title,'Thunder','Button6')
ControlClick($title,'Thunder','Button7')
WinWait('迅雷7')
ControlClick('迅雷7','','Button2')
WinWait($title,'Thunder')
ControlClick($title,'Thunder','Button1')
WinWait('迅雷7')
ControlClick('迅雷7','','Button2')
WinWaitClose($title,'Thunder')
While 1
If ControlGetHandle($title,'','Button4') Then ExitLoop
Sleep(200)
WEnd
ControlClick($title,'','Button4')
ControlClick($title,'','Button5')
ControlClick($title,'','Button1')

hanqin · 发表于 2010-12-18 02:00:27

看看！！！

183712314 · 发表于 2010-12-19 15:30:17

敢问' '和" "是不是一个效果啊.....

星雨朝霞 · 发表于 2010-12-20 14:03:37

回复 7# 183712314

一般情况下:差不多...

surfwork · 发表于 2010-12-29 16:37:51

学习学习先了.

jilk168 · 发表于 2011-1-13 17:12:24

学习。。。。。。。。。。。。

忘忧君 · 发表于 2011-1-18 00:17:40

感谢楼主无私分享源码。

geng5257 · 发表于 2011-2-12 08:31:43

感谢分享，收藏

jilk168 · 发表于 2011-2-12 14:23:51

怎么没反应

BlackJacKi · 发表于 2011-2-12 20:48:50

感谢楼主！！~~免费开源~强烈支持！~

jilk168 · 发表于 2011-2-13 13:47:03

无法执行啊,编译了

		自动登录	找回密码
密码			加入

[原创] 迅雷7自动安装源码