Puis-je utiliser une autre langue que VBScript à exécuter par programme QTP Tests?

J'ai le code VBScript qui lance QuickTest Professional, exécute une série de QTP tests, e-mails et les résultats. Cela fonctionne bien, mais je préfère utiliser une langue avec de meilleurs outils de soutien (une bonne IDE par exemple). Je suis actuellement en appel .Bibliothèques Net à partir du lancement du script, donc je me demandais si il était possible d'utiliser un langage comme C# pour accomplir la même tâche. Si oui, y at-il de bonnes ressources qui remédier à cela? J'ai pu trouver très peu sur ce sujet via Google et il ne semble pas y avoir d'autres questions sur ce sujet sujet.

Pour plus de clarté, j'ai inclus le code de la routine qui fait le gros du travail. Cela n'inclut pas le .Net déclarations, mais failedTestsList et allTestsList sont des instances de System.ArrayList.

MODIFIER: Tous les QTP quelques exemples de documentation utiliser VBScript, mais comme vous pouvez le voir, le code est juste de la création de la QTP objets. Je suppose que ces serait appelable à partir d'une autre langue qui a soutenu la création de ces objets. Il semble juste de mon Google échecs que personne n'est à faire.

Sub ExecuteQTPTest(name)
    Dim App, resultsPath
    Dim testPath, testResults
    testPath = name
    allTestsList.Add(name)
    Set App = CreateObject("QuickTest.Application")

    App.Launch
    App.Visible = False
    App.Open testPath

    SetQTPTestOptions(App)
    SetQTPRunOptions(App)
    SetQTPWebOptions(App)

    App.Folders.RemoveAll

    Dim qtpTest, qtpResultsOpt
    Set qtpTest = App.Test
    Set qtpResultsOpt = CreateObject("QuickTest.RunResultsOptions")

    resultsPath = testPath & "\RES1"

    qtpResultsOpt.ResultsLocation = resultsPath

    qtpTest.Run qtpResultsOpt ''//Run the test

    testResults = "Test Status: " & qtpTest.LastRunResults.Status & vbCrLf & _
          "Last Error: " & qtpTest.LastRunResults.LastError & vbCrLf & _
          "Detailed Results located at " & qtpTest.LastRunResults.Path & _
               " can be viewed with the QTP Results Viewer Tool " & vbCrLf

    If qtpTest.LastRunResults.Status <> "Passed" Then
        g_testRunPassed = False
        failureCount = failureCount + 1
        failedTestsList.Add(name)
        LogResults testResults, name        
    End If

    qtpTest.Close

    Set qtpResultsOpt = Nothing 
    Set qtpTest = Nothing 

    App.Quit

    Set App = Nothing 
End Sub

OriginalL'auteur ssakl | 2009-05-21