chentuyu1203 发表于 2013-3-1 02:00:53

迅雷7安装

本帖最后由 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")

chentuyu1203 发表于 2013-3-1 02:04:21

沙发。。。。。

joyran 发表于 2014-3-2 20:13:11

路过......

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

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

smallchin789 发表于 2014-12-27 09:53:59

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

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

謝謝分享 收下了~~

刚复之王 发表于 2015-1-7 15:24:22

看帖子的要发表下看法











http://www.discuz.net/static/image/common/sigline.gif
电子厂招聘，工厂招聘，招工信息网

sdrzdg 发表于 2015-1-8 08:52:27

好帖得顶！{:face (125):}

sfdhgf 发表于 2015-1-17 21:02:30

感谢楼主分享，长姿势了。{:face (356):}

dnvplj 发表于 2015-1-17 22:25:50

楼主辛若，谢谢分享。
页: [1]
查看完整版本: 迅雷7安装