--> www.ge.ch/registre_foncier/publications-foncieres.asp

--| 10 May 2020

tell application "Safari"

activate

set jourDeDate to 1

set moisDeDate to 1

set anneeDeDate to do JavaScript "document.getElementsByName('anneeDeDate')[0].value" in document 1

set jourADate to 1

set moisADate to moisDeDate + 2

set anneeADate to do JavaScript "document.getElementsByName('anneeADate')[0].value" in document 1

set commune to do JavaScript "document.getElementById('commune').value" in document 1

set filtre to do JavaScript "document.getElementById('texte').value" in document 1

set lastYear to anneeADate

set anneeADate to anneeDeDate

repeat while anneeDeDate is less than or equal to lastYear

do JavaScript "document.getElementsByName('jourDeDate')[0].value =" & jourDeDate as string in document 1

do JavaScript "document.getElementsByName('moisDeDate')[0].value =" & moisDeDate as string in document 1

do JavaScript "document.getElementsByName('anneeDeDate')[0].value =" & anneeDeDate as string in document 1

do JavaScript "document.getElementsByName('jourADate')[0].value =" & jourADate as string in document 1

do JavaScript "document.getElementsByName('moisADate')[0].value =" & moisADate as string in document 1

do JavaScript "document.getElementsByName('anneeADate')[0].value =" & anneeADate as string in document 1

do JavaScript "document.getElementById('commune').value ='" & commune & "'" in document 1

do JavaScript "document.getElementById('texte').value ='" & filtre & "'" in document 1

set captcha to do JavaScript "document.getElementsByClassName('texte')[0].innerText" in document 1

set captcha to text 49 thru -7 of captcha

set reponse to run script captcha as string

do JavaScript "document.getElementById('ef_captchacontrole').value =" & reponse in document 1

do JavaScript "document.getElementById('btnRechercher').click();" in document 1

delay 1 -- waiting for displaying the new Web page

try

set eureka to do JavaScript "document.getElementsByClassName('bordTableau widthmax')[0].innerText" in document 1

if eureka does not contain "Aucun" then -- exit if it's the results page

exit repeat

end if

end try

set the URL of the front document to "http://www.ge.ch/registre_foncier/publications-foncieres.asp"

delay 0.5 -- waiting for displaying the new Web page

set moisDeDate to (moisDeDate + 2) mod 12

if moisDeDate is equal to 1 then set anneeDeDate to anneeDeDate + 1

set moisADate to (moisADate + 2) mod 12

if moisADate is equal to 1 then set anneeADate to anneeADate + 1

end repeat

end tell