论坛 › 已解决问题区 › 希望有人帮我改一下！

enet98 发表于 2009-3-21 15:10:31

希望有人帮我改一下！

新手整了半天，没搞定！

假定安装Test.exe需要大约2分钟时间，而且是在后台运行，桌面无法看见！

能否让Test.exe在后台运行的时候，让提示窗口：
MsgBox(0+64+262144,"测试提示","下面将要在后台运行自动安装，大约需要2分钟时间，请等待...",120)
停留大约2分钟时间？

Test.exe在后台安装完毕后，跳出这个窗口：
MsgBox(0+64+262144,"测试提示","程序在后台安装完毕后，此窗口代替前面的窗口！恭喜你！所有程序安装完毕，请按 确定 退出！")
代替第一个窗口：
MsgBox(0+64+262144,"测试提示","下面将要在后台运行自动安装，大约需要2分钟时间，请等待...",120)

========================
下面是存在问题的代码：
MsgBox(0+64+262144,"测试提示","下面将要在后台运行自动安装，大约需要2分钟时间，请等待...",120)
Run("Test.exe)
MsgBox(0+64+262144,"测试提示","程序在后台安装完毕后，此窗口代替前面的窗口！恭喜你！所有程序安装完毕，请按 确定 退出！")


问题：
这个窗口：
MsgBox(0+64+262144,"测试提示","下面将要在后台运行自动安装，大约需要2分钟时间，请等待...",120)
停留120秒后，才运行：
Run("Test.exe)


==========================
答案在5-6楼！

[ 本帖最后由 enet98 于 2009-3-21 19:16 编辑 ]

jycel 发表于 2009-3-21 15:58:07

改啥？问题都不说清楚

论坛管理员 发表于 2009-3-21 17:26:18

AUTO 目前不支持多线程，只能一步一步往下执行代码。:face (13

enet98 发表于 2009-3-21 17:33:02

能否转为托盘气泡TrayTip提示？

论坛管理员 发表于 2009-3-21 17:35:18

$kao = MsgBox(1, "确定安装", "确定安装软件？")
Select
        Case $kao = 1
                Run("Test.exe)
                MsgBox(0 + 64 + 262144, "测试提示", "下面将要在后台运行自动安装，大约需要2分钟时间，请等待...", 120)
        Case $kao = 2
EndSelect

enet98 发表于 2009-3-21 18:14:43

原帖由 论坛管理员 于 2009-3-21 17:35 发表 http://www.autoitx.com/images/common/back.gif
$kao = MsgBox(1, "确定安装", "确定安装软件？")
Select
        Case $kao = 1
                Run("Test.exe)
                MsgBox(0 + 64 + 262144, "测试提示", "下面将要在后台运行自动安装，大约需要2分钟时间，请等待...", 120)
        Case...


谢谢！
这样好像基本搞定，等待测试！

$kao = MsgBox(1, "确定安装", "确定安装软件？")
Select
      Case $kao = 1
                Run("wrar380sc50000.exe")
                MsgBox(0 + 64 + 262144, "测试提示", "下面将要在后台运行自动安装，大约需要2分钟时间，请等待...", 120)
                                MsgBox(0+64+262144,"测试提示","程序在后台120秒安装完毕后，此窗口代替前面的窗口！恭喜你！所有程序安装完毕，请按 确定 退出！")
      Case $kao = 2
EndSelect

enet98 发表于 2009-3-21 18:46:25

谢谢！这个问题已经解决！

[ 本帖最后由 enet98 于 2009-3-21 19:23 编辑 ]

luke 发表于 2009-3-21 19:06:25

把Run("Test.exe)放在前面。

enet98 发表于 2009-3-21 19:14:59

原帖由 luke 于 2009-3-21 19:06 发表 http://www.autoitx.com/images/common/back.gif
把Run("Test.exe)放在前面。

谢谢！这个问题已经解决！

[ 本帖最后由 enet98 于 2009-3-21 19:23 编辑 ]

论坛管理员 发表于 2009-3-21 19:39:38

用最原始的方法：

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$kao = MsgBox(1, "确定安装", "确定安装软件？")
Select
        Case $kao = 1
                Run("Test.exe")
                $Form1 = GUICreate("程序", 450, 40, 300, 400, $WS_POPUP)
                $Label = GUICtrlCreateLabel("", 10, 15, 400, 17)
                GUISetState(@SW_SHOW)
                Dim $i = 1
                While 1
                        $i = $i + 1
                        GUICtrlSetData($Label, "下面将要在后台运行自动安装，大约需要2分钟时间，还剩 " & 120 - $i & " 秒")                       
Sleep(1000)
                        If $i = 120 Then ExitLoop
                WEnd
                MsgBox(0, "恭喜", "安装完成")
        Case $kao = 2
EndSelect

[ 本帖最后由 论坛管理员 于 2009-3-21 19:53 编辑 ]

查看完整版本: 希望有人帮我改一下！