Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=googletrack.ico
#AutoIt3Wrapper_outfile=googletrack.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <file.au3>
$hwmd_Reciver = GUICreate("GoogleMapsTrack", 800, 700, 0, 0,$WS_OVERLAPPEDWINDOW)
$OK = GUICtrlCreateButton("OK", 620, 650, 60, 40)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Annuler = GUICtrlCreateButton("Annuler", 700, 650, 80, 40)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Ville de Départ",80,630,200,20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Ville1 = GUICtrlCreateInput("france paris", 80, 660, 250, 20)
GUICtrlSetTip(-1, "Entrez une Ville de départ")
GUICtrlCreateLabel("Ville d'Arrivée",350,630,200,20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Ville2 = GUICtrlCreateInput("france limoges", 350, 660, 250, 20)
GUICtrlSetTip(-1, "Entrez une Ville d'arrivée")
$url=@ScriptDir & "\gmapsroute.html";lecture de la page html
;$url="http://maps.google.fr/maps?ct=reset"
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie, -14, -14, 805, 600)
;_IEFormElementSetValue ($oQuery, "AutoIt IE.au3")
;_IEFormSubmit ($oForm)
local $lat = "40"
_ReplaceStringInFile($url, "LATITUDE", $lat, 1, 0) ;Paramètre 1 = Sensible a la casse || Paramètre 0 = Remplace le premier trouvé
local $lon = "-100"
_ReplaceStringInFile($url, "LONGITUDE", $lon, 1, 0) ;Paramètre 1 = Sensible a la casse || Paramètre 0 = Remplace le premier trouvé
local $ZoomLevel = "12"
_ReplaceStringInFile($url, "ALTITUDE", $ZoomLevel, 1, 0) ;Paramètre 1 = Sensible a la casse || Paramètre 0 = Remplace le premier trouvé
_IENavigate($ie, $url, 0)
Sleep(2000)
$oForms=_IEFormGetCollection($ie);,0)
$nb_form=@extended
;$oFormfrom = _IEGetObjById ($ie,"start")
ConsoleWrite("nb form = "&$nb_form&@CRLF)
Dim $formulaire0,$formulaire1
for $i = 0 to $nb_form - 1
;MsgBox(0, "Form Info", $oForm.name)
Assign("formulaire"&$i,_IEFormGetCollection($ie,$i))
Next
ConsoleWrite(@error&@CRLF)
;$oQueryfrom = _IEGetObjById ($ie, "search")
$oQueryfrom=_IEFormElementGetCollection( $formulaire0,0)
ConsoleWrite(@error&@CRLF)
$oButtonfrom=_IEFormElementGetCollection( $formulaire0,1)
$oQueryto = _IEFormElementGetCollection( $formulaire1,0)
ConsoleWrite(@error&@CRLF)
$oButtonto=_IEFormElementGetCollection( $formulaire1,1)
GUISetState()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE , $Annuler
Exit
Case $OK
FileCopy($url,$url&"_tmp")
local $depart = GUICtrlRead($Ville1)
;_ReplaceStringInFile($url, "VILLEFROM", $depart, 1, 0) ;Paramètre 1 = Sensible a la casse || Paramètre 0 = Remplace le premier trouvé
_IEFormElementSetValue ($oQueryfrom, $depart)
;$formulaire0.submit()
;_IEFormSubmit ($formulaire0,0)
_IEAction($oButtonfrom,"click")
Sleep(2000)
;Beep(550,1000)
ConsoleWrite(@error&@CRLF)
local $arrivee = GUICtrlRead($Ville2)
;_ReplaceStringInFile($url, "VILLETO", $arrivee, 1, 0) ;Paramètre 1 = Sensible a la casse || Paramètre 0 = Remplace le premier trouvé
_IEFormElementSetValue ($oQueryto, $arrivee)
;_IEFormSubmit ($formulaire1,0)
_IEAction($oButtonto,"click")
;_IENavigate($ie, $url, 0)
sleep(3000)
If FileExists($url&"_tmp") Then FileCopy($url&"_tmp",$url,1)
FileDelete($url&"_tmp")
EndSwitch
Wend