主题：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"))

1、js里面 getLocation(); 已经自动执行了代码，不需要额外再写代码。

2、如果你js里面没有写，你可以在你的httprequest事件写触发的代码。

3、

js里面的getLocation();可以去掉

代码那里，下面的代码，必须写在前面去，不能写在后面

wb.AppendHTML("<script src='./lib/getplace.js'></script>")

Dim 纬度 As Double = 29.144444
Dim 经度  As Double = 121.02823

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)
output.show(jo.Tostring)
If jo("status") = 0 Then
    msgbox(jo("result")("addressComponent")("province"))
    msgbox(jo("result")("addressComponent")("city"))
    msgbox(jo("result")("addressComponent")("district"))
    msgbox(jo("result")("formatted_address"))
End If

1、没有执行的问题，因为你return了

2、代码改一下

 function onSuccess(position){
               //返回用户位置
               //经度
               var longitude =position.coords.longitude;
               //纬度
               var latitude = position.coords.latitude;
               alert("成功");
               alert(longitude + "   " + latitude);
               var result = sendAjaxText(longitude + "|" + latitude,"getplace.htm","",false);
  if (result){
      window.location.href= "/index.htm?zdchengshi=" + result;
  }
           }