A类 Warning dialog 可以忽略,不影响测试B类影响测试,如Crash dialog等 Sub Check_exp(expflag,caseID,timewait) DlgA = Array("dlgModelOneError","dlgModelTwoError") DlgB = Array("dlgCrashReport","dlgMemoryERR") for M=LBound(DlgA) to UBound(DlgA) Log.Message("Checking... " & DlgA(M) & " Timewait is " & timewait) If Aliases.Sys.APP.WaitAliasChild(DlgA(M),100).exists Then Log.Warning("Warning at caseID: " & caseID-1 & ". ") expflag = "ignore" end if next for M=LBound(DlgB) to UBound(DlgB) Log.Message("Checking... " & DlgB(M) & " Timewait is " & timewait) If Aliases.Sys.FMWin.WaitAliasChild(DlgB(M),100).exists Then Log.Error("Block error at caseID: " & caseID-1 & ". ") expflag = true end if next End Sub