请教个消息循环的问题（已解决）

HebeMoon

RT，刚做了个GUI的界面~主要是得到路径然后找文件~
现在问题是我点完OK button后会去判断路径是佛正确，如果不正确我会给你出个message，问题就在这~
我希望是点完MessageBox上面的OK button后，我最开始输入路径的那个window不会关闭~
实际上是点完它自己就关闭了~
下面是我的主要代码~

Func Window()
        Local $SourcePath,$FilePath,$BuildNumber ,$btnOK,$btnCancel, $msg
        $msg = 0

        GUICreate("Auto It For Building", 500, 300, (@DesktopWidth - 500)/ 2, (@DesktopHeight - 300) / 2, -1); WS_EX_ACCEPTFILES
        GUICtrlCreateGroup("Group 1", 20,20, 460, 260)
        GUICtrlCreateLabel("Install Sourcr Path:", 40, 50,90,30)
        $SourcePath = GUICtrlCreateInput("", 135,40, 330, 30)
        GUICtrlCreateLabel("Update File Path:", 40, 95,90,30)
        $FilePath = GUICtrlCreateInput("", 135,90, 330, 30)
        GUICtrlCreateLabel("Build Number:", 40, 135,90,30)
        $BuildNumber = GUICtrlCreateInput("", 135,130, 100, 30)
        $btnOK = GUICtrlCreateButton("Ok", 270, 230, 70, 30)
        $btnCancel = GUICtrlCreateButton("Cancel", 370, 230, 70, 30)
        GUISetState()


        While $msg <> $GUI_EVENT_CLOSE
                $msg = GUIGetMsg()
                Select
                        Case $msg = $btnCancel
                                ExitLoop
                        Case $msg = $btnOK
                                If (CheckStatus($FilePath)) Then
                                        If (CheckStatus($SourcePath)) Then
                                                ;UpdateFiles()
                                                MsgBox (0, "Successful","Happy!")
                                                ExitLoop
                                        Else
                                                ContinueLoop
                                        EndIf
                                Else
                                        ContinueLoop
                                EndIf
                        EndSelect
        WEnd
EndFunc   ;==>Example

HebeMoon

我看到有个GUIRegisterMsg这函数~
help上面是说注册个自定义的消息类型~
我也看过例子，感觉问题就这里，可是没看明白，定义完了后，没见有地方去判断消息是不是这个类型呀~
有高人给解答下么~
谢谢

HebeMoon

木有人吗？？？？
在线等压~

xupromise

(菜鸟)完全copy下来运行在win7下面木跳出任何界面么。

HebeMoon

亲，这个里面又调用别的函数~你直接copy下来运行会提示有函数没定义的~

HebeMoon

哦，对了，你没看这只是个函数定义，要执行的~

HebeMoon

哎，问题解决了，是我没弄清楚~问题出在CheckStatus这个函数里~

chzj589