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

小影

刚接触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")

小影

占楼补充！

tjztbk

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

chentuyu1203

学习一下，谢谢分享

chentuyu1203

学习一下，谢谢分享

wangzihe

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

joyran

路过，顶楼主

smallchin789

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

smallchin789

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

smallchin789

謝謝分享 收下了~~

smallchin789

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

ybb2003

谢谢分享，先学习了。

lzk2652

觉得不错啊