Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]调用天气插件


  共有2914人关注过本帖树形打印复制链接

主题：[求助]调用天气插件
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		[求助]调用天气插件  发帖心情 Post By：2018/1/25 10:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20180125100825898.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20180125100812407.jpg
图片点击可在新窗口打开查看
如图的动态天气插件能否在FT里调用，能否提供个例子

<script>(function(T,h,i,n,k,P,a,g,e){g=function(){P=h.createElement(i);a=h.getElementsByTagName(i)[0];P.src=k;P.charset="utf-8";P.async=1;a.parentNode.insertBefore(P,a)};T["ThinkPageWeatherWidgetObject"]=n;T[n]||(T[n]=function(){(T[n].q=T[n].q||[]).push(arguments)});T[n].l=+new Date();if(T.attachEvent){T.attachEvent("onload",g)}else{T.addEventListener("load",g,false)}}(window,document,"script","tpwidget","//widget.seniverse.com/widget/chameleon.js"))</script>
<script>tpwidget("init", {
    "flavor": "bubble",
    "location": "WX4FBXXFKE4F",
    "geolocation": "enabled",
    "position": "top-right",
    "margin": "10px 10px",
    "language": "zh-chs",
    "unit": "c",
    "theme": "chameleon",
    "uid": "U429F2B225",
    "hash": "f780804b70756d0fe2c18c9089686fce"
});
tpwidget("show");</script>
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/25 10:22:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2018/1/25 10:31:00 [只看该作者]

