fév 28

Le descriptive programming permet de :

-S’affranchir de certaines limitations du repository
-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

Leave a Reply

You must be logged in to post a comment.

preload preload preload