Merci, un super outil qui aidera ceux qui cherchent à automatiser les remplissages de formulaire dans une page web et qui vont à la peche des noms d'objets dans le source HTML.
Cordialement
Pierre BOUSQUET a présenté l'énoncé suivant :
Si ca interesse quelqu'un, j'ai fait une fonction qui liste des objets, j'ai plus qu'à l'appeler sur l'evenement clic du browser et le tour est joué :
Trace(XWEB_ListeObjects("INPUT"))
PROCEDURE XWEB_ListeObjects(ObjetDemande="") b est entier HTMLInputElement est un objet Automation dynamique HTMLObject est un objet Automation dynamique TagObjet est chaîne TypeObjet est chaîne ValRetour est chaîne
HTMLInputElement¬tiveX_Web>>document>>all
POUR b=0 A HTMLInputElement>>Length-1 HTMLObject = HTMLInputElement>>Item(b, 0) TagObjet = HTMLObject>>Tagname
QUAND EXCEPTION DANS TypeObjet=HTMLObject>>Type FAIRE FIN
SI ObjetDemande<>"" ALORS SI TagObjet<>ObjetDemande ALORS SI TypeObjet<>ObjetDemande ALORS CONTINUER FIN FIN FIN
SI ValRetour<>"" ALORS ValRetour+=RC
ValRetour+=TagObjet+TAB+TypeObjet
QUAND EXCEPTION DANS ValRetour+=TAB+HTMLObject>>name FAIRE ValRetour+=TAB FIN
QUAND EXCEPTION DANS SI Minuscule(TypeObjet) DANS ("checkbox","radio") ALORS SI HTMLObject>>checked() ALORS ValRetour+=TAB+HTMLObject>>value SINON ValRetour+=TAB FIN SINON ValRetour+=TAB+HTMLObject>>value FIN
FAIRE ValRetour+=TAB FIN FIN
libérer HTMLInputElement libérer HTMLObject
RENVOYER ValRetour
Pierre BOUSQUET a formulé ce jeudi :
merci mais ca ne me donne pas le name ou l'id de l'element on fait ce que je cherche à faire c'est une macro de ce que fait l'utilisateur sur la page, par exemple il a un choix à faire dans une liste, et quand il clique sur un element j'enregistre l'action, idem pour des checkbox...
il y aurait une autre solution : scanncer l'ensemble des objets et leurs valeurs au moment du "submit", peut-être avec la fonction "getElementsByTagName", mais je n'ai pas encore trouvé...
Georges Peyre avait écrit le 08/03/2007 :
Pierre BOUSQUET a exprimé avec précision :
Autre question sur ce sujet, quelqu'un sait-il comment récupérer le "name" ou l'"id" du champ survolé. Par exemple une propriété que l'on mettrait dans l'evenement "StatusTextChange"
WUrlSurvolee est une chaine // récupération des URL lorsque la souris passe sur un LIEN ActiveXEvénement("PLinks",ActiveX1,"StatusTextChange")
PROCEDURE PLinks(TitreBarre) NPos est un entier // TitreBarre contient l'URL survolée par la souris //trace(titrebarre) Message(TitreBarre) SI PAS SansEspace(TitreBarre) = "" ET PAS SansEspace(TitreBarre) = "Terminé" ALORS WUrlSurvolee = WUrlSurvolee + TitreBarre + RC NPos = CurseurPos(cpClient) WUrlSurvolee = WUrlSurvolee + NPos + RC FIN
Cordialement
-- Elle est pas belle la vie ?
Merci, un super outil qui aidera ceux qui cherchent à automatiser les
remplissages de formulaire dans une page web et qui vont à la peche des
noms d'objets dans le source HTML.
Cordialement
Pierre BOUSQUET a présenté l'énoncé suivant :
Si ca interesse quelqu'un, j'ai fait une fonction qui liste des objets, j'ai
plus qu'à l'appeler sur l'evenement clic du browser et le tour est joué :
Trace(XWEB_ListeObjects("INPUT"))
PROCEDURE XWEB_ListeObjects(ObjetDemande="")
b est entier
HTMLInputElement est un objet Automation dynamique
HTMLObject est un objet Automation dynamique
TagObjet est chaîne
TypeObjet est chaîne
ValRetour est chaîne
HTMLInputElement¬tiveX_Web>>document>>all
POUR b=0 A HTMLInputElement>>Length-1
HTMLObject = HTMLInputElement>>Item(b, 0)
TagObjet = HTMLObject>>Tagname
QUAND EXCEPTION DANS
TypeObjet=HTMLObject>>Type
FAIRE
FIN
SI ObjetDemande<>"" ALORS
SI TagObjet<>ObjetDemande ALORS
SI TypeObjet<>ObjetDemande ALORS
CONTINUER
FIN
FIN
FIN
SI ValRetour<>"" ALORS ValRetour+=RC
ValRetour+=TagObjet+TAB+TypeObjet
QUAND EXCEPTION DANS
ValRetour+=TAB+HTMLObject>>name
FAIRE
ValRetour+=TAB
FIN
QUAND EXCEPTION DANS
SI Minuscule(TypeObjet) DANS ("checkbox","radio") ALORS
SI HTMLObject>>checked() ALORS
ValRetour+=TAB+HTMLObject>>value
SINON
ValRetour+=TAB
FIN
SINON
ValRetour+=TAB+HTMLObject>>value
FIN
FAIRE
ValRetour+=TAB
FIN
FIN
libérer HTMLInputElement
libérer HTMLObject
RENVOYER ValRetour
Pierre BOUSQUET a formulé ce jeudi :
merci mais ca ne me donne pas le name ou l'id de l'element
on fait ce que je cherche à faire c'est une macro de ce que fait
l'utilisateur sur la page, par exemple il a un choix à faire dans une
liste, et quand il clique sur un element j'enregistre l'action, idem pour
des checkbox...
il y aurait une autre solution : scanncer l'ensemble des objets et leurs
valeurs au moment du "submit", peut-être avec la fonction
"getElementsByTagName", mais je n'ai pas encore trouvé...
Georges Peyre avait écrit le 08/03/2007 :
Pierre BOUSQUET a exprimé avec précision :
Autre question sur ce sujet, quelqu'un sait-il comment récupérer le
"name" ou l'"id" du champ survolé. Par exemple une propriété que l'on
mettrait dans l'evenement "StatusTextChange"
WUrlSurvolee est une chaine
// récupération des URL lorsque la souris passe sur un LIEN
ActiveXEvénement("PLinks",ActiveX1,"StatusTextChange")
PROCEDURE PLinks(TitreBarre)
NPos est un entier
// TitreBarre contient l'URL survolée par la souris
//trace(titrebarre)
Message(TitreBarre)
SI PAS SansEspace(TitreBarre) = "" ET PAS SansEspace(TitreBarre) =
"Terminé" ALORS
WUrlSurvolee = WUrlSurvolee + TitreBarre + RC
NPos = CurseurPos(cpClient)
WUrlSurvolee = WUrlSurvolee + NPos + RC
FIN
Merci, un super outil qui aidera ceux qui cherchent à automatiser les remplissages de formulaire dans une page web et qui vont à la peche des noms d'objets dans le source HTML.
Cordialement
Pierre BOUSQUET a présenté l'énoncé suivant :
Si ca interesse quelqu'un, j'ai fait une fonction qui liste des objets, j'ai plus qu'à l'appeler sur l'evenement clic du browser et le tour est joué :
Trace(XWEB_ListeObjects("INPUT"))
PROCEDURE XWEB_ListeObjects(ObjetDemande="") b est entier HTMLInputElement est un objet Automation dynamique HTMLObject est un objet Automation dynamique TagObjet est chaîne TypeObjet est chaîne ValRetour est chaîne
HTMLInputElement¬tiveX_Web>>document>>all
POUR b=0 A HTMLInputElement>>Length-1 HTMLObject = HTMLInputElement>>Item(b, 0) TagObjet = HTMLObject>>Tagname
QUAND EXCEPTION DANS TypeObjet=HTMLObject>>Type FAIRE FIN
SI ObjetDemande<>"" ALORS SI TagObjet<>ObjetDemande ALORS SI TypeObjet<>ObjetDemande ALORS CONTINUER FIN FIN FIN
SI ValRetour<>"" ALORS ValRetour+=RC
ValRetour+=TagObjet+TAB+TypeObjet
QUAND EXCEPTION DANS ValRetour+=TAB+HTMLObject>>name FAIRE ValRetour+=TAB FIN
QUAND EXCEPTION DANS SI Minuscule(TypeObjet) DANS ("checkbox","radio") ALORS SI HTMLObject>>checked() ALORS ValRetour+=TAB+HTMLObject>>value SINON ValRetour+=TAB FIN SINON ValRetour+=TAB+HTMLObject>>value FIN
FAIRE ValRetour+=TAB FIN FIN
libérer HTMLInputElement libérer HTMLObject
RENVOYER ValRetour
Pierre BOUSQUET a formulé ce jeudi :
merci mais ca ne me donne pas le name ou l'id de l'element on fait ce que je cherche à faire c'est une macro de ce que fait l'utilisateur sur la page, par exemple il a un choix à faire dans une liste, et quand il clique sur un element j'enregistre l'action, idem pour des checkbox...
il y aurait une autre solution : scanncer l'ensemble des objets et leurs valeurs au moment du "submit", peut-être avec la fonction "getElementsByTagName", mais je n'ai pas encore trouvé...
Georges Peyre avait écrit le 08/03/2007 :
Pierre BOUSQUET a exprimé avec précision :
Autre question sur ce sujet, quelqu'un sait-il comment récupérer le "name" ou l'"id" du champ survolé. Par exemple une propriété que l'on mettrait dans l'evenement "StatusTextChange"
WUrlSurvolee est une chaine // récupération des URL lorsque la souris passe sur un LIEN ActiveXEvénement("PLinks",ActiveX1,"StatusTextChange")
PROCEDURE PLinks(TitreBarre) NPos est un entier // TitreBarre contient l'URL survolée par la souris //trace(titrebarre) Message(TitreBarre) SI PAS SansEspace(TitreBarre) = "" ET PAS SansEspace(TitreBarre) = "Terminé" ALORS WUrlSurvolee = WUrlSurvolee + TitreBarre + RC NPos = CurseurPos(cpClient) WUrlSurvolee = WUrlSurvolee + NPos + RC FIN