链接这个已经看过，但是怎么能够做到：动态显示，也就是WEB控件跟随示天气插件自适应大小
[此贴子已经被作者于2018/1/25 10:31:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/25 10:33:00 [只看该作者]

以下是引用l1q2lq在2018/1/25 10:31:00的发言：
链接这个已经看过，但是怎么能够做到：动态显示，也就是WEB控件跟随示天气插件自适应大小

 

你把web控件改成和天气插件大小一致，才行的。
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2018/1/25 10:36:00 [只看该作者]

我试试，有问题再来请教

 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2018/1/25 11:28:00 [只看该作者]

老师，ylm版主的那个天气例子显示语法错误，麻烦帮忙看一下

Dim D As Date
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
Dim drs As List(Of DataRow) = DataTables("表A").Select("代码 is not null")
For Each dr As DataRow In drs
    XMLH.open("GET", "http://www.weather.com.cn/data/sk/" & dr("代码") & ".html", True)   '获得实时信息
    XMLH.send(Nothing)
    Do While XMLH.readyState <> 4
        Application.DoEvents
    Loop
    
    '把数据json数据转化成对象
    Dim json As String = XMLH.responseText
    Dim ScriptControl As Object, data  As Object, JscriptCode As String
    JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
    ScriptControl = CreateObject("MSScriptControl.ScriptControl")
    With ScriptControl
        .Language = "Javascript"
        .Timeout = -1
        .AddCode(JscriptCode)
        data = .Run("toObject", json)
    End With
    
    dr("城市") = data.weatherinfo.city
    dr("实时_气温") = data.weatherinfo.temp
    dr("实时_风向") = data.weatherinfo.WD
    dr("实时_风速") = data.weatherinfo.WS
    dr("实时_更新时间")=data.weatherinfo.time
dr("实时_湿度")=data.weatherinfo.SD
    '----------------------------------------------------------------------------------
    
    XMLH.open("GET", "http://m.weather.com.cn/atad/" & dr("代码") & ".html", True)   '获得预报信息
    XMLH.send(Nothing)
    Do While XMLH.readyState <> 4
        Application.DoEvents
    Loop
    
    '把数据json数据转化成对象
    json = XMLH.responseText
    JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
    ScriptControl = CreateObject("MSScriptControl.ScriptControl")
    With ScriptControl
        .Language = "Javascript"
        .Timeout = -1
        .AddCode(JscriptCode)
        data = .Run("toObject", json)
    End With
    
    dr("今天_气温") = data.weatherinfo.temp1
    dr("今天_天气") = data.weatherinfo.weather1
    dr("今天_风速") = data.weatherinfo.wind1
    dr("今天_图标") = data.weatherinfo.img1
    dr("今天_图标2") = data.weatherinfo.img2
    
    
    dr("明天_气温") = data.weatherinfo.temp2
    dr("明天_天气") = data.weatherinfo.weather2
    dr("明天_风速") = data.weatherinfo.wind2
    dr("明天_图标") = data.weatherinfo.img3
    dr("明天_图标2") = data.weatherinfo.img4
    
    dr("后天_气温") = data.weatherinfo.temp3
    dr("后天_天气") = data.weatherinfo.weather3
    dr("后天_风速") = data.weatherinfo.wind3
    dr("后天_图标") = data.weatherinfo.img5
    dr("后天_图标2") = data.weatherinfo.img6
    
    
    dr("第4天_气温") = data.weatherinfo.temp4
    dr("第4天_天气") = data.weatherinfo.weather4
    dr("第4天_风速") = data.weatherinfo.wind4
    dr("第4天_图标") = data.weatherinfo.img7
    dr("第4天_图标2") = data.weatherinfo.img8
    
    dr("第5天_气温") = data.weatherinfo.temp5
    dr("第5天_天气") = data.weatherinfo.weather5
    dr("第5天_风速") = data.weatherinfo.wind5
    dr("第5天_图标") = data.weatherinfo.img9
    dr("第5天_图标2") = data.weatherinfo.img10
    
    dr("第6天_气温") = data.weatherinfo.temp6
    dr("第6天_天气") = data.weatherinfo.weather6
    dr("第6天_风速") = data.weatherinfo.wind6
    dr("第6天_图标") = data.weatherinfo.img11
    dr("第6天_图标2") = data.weatherinfo.img12
    
    
    dr("更新日期") = data.weatherinfo.date_y
    dr("星期") = data.weatherinfo.week
    dr("今天_穿衣指数") = data.weatherinfo.index_d
    dr("今天_紫外线") = data.weatherinfo.index_uv
    dr("今天_洗车指数") = data.weatherinfo.index_xc
    dr("今天_旅游指数") = data.weatherinfo.index_tr
    dr("今天_空气舒适度") = data.weatherinfo.index_co
    dr("今天_晨练指数") = data.weatherinfo.index_cl
    dr("今天_晾晒指数") = data.weatherinfo.index_ls
    dr("今天_过敏指数") = data.weatherinfo.index_ag
    D=dr("更新日期")
Next

With DataTables("表A")
    .DataCols("第4天_气温").Caption =D.AddDays(3) & "_气温"
    .DataCols("第4天_天气").Caption =D.AddDays(3) &  "_天气"
    .DataCols("第4天_图标").Caption =D.AddDays(3) &  "_图标"
    .DataCols("第4天_图标2").Caption =D.AddDays(3) &  "_图标2"
    .DataCols("第4天_风速").Caption =D.AddDays(3) &  "_风速"
    
    .DataCols("第5天_气温").Caption =D.AddDays(4) & "_气温"
    .DataCols("第5天_天气").Caption =D.AddDays(4) &  "_天气"
    .DataCols("第5天_图标").Caption =D.AddDays(4) &  "_图标"
    .DataCols("第5天_图标2").Caption =D.AddDays(4) &  "_图标2"
    .DataCols("第5天_风速").Caption =D.AddDays(4) &  "_风速"
    
    .DataCols("第6天_气温").Caption =D.AddDays(5) & "_气温"
    .DataCols("第6天_天气").Caption =D.AddDays(5) &  "_天气"
    .DataCols("第6天_图标").Caption =D.AddDays(5) &  "_图标"
    .DataCols("第6天_图标2").Caption =D.AddDays(5) &  "_图标2"
    .DataCols("第6天_风速").Caption =D.AddDays(5) &  "_风速" 
    .BuildHeader()
End With

Dim btn As WinForm.Button =e. Form.Controls("Button2")
btn.PerformClick()
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/25 11:38:00 [只看该作者]

天气预报信息的获取，现在基本没有免费的了。免费的基本都不稳定，论坛里面的那些接口全部都无效了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/25 11:54:00 [只看该作者]

或者你可以试试这个接口

 

http://www.sojson.com/api/weather.html

 

Dim cs As String = "湛江"
Dim hc As New HttpClient("http://www.sojson.com/open/api/weather/json.shtml?city=" & cs)
Dim str As String = hc.GetData()
Dim json As JObject = JObject.parse(str)
output.show(json.tostring)
msgbox(json("status"))
msgbox(json("data")("wendu"))
msgbox(json("data")("yesterday")("high"))
msgbox(json("data")("forecast")(0)("high"))
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：522 积分：5027 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2018/4/12 10:37:00 [只看该作者]

学习

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询