本帖最后由 propesiya 于 2011-1-18 11:54 编辑
没事写了个飞信的自动安装脚本。
1,首先卸载电脑里的飞信,清空电脑里关于ChinaMobile文件夹等各种残余文件,
2,一边编写自动安装脚本,一边安装飞信,
3,安装完之后针对已经存在此客户端的情况进行编写、
之后安装代码如下。#RequireAdmin
Dim $bt="飞信2010 安装"
Run("飞信2010_4.2.2590.0.exe")
If WinWaitActive($bt,"您将要安装的版本与已经安装的版本相同,") Then
ControlClick($bt,"您将要安装的版本与已经安装的版本相同,","Button3")
WinWaitActive($bt,"您确认要放弃安装飞信PC客户端吗?")
ControlClick($bt,"您确认要放弃安装飞信PC客户端吗?","Button1")
ElseIf WinWaitActive($bt,"欢迎您安装飞信2010。") Then
ControlClick($bt,"欢迎您安装飞信2010。","Button2")
WinWaitActive($bt,"飞信2010即将安装到下面目录中")
ControlClick($bt,"飞信2010即将安装到下面目","Button2")
WinWaitActive($bt,"飞信2010已经成功安装在您的系统中")
ControlClick($bt,"飞信2010已经成功安装在您的系统中","Button4")
ControlClick($bt,"飞信2010已经成功安装在您的系统中","Button5")
ControlClick($bt,"飞信2010已经成功安装在您的系统中","Button7")
ControlClick($bt,"飞信2010已经成功安装在您的系统中","Button2")
EndIf
但是问题来了,
1,飞信已经安装,此时运行时脚本正常退出。
2,卸载飞信,再次运行脚本时,飞信仅打开到首安装界面,不能像未添IF语句时那样自动安装。
3,卸载飞信,去掉IF语句,再次运行脚本,一切正常。
问题在哪呢?谢谢各位。找了很长时间没找到原因所在。谢谢哈~
飞信的下载地址http://u.115.com/file/f9297106e4 |