问题见下面粉色内容：
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);
var result = sendAjaxText(longitude + "|" + latitude,"getplace.htm","",false);
’1.将经度、纬度发送到网页getplace.htm保存，这样可以吗？
//var result = sendAjaxText(document.getElementById("isj").value,"fasongduanxin.htm","",false);
}
//失败时
function onError(error){
switch(error.code){
case 1:
alert("位置服务被拒绝");
break;
case 2:
alert("暂时获取不到位置信息");
break;
case 3:
alert("获取信息超时");
break;
case 4:
alert("未知错误");
break;
}
}
getLocation();
调用
wb.insertHTML("<script>getLocation()</script>") 2.可以这样调用js函数getLocation()吗？也就是在无点击等操作情况下，调用js信息，可以？ |
getplace.htm代码：
Dim 经纬度 As String = e.PlainText ’3.如何将（longitude + "|" + latitude）分开及赋值？
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"))
[此贴子已经被作者于2017/6/1 22:43:33编辑过]
加好友 
发短信
Post By：2017/5/25 0:33:00 [显示全部帖子]
此主题相关图片如下：qq图片2017060114551555.png
此主题相关图片如下：qq图片2017060213512777.jpg
