迅雷7.2.7.3496自动安装---非模拟按键

xlj310

Thunder7.2.7.3496目前官方就是这个版本　脚本直接上源代码，不作附件。
声明，我也是菜鸟，代码简陋，有错误在所难免，请高手见谅！
由于这是我的第一次发帖，所以也不设置权限，欢迎大家提出建议！

Run("Thunder7.2.7.3496.exe")
WinWaitActive("迅雷7安装程序")
ControlSend("迅雷7安装程序",'','Button1','{Space}')
WinWaitActive("迅雷7安装程序",'Thunder')
;取消开机启动
ControlSend("迅雷7安装程序",'','Button7','{Space}')
;取消开机启动，它会弹出一个窗口
WinwaitActive("迅雷7")
ControlSend("迅雷7",'','Button2','{Space}')
;取消百度工具栏
ControlSend("迅雷7安装程序",'','Button11','{Space}')
;点击下一步
ControlSend("迅雷7安装程序",'','Button1','{Space}')
;点击下一步，会弹出无此路径是否创建或者有此路径是否覆盖，反正都要确定一下
WinWaitActive("迅雷7")
ControlSend('迅雷7','','Button2','{Space}')
;经过多次安装，发现出现完成窗口时会多一个Static控件，所以
;判断迅雷7窗口中的控件中是否包含Static控件，如果有，则说明已经完成！
Do
        Local $text = WinGetClassList("迅雷7安装程序", "")
        Sleep(500)
Until StringInStr($text,"Static")>0
;安装完成，直接秒杀迅雷的安装程序！
ProcessClose("Thunder7.2.7.3496.exe")

jkq920

来支持一下了.................

1733413480

很需要，谢谢分享。

xlj310

多谢鼓励，我会继续努力的。

星雨朝霞

支持一下!看到以前我的帖子里有人说我写的迅雷脚本不适用于新版迅雷!正准备写个!无意刷新一下论坛.看到你的!还是不写了!

xlj310

顶起，留个记号

Samblwoo

学习了，感谢分享，支持~

522744793

看不懂，自己不会，学习学习了

daybird

bcuo 学习啦

17311799

不好用啊  卡在选项那了

xlj310

不好用啊  卡在选项那了
17311799 发表于 2012-7-5 09:33

    安装过程中请不要随便乱点，安装程序频繁失去焦点可能会导致安装不成功。

最好是有截图。

17311799

不好用     ！！！！！！！！！！

17311799

[quote]安装过程中请不要随便乱点，安装程序频繁失去焦点可能会导致安装不成功。

最好是有截图。就卡在这里不点下一步

ooxxgod

不错 还是支持咯

xlj310

[quote]安装过程中请不要随便乱点，安装程序频繁失去焦点可能会导致安装不成功。

最好是有截图。就卡在这 ...
17311799 发表于 2012-7-5 22:25

      多谢支持，我现在不能确定你所说的版本是否和我相同。或者说一下你的版本是什么，我也来试下看能否安装，若不能，我再修改部分代码。
　　建议你下载与我的脚本对应的版本，或者下载目前的最新版本。这个版本的控件均是普通控件。可以直接点击的~　下面贴上我的代码！

这是目前最新版本的安装程序，　迅雷安装程序请从官网下载

Run("Thunder7.2.8.3574.exe")
WinWait("迅雷7安装程序",'重要须知');等待窗口
If Not WinActive("迅雷7安装程序",'重要须知') Then WinActivate("迅雷7安装程序",'重要须知');主动激活窗口
ControlClick("迅雷7安装程序",'重要须知','Button1');直接点击接受


;等待下一个页面
WinWait("迅雷7安装程序",':\');这里要包含路径，必然少不了:\
If Not WinActive("迅雷7安装程序",':\') Then WinActivate("迅雷7安装程序",':\');主动激活窗口
ControlClick("迅雷7",'','Button11');取消百度工具栏

ControlClick("迅雷7安装程序",'','Button7');Button7开机启动
WinWait("迅雷7","",5);取消开机启动会有一个弹窗
If Not WinActive("迅雷7") Then WinActivate("迅雷7","")

ControlClick("迅雷7",'','Button2');点击　是否确定取消开机启动　的确定按钮
If Not WinActive("迅雷7安装程序",':\') Then WinwaitActive("迅雷7安装程序",':\')
ControlClick("迅雷7安装程序",'','Button1');点击下一步，会弹出无此路径是否创建或者有此路径是否覆盖，反正都要确定一下
WinWait("迅雷7")
If Not WinActive("迅雷7","") Then WinActivate("迅雷7")
Sleep(1000)
ControlClick('迅雷7','','Button2');点击确定 过了这一步后，就开始安装了！


;经过多次安装，发现出现完成窗口时会多一个Static控件，所以
;判断迅雷7窗口中的控件中是否包含Static控件，如果有，则说明已经完成！
$t1=TimerInit()
Do
        $t2=Int(TimerDiff($t1)/1000);秒
        ToolTip('安装过程可能需要一到两分钟，'&@crlf&'请耐心等待~！                '&$t2)
                Sleep(1000)
;~                 $Com=WinGetClassList('迅雷7安装程序','')
Until        StringInStr($com,"Static")>0
;安装完成，直接秒杀迅雷的安装程序！
ToolTip('安装完成~')
Sleep(1000)
ProcessClose("Thunder7.2.8.3574.exe");如果你足够人道，你可以把那三个复选框全部去掉，再点击完成！----效果相同！
FileDelete(@DesktopCommonDir&"\迅雷游戏盒子.lnk")
FileDelete(@DesktopCommonDir&"\迅雷看看-免费高清电影.lnk")
FileDelete(@DesktopCommonDir&"\迅雷高清影片免费下载.lnk")