xpboy 发表于 2008-5-21 11:04:33

遨游 新版自动安装脚本

遨游 新版自动安装脚本
软件下载地址

下载软件

下面是脚本

;网站改版了第一个小脚本
ProcessClose("Maxthon.exe") ;检测当前电脑是不是再运行遨游并关掉进程
;定义量，以便下面脚本方便使用。
$_1="傲游浏览器 2 安装 "
$_2="许可证协议"
$_3="选择安装位置"
$_4="不能打开要写入的文件: "
$_5="正在完成“傲游浏览器 2”安装向导"
;开始安装
Run("mx_2.1.0.2082cn.exe");运行安装程序
WinWait($_1,$_2);等待安装窗口
If Not WinActivate($_1,$_2) Then;检测当前窗口是否存在
WinActivate($_1,$_2);如果存在的话并激活
WinWaitActive($_1,$_2);等待安装窗口
EndIf;结束判断
ControlClick($_1,$_2,"Button2");点击按钮下一步
WinWait($_1,$_3);等待安装窗口
If Not WinActivate($_1,$_3) Then ;检测当前窗口是否存在
WinActivate($_1,$_3);如果存在的话并激活
WinWaitActive($_1,$_3);;等待安装窗口
EndIf;结束判断
ControlClick($_1,$_3,"Button2");点击按钮下一步
WinWait($_1,"正在安装");检查当前的窗口是否存在
If WinActivate($_1,"正在安装") Then
WinActivate($_1,"正在安装")
WinWaitActive($_1,"正在安装")
WinWait($_1,"正在安装")
EndIf;结束判断
WinWait($_1,$_5)
If Not WinActivate($_1,$_5) Then
WinActivate($_1,$_5)
WinWaitActive($_1,$_5)
EndIf
ControlClick($_1,$_5,"Button4");去掉对勾
ControlClick($_1,$_5,"Button2");完成关闭


[ 本帖最后由 xpboy 于 2008-5-21 11:07 编辑 ]

bsplin 发表于 2008-5-21 19:36:01

感谢分享！:face (29):

pchome2000 发表于 2008-5-22 12:52:45

感谢分享！          :face (37):

leeyva 发表于 2008-5-28 13:48:40

感谢分享！:face (29):

颜勇 发表于 2010-11-15 21:31:31

这些这么简单 还要钱啊

a2295926 发表于 2011-5-4 11:14:26

回复 1# xpboy


    If Not WinActivate($_1,$_2) Then;检测当前窗口是否存在
前窗口是否存在不是用 WinActivate 而是用WinActive

包谷面 发表于 2011-5-4 11:15:19

{:face (394):}这个都出自动安装了

坏坏 发表于 2011-6-3 06:22:47

谢谢，新手学习了！！！

chiiren 发表于 2011-6-3 15:36:02

謝謝，新手學習了！！！
页: [1]
查看完整版本: 遨游 新版自动安装脚本