lzxwp 发表于 2008-10-29 00:03:10

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


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 编辑 ]

番茄 发表于 2008-10-29 14:15:48

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

lzxwp 发表于 2008-10-29 21:53:52

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

xpboy 发表于 2008-10-30 15:51:58

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

sunwei4616 发表于 2008-10-30 16:38:19

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 ThenMsgBox (0,"","对:安装 -> TButton3控制失败!"&@CRLF&"要用手工输入跳过此次控制")

lzxwp 发表于 2008-10-30 20:40:48

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

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

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

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

lzxwp 发表于 2008-10-30 21:52:33

按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 ThenMsgBox (0,"","对:安装 -> TButton3控制失败!"&@CRLF&"要用手工输入跳过此次控制")

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

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

sanhen 发表于 2008-11-2 00:30:22

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

lzxwp 发表于 2008-11-4 08:36:50

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

yun 发表于 2008-11-4 18:27:01

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

gs008970 发表于 2008-11-5 04:54:37

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

gs008970 发表于 2008-11-5 04:56:32

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

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

lzxwp 发表于 2008-11-13 22:40:38

按照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 编辑 ]
页: [1]
查看完整版本: 请帮忙完善自动安装海峰五笔9.4安装脚本？