AutoIt写Office 2007单键安装

Home Home

引用 | 编辑 virusee
2009-03-20 12:16

楼主
▼

下面是我的语法
在下面文字红色的部分我有问题请教
MsgBox按下"否"之后，为什么程式还是会继续往下(执行Run)

;用进度条计算30秒后再开始动作
ProgressOn("准备安装Office 2007", "请等候30秒", "0 ％ ")
For $i = 1 to 100 step 1
sleep(303)
ProgressSet( $i, $i & " ％ ")
Next
ProgressSet(100 , "完成", "完成")
sleep(500)
ProgressOff()

MsgBox(4, "请确定你的萤幕解析度", "本软体仅能运行于1024x768")

;执行安装程式
Run("E:\2007\Enterprise\setup.exe")
;把视窗至顶
WinSetOnTop("Microsoft Office Enterprise 2007", "", 1)
WinWaitActive("Microsoft Office Enterprise 2007")
;自动输入序号
ControlSetText("Microsoft Office Enterprise 2007&quo ..

访客只能看到部份内容，免费加入会员

引用 \| 编辑 rchockxm 2009-03-20 14:26	1楼 ▲ ▼
Msgbox 函式没有判断返回值当然是往下执行阿详细请看说明档... x0

引用 \| 编辑 virusee 2009-03-20 14:51	2楼 ▲ ▼
下面是引用 rchockxm 于 2009-03-20 14:26 发表的 : Msgbox 函式没有判断返回值当然是往下执行阿详细请看说明档... 我看他的范例 MsgBox(4096, "测试", "此对话框将会在10秒后自动消失", 10) 只有看到这个范例有返回值的例子吗？ x0

引用 \| 编辑 rchockxm 2009-03-20 15:06	3楼 ▲ ▼
说明档没看仔细喔... If MsgBox(4, "Test", "This box will time out in 10 seconds", 10) = 7 Then Exit x2

引用 \| 编辑 SilentWorld 2009-03-20 15:06	4楼 ▲ ▼
复制程式 If MsgBox(4, "请确定你的萤幕解析度", "本软体仅能运行于1024x768") == 6 Then ;你的安装脚本 Else Exit EndIf x2

引用 \| 编辑 virusee 2009-03-20 16:11	5楼 ▲ ▼
感谢两位的帮忙，我的问题已经解决了原来后面要加上then来动作 x0

引用 \| 编辑 threesecond 2009-03-22 11:40	6楼 ▲ ▼
我一直搞不懂，像 Office 这种原厂就提供自订自动安装的东西，为什么还有人会舍近求远去研究 Autoit 这种天书？是因为无聊没事想挑战自己的技术力吗？ x1

引用 \| 编辑 hobbya 2009-07-24 14:37	7楼 ▲
下面是引用 threesecond 于 2009-03-22 11:40 发表的 : 我一直搞不懂，像 Office 这种原厂就提供自订自动安装的东西，为什么还有人会舍近求远去研究 Autoit 这种天书？是因为无聊没事想挑战自己的技术力吗？就像烧菜，可以用不同的做法，作为兴趣而言，没有甚么是无聊不无聊的。 x0