Jump to content

Latitude, Longitude & photo satellit Google


Recommended Posts

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
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...