Fév 28
-S’affranchir de certaines limitations du repository
-Comprendre la mécanique de manipulation des objets
-Comprendre la mécanique de manipulation des objets
Le script ci-dessous s’appuie sur du descriptive programming, il peut donc être simplement copié et collé dans QTP puis exécuté. Il présente différentes utilisations simples du descriptive programming
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | '********************************** ' Exemple descriptive programming ' Pré-requis : Tous les navigateur fermés '********************************** 'Exemple 1 SystemUtil.run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.google.fr/" ' Ici on demande de prendre le seul navigateur ouvert ' Puis on va chercher le WebEdit ayant pour non "q" et y saisir la valeur : Testlogiciel.fr Browser("name:=.*").Page("title:=.*").WebEdit("name:=q").Set "TestLogiciel.fr" ' On clic maintenant sur le bouton rechercher. Browser("name:=.*").Page("title:=.*").WebButton("name:=Recherche Google").Click ' On ferme le navigateur Browser("name:=.*").Close 'Exemple 2 ' On refait le même en mieux : ' Lancement de IE sur le site cible SystemUtil.run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.google.fr" ' Affectation des objets que l’on va vouloir manipuler Set MonBrowser=Browser("name:=.*") Set MaPage=MonBrowser.Page("title:=.*") Set MonWebEdit=MaPage.WebEdit("name:=q") Set MonWebButton=MaPage.WebButton("name:=Recherche Google") ' On saisie TestLogiciel.fr dans la recherche google MonWebEdit.Set "TestLogiciel.fr" ' On lance la recherche MonWebButton.Click ' On fait clignoter le lien vers le site MaPage.WebElement("name:=.*TestLogiciel.fr.*").highlight ' On clique sur le lien MaPage.WebElement("name:=.*TestLogiciel.fr.*").click Wait 10 'On attend 10 secondes Print "Vous avez eu 10 secondes pour profiter de la belle page d'accueil" MonBrowser.Close 'On ferme le navigateur ' On libère les objets Set MonWebEdit=nothing Set MonWebButton=nothing Set MaPage=nothing Set MonBrowser=nothing |