VBS 获取指定城市天气预报

2013-10-1 简爱

VBS 获取指定天气预报

' VBS 获取指定城市天气预报

GetWeather "嘉定"



Function GetWeather(city)

  On Error Resume Next

  With CreateObject("Microsoft.XMLHTTP")

    .Open "GET","http://api.asilu.com/weather/?output=text&city="& city,False

    .Send:body=.ResponseText

  End With

  msgbox body,64+4096, "天气预报"

End Function

评论：

夜曦2014-04-15 19:11 回复
看看怎么样的
暗金2013-12-19 16:57 回复
我来看看
简爱2013-10-24 01:05 回复
@蓝叶：唉 还不完美

虽然是ajax局部刷新  但请求服务器的数据还是整个页面

而且跟我写的js表情插件有冲突

刷新完评论后得重新解析表情
蓝叶2013-10-22 11:19 回复
插件挺好的。
简爱2013-10-04 23:00 回复
@简爱：回头看看  我想着弄一个纯js的 不需要操作数据库  表情替换全在前端实现
回味依旧2013-10-04 22:30 回复
@简爱：自己加了个ID上去
回味依旧2013-10-04 22:30 回复
@简爱：我那个连Class都没有
回味依旧2013-10-04 22:30 回复
@简爱：嘎嘎 表情插件不是官方有么
简爱2013-10-04 20:09 回复
@回味依旧：还真用上了  解密的  还把俺名给去掉了   这孩子，，，

回头在这儿共享
简爱2013-10-04 19:39 回复
@回味依旧：可怜俺滴署名啊

以后有空还想写个纯js的表情插件呢   唉。。。。

伤心啊 表情插件不需要要修改模版  也不用设置id真接。。。。。保密
 1  2  3 