迅雷7安装

chentuyu1203

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

chentuyu1203

沙发。。。。。

joyran

路过......

smallchin789

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

smallchin789

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

smallchin789

謝謝分享 收下了~~

刚复之王

看帖子的要发表下看法












电子厂招聘，工厂招聘，招工信息网

sdrzdg

好帖得顶！

sfdhgf

感谢楼主分享，长姿势了。

dnvplj

楼主辛若，谢谢分享。