Déterminer vos coordonnées (latitude et longitude)

rem ============================================================================
rem                Geolocalisation.bas
rem   Pour déterminer vos coordonnées (latitude et longitude)
rem ============================================================================
rem Vous devez "Autoriser" dans la boîte de dialogue "... souhaite Connaître votre position"
rem Le résultat serait comme ceci :
rem      ______________________________________________
rem     |                                              |
rem     | Cette page indique                           |
rem     | Latitude : 36.728832, longitude : 10.2146048 |
rem     |______________________________________________|
rem
rem ============================================================================

Donner_Mes_Coordonnees()

end

rem ============================================================================
SUB Donner_Mes_Coordonnees()
    dim_local g$ : g$ = chr$(34)
    file_open_write 9999,"geolocation.html"
    file_writeln 9999,"<script type="+g$+"text/javascript"+g$+">"
    file_writeln 9999,"if (navigator.geolocation)"
    file_writeln 9999,"{"
    file_writeln 9999," navigator.geolocation.getCurrentPosition(function(position)"
    file_writeln 9999," {"
    file_writeln 9999,"alert("+g$+"Latitude : "+g$+" + position.coords.latitude + "+g$+", longitude : " +g$+"+ position.coords.longitude);"
    file_writeln 9999," });"
    file_writeln 9999,"}"
    file_writeln 9999,"else"
    file_writeln 9999," alert("+g$+"Votre navigateur ne prend pas en compte la géolocalisation HTML5"+g$+");"
    file_writeln 9999,"</script>"    
    file_close 9999
    execute_wait "geolocation.html" : pause 1
    file_delete "geolocation.html"    
END_SUB
rem ============================================================================