找回密码
 加入
搜索
查看: 15726|回复: 34

[原创] 迅雷7.2.7.3496自动安装---非模拟按键

[复制链接]
发表于 2012-5-7 16:09:47 | 显示全部楼层 |阅读模式
本帖最后由 xlj310 于 2012-7-6 10:19 编辑

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

评分

参与人数 2金钱 +40 贡献 +1 收起 理由
星雨朝霞 + 20 + 1 鼓励一下
tryhi + 20 虽然这种大把,还是鼓励一下

查看全部评分

发表于 2012-5-7 17:06:23 | 显示全部楼层
来支持一下了.................
发表于 2012-5-7 18:48:57 | 显示全部楼层
很需要,谢谢分享。
 楼主| 发表于 2012-5-7 23:26:34 | 显示全部楼层
多谢鼓励,我会继续努力的。
发表于 2012-5-7 23:57:51 | 显示全部楼层
支持一下!看到以前我的帖子里有人说我写的迅雷脚本不适用于新版迅雷!正准备写个!无意刷新一下论坛.看到你的!还是不写了!
 楼主| 发表于 2012-5-15 22:27:46 | 显示全部楼层
顶起,留个记号
发表于 2012-5-25 12:11:39 | 显示全部楼层
学习了,感谢分享,支持~
发表于 2012-6-3 18:13:48 | 显示全部楼层
看不懂,自己不会,学习学习了
发表于 2012-6-28 16:04:43 | 显示全部楼层
bcuo 学习啦
发表于 2012-7-5 09:33:24 | 显示全部楼层
不好用啊  卡在选项那了
 楼主| 发表于 2012-7-5 13:26:05 | 显示全部楼层
不好用啊  卡在选项那了
17311799 发表于 2012-7-5 09:33



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

最好是有截图。
发表于 2012-7-5 15:50:45 | 显示全部楼层
不好用     !!!!!!!!!!
发表于 2012-7-5 22:25:58 | 显示全部楼层
[quote]安装过程中请不要随便乱点,安装程序频繁失去焦点可能会导致安装不成功。

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2012-7-6 00:03:05 | 显示全部楼层
不错 还是支持咯
 楼主| 发表于 2012-7-6 09:39:05 | 显示全部楼层
本帖最后由 xlj310 于 2012-7-6 10:40 编辑
[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")
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 09:08 , Processed in 0.085627 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表