Working With TestExecute via COM - Overview

using System.Runtime.InteropServices;

...

namespace MyApp
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            // Invokes TestExecute upon a button click
            TestFunc();
        }

        private void TestFunc()
        {
            const string TCProgID = "TestExecute.TestExecuteApplication.15";
            dynamic TestExecuteObject = null;

            // Obtains access to TestExecute
            try
            {
                TestExecuteObject = Marshal.GetActiveObject(TEProgID);
            }
            catch
            {
                try
                {
                    TestExecuteObject = Activator.CreateInstance(Type.GetTypeFromProgID(TEProgID));
                }
                catch
                {
                }
            }

            if (TestExecuteObject == null) return;
            
            // Obtains Integration object during runtime
            dynamic IntegrationObject = TestExecuteObject.Integration;

            // We have a reference to the integration object.
            // Now we can use its methods and properties to automate TestExecute.

            // Loads the project suite
            IntegrationObject.OpenProjectSuite("C:\\Documents and Settings\\All Users\\Documents\\TestExecute 15 Samples\\Common\\Test Log\\TestLog.pjs");

            // Checks whether the project suite was opened
            // If the project suite cannot be opened, closes TestExecute
            if (!IntegrationObject.IsProjectSuiteOpened())
            {
                System.Windows.Forms.MessageBox.Show("Could not open the project suite.");
                // Closes TestExecute
                TestExecuteObject.Quit();
                // Releases COM objects
                Marshal.ReleaseComObject(IntegrationObject);
                Marshal.ReleaseComObject(TestExecuteObject);
                return;
            }
            
            try
            {
                // Runs the test
                IntegrationObject.RunProject("TestLog_C#Script");

                // Waits until testing is over
                while (IntegrationObject.IsRunning())
                    Application.DoEvents();

                // Check the results
                if (IntegrationObject.GetLastResultDescription().Status == 0)
                {
                    System.Windows.Forms.MessageBox.Show(this, "The test run finished successfully.");
                }
                if (IntegrationObject.GetLastResultDescription().Status == 1)
                {
                    System.Windows.Forms.MessageBox.Show(this, "Warning messages were posted to the test log.");
                }
                if (IntegrationObject.GetLastResultDescription().Status == 2)
                {
                    System.Windows.Forms.MessageBox.Show(this, "Error messages were posted to the test log.");
                }

            }
            catch (System.Runtime.InteropServices.COMException ex)
            {
                System.Windows.Forms.MessageBox.Show("An exception occurred: " + ex.Message);
            }
            finally
            {
                // Closes TestExecute
                TestExecuteObject.Quit();
                // Releases COM objects
                Marshal.ReleaseComObject(IntegrationObject);
                Marshal.ReleaseComObject(TestExecuteObject);
            }
        }
    }
}

Imports System.Runtime.InteropServices
Imports TestComplete

...

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Invokes TestExecute upon a button click
        TestFunc()
    End Sub

    Private Sub TestFunc()
        Const TEProgID = "TestExecute.TestExecuteApplication.15"
        Dim TestExecuteObject As TestExecute.TestExecuteApplication = Nothing

        ' Obtains access to TestExecute
        Try
            TestExecuteObject = Marshal.GetActiveObject(TEProgID)
        Catch
            Try
                TestExecuteObject = Activator.CreateInstance(Type.GetTypeFromProgID(TEProgID))
            Catch
            End Try
        End Try

        If (TestExecuteObject Is Nothing) Then Exit Sub

        ' Obtains Integration object
        Dim IntegrationObject As TestComplete.ItcIntegration = TestExecuteObject.Integration

        ' We have a reference to the integration object.
        ' Now we can use its methods and properties to automate TestExecute.

        ' Loads the project suite
        IntegrationObject.OpenProjectSuite("C:\Documents and Settings\All Users\Documents\TestComplete 15 Samples\Common\Test Log\TestLog.pjs")

        ' Checks whether the project suite was opened
        ' If the project suite cannot be opened, closes TestExecute
        If (Not IntegrationObject.IsProjectSuiteOpened) Then
            System.Windows.Forms.MessageBox.Show("Could not open the project suite.")
            ' Closes TestExecute
            TestExecuteObject.Quit()
            ' Releases COM objects
            Marshal.ReleaseComObject(IntegrationObject)
            Marshal.ReleaseComObject(TestExecuteObject)
            Exit Sub
        End If

        Try
            ' Runs the test
            IntegrationObject.RunProject("TestLog_VBScript")
            ' Waits until testing is over
            While IntegrationObject.IsRunning
                Application.DoEvents()
            End While

            ' Check the results
            Select Case IntegrationObject.GetLastResultDescription.Status
                Case TestComplete.TC_LOG_STATUS.lsOk
                    System.Windows.Forms.MessageBox.Show(Me, "The test run finished successfully.")
                Case TestComplete.TC_LOG_STATUS.lsWarning
                    System.Windows.Forms.MessageBox.Show(Me, "Warning messages were posted to the test log.")
                Case TestComplete.TC_LOG_STATUS.lsError
                    System.Windows.Forms.MessageBox.Show(Me, "Error messages were posted to the test log.")
            End Select

        Catch ex As System.Runtime.InteropServices.COMException
            System.Windows.Forms.MessageBox.Show("An exception occurred: " + ex.Message)
        Finally
            ' Closes TestExecute
            TestExecuteObject.Quit()
            ' Releases COM objects
            Marshal.ReleaseComObject(IntegrationObject)
            Marshal.ReleaseComObject(TestExecuteObject)
        End Try
    End Sub

End Class

Sub Test
  Dim TestExecuteApp As TestExecuteApplication, IntegrationObject As ItcIntegration, LastResult As ItcIntegrationResultDescription
  
  ' Creates the application object
  Set TestExecuteApp = CreateObject("TestExecute.TestExecuteApplication")
  
  ' Obtains the integration object
  Set IntegrationObject = TestExecuteApp.Integration
  
  ' Opens the project
  IntegrationObject.OpenProjectSuite "C:\Documents and Settings\All Users\Documents\TestExecute 15 Samples\Scripts\Test Log\TestLog.pjs"
  
  ' Checks whether the project suite was opened
  ' If the project suite cannot be opened, closes TestExecute
  If Not IntegrationObject.IsProjectSuiteOpened Then
    MsgBox "The project suite was not opened."
    ' Closes TestExecute
    TestExecuteApp.Quit
    Exit Sub
  End If
  
  ' Needed to process errors
  Err.Clear
  On Error GoTo Err_Label
  
  ' Starts the project run
  IntegrationObject.RunProject "TestLog_VBScript"
  
  ' Waits until the test is over
  While IntegrationObject.IsRunning
    DoEvents
  Wend
  
  ' Checks the results
  Set LastResult = IntegrationObject.GetLastResultDescription
  Select Case LastResult.Status
    Case 0: MsgBox "The test run finished successfully."
    Case 1: MsgBox "Warning messages were posted to the test log."
    Case 2: MsgBox "Error messages were posted to the test log."
  End Select
  
Err_Label:
  ' Process errors
  If Err.Number <> 0 Then
    MsgBox "Cannot start the test. Reason: " + Err.Description, vbCritical, "Error"
  End If
  
  ' Closes TestExecute
  TestExecuteApp.Quit
End Sub