TestLogiciel.fr

'**********************************
' 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