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

Leave a Reply

You must be logged in to post a comment.

preload preload preload