Quand on veut automatiser la saisie ou la récupération d'éléments d'une page web, il faut identifier les champs que l'on veut récupérer ou renseigner. Ce script permet de les lister :
set ObjIE = CreateObject("InternetExplorer.Application")
ObjIE.Visible = True
ObjIE.Navigate "http://www.google.fr"
Do While ObjIE.Busy
WScript.Sleep 1000
Loop
WScript.Sleep 1000
Set hasOwnProperty = objIE.Document.ParentWindow.Object.prototype.hasOwnProperty
'For Each objForm In ObjIE.document.Forms
For Each objForm In ObjIE.document.All 'Si vous voulez tous les éléments de la page, ne mettez pas .Forms mais .All
'For Each objForm In ObjIE.document.body.all
On error resume next
If Len(Trim(objForm.name)) > 0 Then Wscript.echo "Form Name : " & objForm.name
If Len(Trim(objForm.id)) > 0 Then Wscript.echo "Form ID : " & objForm.id
'If hasOwnProperty.call(objForm, "name") Then
'If Len(Trim(objForm.name)) > 0 Then Wscript.echo "Form Name : " & objForm.name
'End If
'If hasOwnProperty.call(objForm, "id") Then
'If Len(Trim(objForm.id)) > 0 Then Wscript.echo "Form ID : " & objForm.id
'End If
For Each objElement In objForm.All
varElementPresent = 0
'If hasOwnProperty.call(objElement, "name") Then
If Len(objElement.id) > 0 Then
Wscript.echo VbTab & "Element ID : " & objElement.id
varElementPresent = 1
End If
'End If
'If hasOwnProperty.call(objElement, "name") Then
If Len(objElement.name) > 0 Then
Wscript.echo VbTab & "Element name : " & objElement.name
varElementPresent = 1
End If
'End If
If 1 = 2 Then
If varElementPresent = 1 Then
If len(objElement.title) > 0 Then
Wscript.echo VbTab & "Element title : " & objElement.title
End If
Wscript.echo VbTab & "______________________________________________"
End If
End If
Next
'Wscript.echo ""
Next
Set hasOwnProperty = Nothing
Set ObjIEForm = Nothing
set ObjIE = Nothing
Lien vers le fichier : cliquez ici
Article(s) suivant(s)