Return to winplay.inc CVS log

Up to [WindowsNT SDKs] / mstools / mstest / include

Annotation of mstools/mstest/include/winplay.inc, revision 1.1

1.1     ! root        1: '$define testevnt
        !             2: '$define W_WINDOW
        !             3: '$include: 'mstest.inc'
        !             4: 
        !             5: 
        !             6: Const SW_SHOWNORMAL=     1
        !             7: Const SW_SHOWMAXIMIZED = 3
        !             8: Const LOG_FILE_NUM  = 4
        !             9: Const LOG_FILE = "logfile.LOG"
        !            10: Const BACKUP_FILE = "logfile.BAK"
        !            11: 
        !            12: DIM x%,hWnd%
        !            13: 
        !            14: ' need to change kernel to base32.dll, user to user32.dll, etc if you use
        !            15: ' this under nt
        !            16: 
        !            17: '----------------------------------------------------------------------------
        !            18: ' Sub and Function declarations
        !            19: '----------------------------------------------------------------------------
        !            20: Declare Sub BackUpLogFile()
        !            21: Declare Sub PrintLogHeader()
        !            22: Declare Sub PrintLogFooter()
        !            23: Declare Sub OpenLogFile()
        !            24: Declare Sub CloseLogFile()
        !            25: Declare Sub LogOut(LogText$,method%)
        !            26: 
        !            27: Declare Function PopUp(x%,lpText$) As Integer
        !            28: '$IFDEF WIN16
        !            29: Declare Function MessageBox Lib "User.exe" ( hWnd%,  lpText$,  lpCaption$,  wType%) As Integer
        !            30: Declare Function GetActiveWindow Lib "User" () As Integer
        !            31: Declare Function WinExec Lib "krnl386.exe" (lpCmdLine$, nCmdShow%) As Integer
        !            32: '$ELSE
        !            33: Declare Function MessageBox Lib "USER32" ALIAS "MessageBoxExA" ( hWnd%,  lpText$,  lpCaption$,  wType%) As Integer
        !            34: Declare Function GetActiveWindow Lib "User32" ALIAS "GetActiveWindow" () As Integer
        !            35: Declare Function WinExec Lib "Kernel32" ALIAS "WinExec" (lpCmdLine$, nCmdShow%) As Integer
        !            36: '$ENDIF
        !            37: 
        !            38: '----------------------------------------------------------------------------
        !            39: ' Subs
        !            40: '----------------------------------------------------------------------------
        !            41: 
        !            42: Function PopUp(x%,lpText$) Static As Integer
        !            43:    hWnd=GetActiveWindow()
        !            44:    x%=MessageBox(hWnd,lpText,"MS-Test Popup",0)
        !            45: End Function
        !            46: 
        !            47: '******************************************************************************
        !            48: 'SUB BackUpLogFile saves the last log file (if it exists).  If
        !            49: 'a backup log file already exists, it is deleted and replaced
        !            50: 'with the new backup.
        !            51: '******************************************************************************
        !            52: Sub BackUpLogFile Static
        !            53: 
        !            54:   IF Exists(LOG_FILE) THEN
        !            55:     IF Exists(BACKUP_FILE) THEN
        !            56:       Kill BACKUP_FILE
        !            57:     End If
        !            58:     Name LOG_FILE AS BACKUP_FILE
        !            59:   END IF
        !            60: 
        !            61: End Sub
        !            62: 
        !            63: 
        !            64: '******************************************************************************
        !            65: 'SUB PrintLogHeader prints a starting banner to the log file
        !            66: '******************************************************************************
        !            67: Sub PrintLogHeader () Static
        !            68:   Open LOG_FILE For Append As #1
        !            69: 
        !            70:   Print #1, "*******************************************************************************"
        !            71:   Print #1, "*                        MSTest log file                                      *"
        !            72:   Print #1, "*                      "; DateTime$; "                                      *"
        !            73:   Print #1, "*                                                                             *"
        !            74:   Print #1, "*******************************************************************************"
        !            75:   Print #1,
        !            76:   Close #1
        !            77: End Sub
        !            78: 
        !            79: 
        !            80: '******************************************************************************
        !            81: 'SUB PrintLogFooter prints an ending banner to the log file
        !            82: '******************************************************************************
        !            83: Sub PrintLogFooter () Static
        !            84:   Open LOG_FILE For Append As #1
        !            85: 
        !            86:   Print #1,
        !            87:   Print #1, "*******************************************************************************"
        !            88:   Print #1, "*                         Test complete                                       *"
        !            89:   Print #1, "*                       "; DateTime$; "                                     *"
        !            90:   Print #1, "*******************************************************************************"
        !            91:   Print #1,
        !            92:   Close #1
        !            93: End Sub
        !            94: 
        !            95: '******************************************************************************
        !            96: 'SUB OpenLogFile
        !            97: '******************************************************************************
        !            98: Sub OpenLogFile() Static
        !            99:   Open LOG_FILE For Append As #LOG_FILE_NUM
        !           100: End Sub
        !           101: 
        !           102: 
        !           103: '******************************************************************************
        !           104: 'SUB CloseLogFile
        !           105: '******************************************************************************
        !           106: Sub CloseLogFile() Static
        !           107:   Close #LOG_FILE_NUM
        !           108: End Sub
        !           109: 
        !           110: '******************************************************************************
        !           111: 'SUB LogOut
        !           112: ''******************************************************************************
        !           113: Sub LogOut(logFile$, x%) Static
        !           114:   Print #LOG_FILE_NUM, logFile$
        !           115: End Sub
        !           116: 
        !           117: 
        !           118: 
        !           119: 
        !           120: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.