Discussion :

[Roudoudev]

Bonjour,

je débute en VBscript, mon projet est d'automatiser l'accès aux données d'une appli web.
Je m'explique, j'ai déjà mis en place un script qui lance explorer, se connecte sur la page de l'appli en question et s'authentifie.
C'est assez basique, j'utilise creatobject et getElementsByName pour le faire, mon problème c'est qu'une fois le formulaire validé, l'appli charge une nouvelle page et que je ne sais pas comment récupérer les éléments de cette nouvelle page, pour filtrer à nouveau et interagir avec la page.

j'espère que c'est clair, si ce n'est pas le cas

voici le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
set WshShell = CreateObject("WScript.Shell")
 
 
Set a= CreateObject("InternetExplorer.Application")
	a.navigate"http://10.xx.xxx.xxx:8080/vxmlapps/xxx_sc/ihm_xxx/loginPage.action"
 
Do While a.Busy
	Loop
	wscript.sleep 1000
 
a.Visible=True 
 
Set IEdoc = a.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("username").Item
     	DOCelement.Value = "xxxxxxx"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("password").Item
     	DOCelement.Value = "xxxxxx"
     		DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     	DOCelement.submit
 
	Do While a.Busy
	Loop

[Guillaume110376]

Bonjour Roudoudev,

A la suite de l'identification de votre application web, vous pouvez rechercher votre nouvelle instance IE ou nouvel onglet IE en vous aidant du code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Set shellApp = WScript.CreateObject("Shell.Application")
Set shellwindows = shellApp.Windows
'Recherche dans les applications ouvertes de windows
For Each FenIE in shellwindows
	'Compare l'url avec celui recherché de la nouvelle page IE ou onglet IE
	If CStr(FenIe.LocationURL) = CStr("https://www.google.fr/") Then
		Set IE=FenIE
	End If
	'ou avec le nom de la page web
'	If CStr(FenIe.LocationName) = CStr("Google") Then
'		Set IE=FenIE
'	End If
Next
Set shellApp = nothing
Set shellwindows = nothing
 
.... vos instructions à effectuer sur la nouvelle page IE ou nouvel onglet IE
with IE
 
end with