Latitude, Longitude & photo satellit Google

[Michel Claveau]

Bonsoir ! Hi!

Un petit script de démo, avec les coordonnées de chez moi.

A little demo script, with Y X of my home.

(With AutoIt beta)

#include <GUIConstants.au3>

$BourgSaintAndeol_Latitude='44.37'   ;valeur fractionnaire
$BourgSaintAndeol_Longitude='4.65'   ;valeur fractionnaire

$Lieu_Latitude=$BourgSaintAndeol_Latitude
$Lieu_Longitude=$BourgSaintAndeol_Longitude
$zoom='0.32'   ;or '0.16' or '0.64' or etc.
$url="http://maps.google.com/maps?ll=" & $Lieu_Latitude & "," & $Lieu_Longitude & "&spn=" & $zoom &","& $zoom & "&t=k"

$oIE        = ObjCreate("Shell.Explorer.2")
$SinkObject = ObjEvent($oIE,"IEEvent_","DWebBrowserEvents")
GUICreate ( "Embedded Web control Test", 960, 680,10, 10 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUI_ActiveX=GUICtrlCreateObj( $oIE,         10,  10, 900, 680 )
GUISetState ()
$oIE.navigate($url)
While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
    
  Wend
  GUIDelete ()
Exit

[jpm]

Whoah,

just a a GUI hint

GUICreate ( "Embedded Web control Test", 920, 700,-1, -1 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

[layer]

Fascinating! 8)