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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
| gobjIExplore:SetURL("http://www.grservices.fr/test.html")
gobjIExplore:TempoChargement()
sDateDeb est une chaîne = "20140701"
sDateFin est une chaîne = "20140731"
sForm est une chaîne = "rechhistovirement"
sFormSoinsDebutJ est une chaîne = "fdrdJj"
sFormSoinsDebutM est une chaîne = "fdrdMm"
sFormSoinsDebutA est une chaîne = "fdrdAa"
sFormSoinsFinJ est une chaîne = "fdrfJj"
sFormSoinsFinM est une chaîne = "fdrfMm"
sFormSoinsFinA est une chaîne = "fdrfAa"
sFormType est une chaîne = "typeRecherche"
sFormSubmit est une chaîne = "Submit"
dDateFin est une Date = sDateFin
dDateFin..Jour++
sDateFin = dDateFin
sDateSoinsDebutJ est une chaîne = DateVersChaîne(sDateDeb, "JJ")
sDateSoinsDebutM est une chaîne = DateVersChaîne(sDateDeb, "MM")
sDateSoinsDebutA est une chaîne = DateVersChaîne(sDateDeb, "AAAA")
sDateSoinsFinJ est une chaîne = DateVersChaîne(sDateFin, "JJ")
sDateSoinsFinM est une chaîne = DateVersChaîne(sDateFin, "MM")
sDateSoinsFinA est une chaîne = DateVersChaîne(sDateFin, "AAAA")
//
pautForm est un objet automation dynamique
pautDateSDJ est un objet automation dynamique
pautDateSDM est un objet automation dynamique
pautDateSDA est un objet automation dynamique
pautDateSFJ est un objet automation dynamique
pautDateSFM est un objet automation dynamique
pautDateSFA est un objet automation dynamique
pautSubmit est un objet automation dynamique
Multitâche(-100)
pautForm = gobjIExplore:getElement_byName("form", sForm, Null)
//
pautDateSDJ = gobjIExplore:getElement_byName("input", sFormSoinsDebutJ, pautForm)
gobjIExplore:setElement(sDateSoinsDebutJ, pautDateSDJ)
pautDateSDM = gobjIExplore:getElement_byName("input", sFormSoinsDebutM, pautForm)
gobjIExplore:setElement(sDateSoinsDebutM, pautDateSDM)
pautDateSDA = gobjIExplore:getElement_byName("input", sFormSoinsDebutA, pautForm)
gobjIExplore:setElement(sDateSoinsDebutA, pautDateSDA)
pautDateSFJ = gobjIExplore:getElement_byName("input", sFormSoinsFinJ, pautForm)
gobjIExplore:setElement(sDateSoinsFinJ, pautDateSFJ)
pautDateSFM = gobjIExplore:getElement_byName("input", sFormSoinsFinM, pautForm)
gobjIExplore:setElement(sDateSoinsFinM, pautDateSFM)
pautDateSFA = gobjIExplore:getElement_byName("input", sFormSoinsFinA, pautForm)
gobjIExplore:setElement(sDateSoinsFinA, pautDateSFA)
//pautType = gobjIExplore:getElement_byName("input", sFormType, pautForm)
//gobjIExplore:setElement("prod", pautType)
// La partie qui ne fonctionne plus
pautSubmit = gobjIExplore:getElement_byName("input", sFormSubmit, pautForm)
gobjIExplore:m_bCharge = Faux
gobjIExplore:clickElement(pautSubmit)
pautForm>>submit
gobjIExplore:TempoChargement() |
Partager