Mar 02
Lancer un test QTP à partir d’un fichier .vbs permet d’interfacer l’outil d’automatisation de tests fonctionnels QTP avec différents outils de gestion de campagnes de test ou même de plannifier son lancement grâce au gestionnaire de tâche intégré à windows.
L’exemple ci-dessous montre une manière minimaliste d’éffectuer cette tâche.
Dans cette exemple le nom du test qui sera lancé est : « Test_A_Lancer »
'Déclaration des variables Dim App_QTP Dim QTP_Test 'Déclaration de l'application QTP Set App_QTP = CreateObject("QuickTest.Application") ' Lancement de l'application QTP App_QTP.Launch ' Paramétrage de l'application QTP App_QTP.Visible = True 'Rendre la fenêtre QTP visible App_QTP.WindowState = "Maximized" 'Agrandir la fenêtre QTP App_QTP.ActivateView "ExpertView" 'Afficher l'expert view 'Ouverture du test 'Test_A_Lancer' en mode read-Only App_QTP.open "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\Test_A_Lancer", True 'Lancement du test Set QTP_Test = App_QTP.Test QTP_Test.run 'Fermeture de QTP' QTP_Test.close App_QTP.quit ' Libération des variables Set QTP_Test=nothing Set App_QTP=nothing |
