请帮忙完善自动安装海峰五笔9.4安装脚本？

lzxwp

Run("SunWb_4843.exe")
WinWaitActive("安装 - 海峰五笔86+98标准版","欢迎使用")
Send("!N")

WinWaitActive("安装 - 海峰五笔86+98标准版","信息")
Send("!N")

WinWaitActive("安装 - 海峰五笔86+98标准版","选择目标位置")
Send("!N")

WinWaitActive("安装 - 海峰五笔86+98标准版","选择组件")
Send("!N")

WinWaitActive("安装 - 海峰五笔86+98标准版","准备安装")
Send("!I")

WinWaitActive("海峰五笔 for Win95/98/ME/NT/2000/XP","请选择")
Send("!O")

WinWaitActive("海峰五笔 for Win95/98/ME/NT/2000/XP","安装成功")
Send("!O")

WinWaitActive("安装 - 海峰五笔86+98标准版","安装向导完成")
Send("!F")

我的这个脚本无法完成最后一步,也就是点"完成"关闭安装窗口.
我在进行手动安装时有一个问题,无法用键盘操作关闭最后一个窗口,必须用鼠标点“完成”按钮才能关闭。
请高手帮忙，指点！指点！先谢谢了。

[ 本帖最后由 lzxwp 于 2008-10-29 00:15 编辑 ]

番茄

WinWaitActive("安装 - 海峰五笔86+98标准版"," 海峰五笔86+98标准版 安装向导完成")
Send("!F")

lzxwp

感谢番茄
按你的建议对脚本进行修改,还是不能解决问题.
其实
WinWaitActive("安装 - 海峰五笔86+98标准版","安装向导完成")
Send("!F")
和
WinWaitActive("安装 - 海峰五笔86+98标准版"," 海峰五笔86+98标准版 安装向导完成")
Send("!F")
是一样的."文字"中的文本字数多少都行

xpboy

Inno Setup 制作的安装文件，请使用：setup.exe /sp- /silent /norestart
这个参数也可以 自动安装的

sunwei4616

GUICtrlSetData($titl,"Title:安装")
GUICtrlSetData($text,"Text:海峰五笔86+98标准版 安装向导完成")
GUICtrlSetData($ID,"ID: TButton3")
ControlFocus('安装','海峰五笔86+98标准版 安装向导完成','TButton3')
$Returns=ControlClick('安装','海峰五笔86+98标准版 安装向导完成','TButton3','left')
If $Returns=0 Then  MsgBox (0,"","对:安装 -> TButton3  控制失败!"&@CRLF&"要用手工输入跳过此次控制")

lzxwp

我用setup.exe /sp- /silent /norestart
这个参数也安装过这个程序,但不能完成自动安装,它会停在

"海峰五笔 for Win95/98/ME/NT/2000/XP"
"请选择安装的编码方式")

这个窗口就不能自动运行了.

[ 本帖最后由 lzxwp 于 2008-10-30 21:56 编辑 ]

lzxwp

按5楼建议脚本修改为
Run("SunWb_4843.exe")
WinWaitActive("安装 - 海峰五笔86+98标准版","欢迎使用")
Send("!N")
WinWaitActive("安装 - 海峰五笔86+98标准版","信息")
Send("!N")
WinWaitActive("安装 - 海峰五笔86+98标准版","选择目标位置")
Send("!N")
WinWaitActive("安装 - 海峰五笔86+98标准版","选择组件")
Send("!N")
WinWaitActive("安装 - 海峰五笔86+98标准版","准备安装")
Send("!I")
WinWaitActive("海峰五笔 for Win95/98/ME/NT/2000/XP","请选择")
Send("!O")
WinWaitActive("海峰五笔 for Win95/98/ME/NT/2000/XP","安装成功")
Send("!O")
Dim $title,$text,$ID
GUICtrlSetData($title,"Title:安装")
GUICtrlSetData($text,"Text:海峰五笔86+98标准版 安装向导完成")
GUICtrlSetData($ID,"ID: TButton3")
ControlFocus("安装","海峰五笔86+98标准版 安装向导完成","TButton3")
$Returns=ControlClick("安装","海峰五笔86+98标准版 安装向导完成","TButton3","left")
If $Returns=0 Then  MsgBox (0,"","对:安装 -> TButton3  控制失败!"&@CRLF&"要用手工输入跳过此次控制")

跳出这个窗口,还是没成功.

[ 本帖最后由 lzxwp 于 2008-10-31 08:22 编辑 ]

sanhen

提取出来。输入法大部分都是可以做成绿色版的。

lzxwp

请指点一下做成绿色版的方法

yun

安装到最后一步,那个窗口不是最前的,是有点灰的啊.

gs008970

WinActivate("安装 - 海峰五笔86+98标准版")
Sleep(3000)
Send("{enter}")

gs008970

最后那个窗口是未激活状态。所以要先激活。然后有一个时间延迟。
只延迟1秒都不行。直接试的3秒。后来再试延迟2秒也是可行的。
自己喜欢写成send("{enter}")所以……呵呵。

[ 本帖最后由 gs008970 于 2008-11-5 05:00 编辑 ]

lzxwp

按照gs008970 指点修改为

............
WinWaitActive("海峰五笔 for Win95/98/ME/NT/2000/XP","安装成功")
Send("!O")

WinActivate("安装 - 海峰五笔86+98标准版")
Sleep(3000)
Send("{enter}")


问题解决。感谢gs008970

[ 本帖最后由 lzxwp 于 2008-11-14 19:54 编辑 ]