Lotus软件的自动安装？

herolxb

偶是一公司的网管，单位有一套办公自动化系统，用的是Lotus软件平台，因为客户端数量比较大（400多台），一直想搞个自动安装程序，这两天在学AU3脚本，但在编制的过程中遇到了麻烦，如下图，在许可证协议界面应该选择“接受”单选框，我用的是controlcommand命令，如下：
......
winwaitactive("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "许可证协议")
ControlCommand("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "许可证协议", "Button3", "Check","")
send("!n")
......
脚本编译后运行，在这一步骤确却无法自动运行下去，在问题提问区发了求助帖，却没人帮忙，只好又发到这里，我已经找了个空间将安装程序上传了，希望得到热心人的帮助。谢谢了先。
http://www.qiannao.com/space/show/herolxb/上传分享/Lotus.rar/.page

[ 本帖最后由 herolxb 于 2009-3-2 09:38 编辑 ]

b8922127

以前寫的,希望能幫到你


MsgBox(0,"Notes6.5","開始安裝",3)
Run("X:\Application\01.OA_AP\02_Notes 6.5.6TC\setup.exe")
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "安裝精靈將要在您的電腦中安裝")
Send("!N")
WinWaitActive("Lotus Notes 6.5.6 zh-TW - InstallShield 精靈", "請仔細閱讀下面的授權合約")
Send("!A")
Sleep(700)
Send("!N")
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "使用者名稱")
Send("!A")
Sleep(700)
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "使用者名稱")
Send("!N")
Sleep(700)
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "將程式檔安裝到")
Send("!C")
Sleep(700)
ControlSetText("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "選取要安裝程式檔的位置", "RichEdit20W1", "c:\Program Files\lotus\notes\" )
Sleep(700)
Send("{ENTER}")
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "將程式檔安裝到")
Send("!N")
WinWaitActive("Lotus Notes 6.5.6 zh-TW - 安裝精靈", "按一下下面列表內的圖示以變更要安裝的功能")
Send("{Down 2}")
Sleep(700)
Send("{SPACE}{DOWN 3}{ENTER}")
Sleep(700)
Send("{DOWN 2}{SPACE}{DOWN 3}{ENTER}")
Sleep(700)
Send("{Down 1}{Space}{Down 1}{Enter}")
Sleep(700)
Send("!N")
WinWaitActive("Lotus Notes 6.5.6 zh-TW 安裝精靈", "按一下「安裝」開始安裝")
Send("{ENTER}")
WinWaitActive("Lotus Notes 6.5.6 zh-TW 安裝精靈")
WinClose("Lotus Notes 6.5.6 zh-TW 安裝精靈")
MsgBox(0,"Notes6.5","安裝完成",3)

131738

去看看！

http://www.autoitx.com/forum.php ... &extra=page%3D6

[ 本帖最后由 131738 于 2009-2-26 18:14 编辑 ]

herolxb

b8922127和131738两位好！
b8922127的代码中选择这一项用的是Send("!A")，这个快捷键我之前已经试过了，不顶用。
131738前辈的模板代码中用的是controlclick命令吧，这个命令我同样试过了，也不顶用。
说明一下，许可证协议中的两个单选框分别是button2和button3，在它们的外边还有一个大的框架，标为button1。有点嵌套的感觉，不知会不会影响选择？

b8922127

試試{UP}看看吧!會不會你的Title抓錯了或者加Sleep(1000)

b8922127

winwaitactive("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "许可证协议")
ControlCommand("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "许可证协议", "Button3", "Check","")

藍色的內文換成別的

herolxb

b8922127你好！
我在代码中增加了sleep，将你说的内文置换成其它内容，还是不行。代码如下：
.....
winwaitactive("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "通用条款")
sleep(1000)
Controlcommand("Lotus Notes 6.5.4 zh-CN - Installation Wizard", "通用条款", 3305, "check","")
send("!n")
......
能否在百忙之中将我上传的安装文件下下来测试一下呢？

b8922127

用controlclick試試看!!

herolxb

controlclick命令也试过了啊

星驰周

不用控件方式，用模拟鼠标点行不行？

herolxb

模拟鼠标没试过，就怕不准确，以后会有问题。

星驰周

只要窗口尺寸不变，一般还是很准确的

herolxb

我单位里的显示器尺寸都不统一，分辨率也都有差别

131738

这是什么地址？147M单线程下载！再进去却没什么了，E文报错！！！

[ 本帖最后由 131738 于 2009-2-27 22:16 编辑 ]

131738

这个忙帮的实在是。。。。。。。。。。

下载用了3小时。。。。。。

问题解决3份钟！！！！！！！！！！！！！



我服了你了！！！！！！！！！！！

就这还拖了10好几天！！！！！！！！！？？？？？？？？？？？？

前后发3贴求助！！！！！！。。。。。。。。。。。。。

[ 本帖最后由 131738 于 2009-2-28 14:40 编辑 ]