找回密码
 加入
搜索
查看: 5920|回复: 9

[原创] 迅雷7安装

  [复制链接]
发表于 2013-3-1 02:00:53 | 显示全部楼层 |阅读模式
本帖最后由 chentuyu1203 于 2013-3-1 02:02 编辑
Run("Thunder7.2.10.3694.exe")
Dim $hwnd = WinWait("迅雷7安装程序") ;等待窗体出现
WinActivate($hwnd);激活
WinWaitActive($hwnd);等待激活,默认等待250毫秒
ControlClick($hwnd, "", "Button1");点击接受
WinWaitClose($hwnd)
;第二个窗口
$hwnd = WinWait("迅雷7安装程序")
WinActivate($hwnd)
WinWaitActive($hwnd)
ControlClick($hwnd, "", "Button5") ;取消桌面快捷方式选项
ControlClick($hwnd, "", "Button11") ;取消安装百度工具栏
ControlClick($hwnd, "", "Button7");取消开机启动
If WinWait("迅雷7") Then ;确认取消开机启动
        WinActivate("迅雷7")
        WinWaitActive("迅雷7")
        ControlClick("迅雷7", "", "Button2")
EndIf
WinActivate($hwnd)
WinWaitActive($hwnd)
ControlClick("迅雷7安装程序", "", "Button1");点击接受
If WinWait("迅雷7") Then ;如果目录存在,确认覆盖安装或如果不存在,创建目录安装
        WinActivate("迅雷7")
        WinWaitActive("迅雷7")
        ControlClick("迅雷7", "", "Button2")
EndIf
If WinWait("迅雷7") Then ;如果系统正运行迅雷7,即强制关闭。
        WinActivate("迅雷7")
        WinWaitActive("迅雷7")
        ControlClick("迅雷7", "", "Button1")
EndIf
If WinWait("迅雷7") Then ;安装中途不能打开XLFSIO.DLL文件错误信息,点击忽略继续安装
        WinActivate("迅雷7")
        WinWaitActive("迅雷7")
        ControlClick("迅雷7", "", "Button3")
EndIf
While 1 ;查找完成安装界面的"查看新版本特性"按钮的可见性,可见返回值为1,退出查找(完成安装界面,无法获取该界面的句柄)
        Local $IsVisible = ControlCommand("迅雷7安装程序", "", "Button7", "IsVisible", "")
        If $IsVisible = 1 Then
                ExitLoop
        EndIf
        Sleep(1000)
WEnd

WinActivate("迅雷7安装程序") ;激活安装界面
WinWaitActive("迅雷7安装程序");等待激活安装界面
ControlClick("迅雷7安装程序", "", "Button4") ;取消启动迅雷
ControlClick("迅雷7安装程序", "", "Button5") ;取消设置XX为首页
ControlClick("迅雷7安装程序", "", "Button7") ;取消查看新版本特性
Sleep(3000);延迟3秒点击完成,退出程序
ControlClick("迅雷7安装程序", "", "Button1")

本帖子中包含更多资源

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

×
 楼主| 发表于 2013-3-1 02:04:21 | 显示全部楼层
沙发。。。。。
发表于 2014-3-2 20:13:11 | 显示全部楼层
路过......
发表于 2014-12-27 08:44:34 | 显示全部楼层
謝謝大大分享 回帖是美德 希望您有更多的作品~~謝謝
发表于 2014-12-27 09:53:59 | 显示全部楼层
謝謝大大的分享 希望有更多創作
发表于 2014-12-27 14:14:25 | 显示全部楼层
謝謝分享 收下了~~
发表于 2015-1-7 15:24:22 | 显示全部楼层
看帖子的要发表下看法












电子厂招聘工厂招聘招工信息网
发表于 2015-1-8 08:52:27 | 显示全部楼层
好帖得顶!
发表于 2015-1-17 21:02:30 | 显示全部楼层
感谢楼主分享,长姿势了。
发表于 2015-1-17 22:25:50 | 显示全部楼层
楼主辛若,谢谢分享。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-21 18:27 , Processed in 0.076042 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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