Tomy46 Posted September 21, 2013 Share Posted September 21, 2013 Hello everyone, I need again your talents! I'm making a software for my DB customers. Being in a geographical area or addresses are not accurate enough to be displayed on a map, I need to identify the homes of customers with their latitude and longitude. For display map, I use Google Map UDF by Seangriffin ... I can't find a solution for extract the geographic coordinates of homes when I'm "pointing" on the map, ... I'm open to any ideas / suggestions even if it has to go through a system other than google map ... thank you PS: I thought I read that The Google Latitude API allowed to do that, but it has been closed since August 2013 ... so we need another solution / idea ... ======> Tomy ... just for fun <====== Link to comment Share on other sites More sharing options...
Celtic88 Posted September 21, 2013 Share Posted September 21, 2013 Opt("GUIOnEventMode", 1) $oIE = ObjCreate("Shell.Explorer.2") GUICreate("IP Location Finder", 800, 635, -1, -1, 0x00080000) GUISetOnEvent(-3, "__Exit") $Input1 = GUICtrlCreateInput("", 24, 556, 225, 33) GUICtrlSetFont(-1, 16, 800, 0, "Tahoma") $Button1 = GUICtrlCreateButton("Track IP....", 264, 555, 142, 33) GUICtrlSetFont(-1, 12, 800, 0, "Tahoma") GUICtrlSetOnEvent(-1, "__GO") GUICtrlCreateObj($oIE, -388, -104, 800 + 388, 540 + 104) GUISetState() $oIE.navigate("https://maps.google.com/maps?q=ALGERIA&t=k&z=2&lci=com.panoramio.all,com.youtube.all,weather") Do Sleep(9999999) Until False Func __GEOIP($IP) If $IP <> Chr(0) Then $IP = "&ip=" & $IP Local $KEY = "c4a3709f003e93dbd29d3828281707de2105f80a506db06e032bad7d8dfdf1ce" Local $GETINFO = StringSplit(BinaryToString(InetRead("http://api.ipinfodb.com/v3/ip-city/?key=" & $KEY & $IP & "&format=json", 1)), Chr(34)) If @error Then Return $GETINFO Local $INFO = $GETINFO[20] & "+" & $GETINFO[24] & "+" & $GETINFO[28] & "+" & $GETINFO[36] & "+" & $GETINFO[40] Return $INFO EndFunc ;==>__GEOIP Func __GO() Local $READIP = GUICtrlRead($Input1) $oIE.navigate("http://maps.google.fr/maps?q=" & __GEOIP($READIP) & "&iwloc=A&t=h&z=5") EndFunc ;==>__GO Func __Exit() Exit EndFunc ;==>__Exit Link to comment Share on other sites More sharing options...
Celtic88 Posted September 21, 2013 Share Posted September 21, 2013 or use this func MsgBox(0, '', __GEOIP()) Func __GEOIP() Local $GETINFO = BinaryToString(InetRead("http://j.maxmind.com/app/geoip.js", 1)) If @error Then Return Return $GETINFO EndFunc ;==>__GEOIP Link to comment Share on other sites More sharing options...
Tomy46 Posted September 21, 2013 Author Share Posted September 21, 2013 Mmmmm ... This feature allows me to locate from an IP but does not give me the coordinates from a single "pointing" (with left click) on the map ... I already know where the houses are, but I want to extract the latitude and longitude of it, from a single click on the map. Any idea? ======> Tomy ... just for fun <====== Link to comment Share on other sites More sharing options...
Solution Tomy46 Posted September 22, 2013 Author Solution Share Posted September 22, 2013 (edited) Solution on the French topic: http://www.autoitscript.fr/forum/viewtopic.php?f=3&t=11721&p=81312 Edited September 22, 2013 by Tomy46 ======> Tomy ... just for fun <====== Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now