主题：XXXXX微信里获取用户地理位置，有没有比较好的贴子，推荐下，谢了！

 用js-sdk获取即可

https://mp.weixin.qq.com/wiki?action=doc&id=mp1421141115&t=0.8138827698946394#dlwz

http://www.foxtable.com/mobilehelp/scr/0247.htm

 如果你用微信内置的浏览器，可以获取地理位置，但你就要接入微信功能了......

 直接用下面的方法吧，把代码保存为js，引入调用。 

           function getLocation(){
               var options={
                   enableHighAccuracy:true,
                   maximumAge:1000
               }
               if(navigator.geolocation){
                   //浏览器支持geolocation
                   navigator.geolocation.getCurrentPosition(onSuccess,onError,options);
                  
               }else{
                   //浏览器不支持geolocation
               }
           }

           //成功时
           function onSuccess(position){
               //返回用户位置
               //经度
               var longitude =position.coords.longitude;
               //纬度
               var latitude = position.coords.latitude;
               alert("成功");
        alert(longitude + "   " + latitude);
           }
 

           //失败时
           function onError(error){
               switch(error.code){
                   case 1:
                   alert("位置服务被拒绝");
                   break;

                   case 2:
                   alert("暂时获取不到位置信息");
                   break;

                   case 3:
                   alert("获取信息超时");
                   break;

                   case 4:
                    alert("未知错误");
                   break;
               }

           }

           getLocation();

 你就需要用到百度地图api了

 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72530&skin=0

现在可以这样写

Dim 纬度 As Double = 39.91064
Dim 经度  As Double = 116.39925

Dim ur As String = "http://api.map.baidu.com/geocoder/v2/?ak=hAaa2NLELKdAIfMhMjnuEgi1&output=json&location=" & 纬度 & "," & 经度
Dim hc As new HttpClient(ur)
Dim jo = JObject.Parse(hc.GetData)
msgbox(jo.Tostring)
msgbox(jo("status"))
msgbox(jo("result")("formatted_address"))