Ловить MessageBox в Visaul Test

'=====================================================================
' TEST CASE NAME:
'
' GENERAL DESCRIPTION OF WHAT IS VERIFIED:
'
'
' SPECIFIC AREA ADDRESSED BY THIS TEST CASE:
'
'
' NAME OF APPLICATION UNDER TEST:
'
'=====================================================================
' TEST CASE PURPOSE:
'
'
' TEST CASE ABSTRACT OF TECHNIQUES USED TO TEST THE FEATURE:
'
'
' SCENARIOS:    1.
'               2.
'               3.
'               4.
'               5.
'               6.
'               7.
'               8.
'               9.
'              10.
'
'---------------------------------------------------------------------------
' OTHER FILES REQUIRED TO RUN TEST CASE:
'
'
'
'---------------------------------------------------------------------------
' REVISION HISTORY:
'
'   [ 0]    <DD-MM-YY>      <NAME>  : <CHANGES MADE>
'   [ 1]      -  -          <????>  : Created test.
'---------------------------------------------------------------------------


' '$DEFINE and '$INCLUDE metacommands for test case
'-------------------------------------------------------------------
'$include 'KillProcess.inc'


' DIM statements, TYPE declarations, global variables,
' constants, and so on for test case
'-------------------------------------------------------------------


' *************************
' **** BEGIN TEST CASE ****
' *************************

'******* Test Case INITIALIZATION/SETUP *********


Dim Fname$
Dim hwnd&
Dim hwnd1&
Dim hwnd2&
Dim hwnd3&
Dim StrVal$
Dim ZagVal$
Dim CtrVal$
Dim Etl1$
Dim Etl2$
Dim i%
Dim z%
Dim numprobel%

Fname = "prog32.exe"




if Exists(Fname) then
   Open "TestT.txt" for input as #1
   Open "TestE.txt" for input as #2

   Dim n as integer
   Dim Tst as string
   Dim Etl$
   
   n = 0

   Do While EOF(1) = NULL
            n = n + 1
         LINE INPUT #1, Tst$
     LINE INPUT #2, Etl$
            RUN Fname, NOWAIT
            Sleep(1)
     hwnd = WFndWnd("Моя программа")

     if hwnd then
        if WEditExists("@1") then
           StrVal = EditText("@1")
           hwnd1 = GETHANDLE(1)
                  WEditSetText("@1",Tst)
           WClkWnd(hwnd, 100, 100)
           WButtonClick("Счёт")
        else
           print "Не найден EditBox1"
               endif

        if WEditExists("@2") then
           hwnd2 = GETHANDLE(2)
                  ZagVal = GetText(hwnd2)
                  ZagVal = EditText("@2")
        else
           print "Не найден EditBox2"
               endif

        if WEditExists("@3") then
           hwnd3 = GETHANDLE(3)
                  CtrVal = GetText(hwnd3)
           CtrVal = EditText("@3")
        else
           print "Не найден EditBox3"
               endif
               
               
       Etl1$ = LEFT$(Etl$, INSTR(1,Etl$," ")-1)
           Etl2$ = RIGHT$(Etl$, LEN(Etl$)-INSTR(1, Etl$," "))
     
               if ZagVal = Etl1 AND CtrVal = Etl2 THEN
                 MSGBOX("Тест №"+STR$(n)+" пройден")
               else
          MSGBOX("Тест №"+STR$(n)+" не пройден")
               endif
       
               sleep(1)
        bKillProcess(Fname)
     else
        print "Окно тестирующей программы не найдено"
            endif
   LOOP
               
   MSGBOX("Тестирование завершено.")
   ' &#199;&#224;&#234;&#240;&#251;&#242;&#232;&#229; &#244;&#224;&#233;&#235;&#224; testT.txt
   close #1
   ' &#199;&#224;&#234;&#240;&#251;&#242;&#232;&#229; &#244;&#224;&#233;&#235;&#224; testE.txt
   close #2
endif


'******* SCENARIO SECTION ***********************

'*** Scenario 1:
Scenario ("<name/description goes here>")
   
       
Scenario Cleanup 'and handling of scenario failure

   
End Scenario



'******* Test Case CLEANUP **********************





' *************************
' ***** END TEST CASE *****
' *************************
End



'*****************************************************************************
'                          LOCAL SCRIPT SUBS/FUNCTIONS
'*****************************************************************************