TUTOS.EU

Lister tous les éléments qui composent une page web en vbs

Comment obtenir la liste de tous les éléments qui composent le code source d'une page web en vbscript

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 Copier le code

2