小影 发表于 2012-10-24 13:43:49

Thunder7.2.10.3694迅雷自动安装脚本--后台发送指令完成安装

本帖最后由 小影 于 2012-10-24 13:46 编辑

刚接触AU3几天，做了个最新版的迅雷自动安装练手，希望高手们指点一二！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")


小影 发表于 2012-10-24 13:47:30

占楼补充！

tjztbk 发表于 2012-11-2 19:47:08

谢谢，正想弄一个迅雷的自动安装呢，没想到有现成的，呵呵

chentuyu1203 发表于 2012-12-5 18:55:53

学习一下，谢谢分享

chentuyu1203 发表于 2012-12-5 19:13:13

学习一下，谢谢分享

wangzihe 发表于 2013-1-11 09:05:11

非常不错，我也是新手，学习一下。

joyran 发表于 2014-3-2 20:17:35

路过，顶楼主

smallchin789 发表于 2014-12-27 08:44:24

謝謝大大分享 回帖是美德 希望您有更多的作品~~謝謝

smallchin789 发表于 2014-12-27 09:54:18

謝謝大大的分享 希望有更多創作

smallchin789 发表于 2014-12-27 14:14:16

謝謝分享 收下了~~

smallchin789 发表于 2014-12-27 20:35:50

謝謝分享期待你有更多的創作

ybb2003 发表于 2015-3-8 22:10:36

谢谢分享，先学习了。

lzk2652 发表于 2016-10-7 10:15:19

觉得不错啊
页: [1]
查看完整版本: Thunder7.2.10.3694迅雷自动安装脚本--后台发送指令完成安装