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

评论

1. 

   夜曦2014-04-15 19:11回复

   看看怎么样的

2. 

   暗金2013-12-19 16:57回复

   我来看看

3. 

   蓝叶2013-10-22 11:19回复

   插件挺好的。

   1. 

      简爱2013-10-24 01:05回复

      @蓝叶：唉 还不完美
      虽然是ajax局部刷新  但请求服务器的数据还是整个页面
      而且跟我写的js表情插件有冲突
      刷新完评论后得重新解析表情

4. 

   回味依旧2013-10-04 17:02回复

   另外求解密版JS  如果不愿意共享可以发到我邮箱 谢谢 我担心后门~

   1. 

      简爱2013-10-04 18:31回复

      @回味依旧：后门  你不用担心控制台看看网络联节情况就知道了
      文件加密是为了留个名在网页注释部分
      文件大是因为有两张经过base64编码的图片

      1. 

         回味依旧2013-10-04 18:32回复

         @简爱：有机油帮我解密了 嘎嘎

      2. 

         简爱2013-10-04 19:39回复

         @回味依旧：可怜俺滴署名啊
         以后有空还想写个纯js的表情插件呢   唉。。。。
         伤心啊 表情插件不需要要修改模版  也不用设置id真接。。。。。保密

      3. 

         回味依旧2013-10-04 22:30回复

         @简爱：嘎嘎 表情插件不是官方有么

5. 

   回味依旧2013-10-04 17:01回复

   我改了模板才能实现~~~我的评论列表没有统一的ID。。。

   1. 

      简爱2013-10-04 19:29回复

      @回味依旧：不一定非得是id
      class也行，定义list就用英文点开始   例： ?list=.***

      1. 

         回味依旧2013-10-04 22:30回复

         @简爱：我那个连Class都没有

6. 

   回味依旧2013-10-03 20:41回复

   我测试下~

7. 

   alen2013-10-02 23:53回复

   记得有人问过，次方法简单易懂。不错。

   1. 

      简爱2013-10-03 00:14回复

      @alen：就是不知道别人用得怎么样

8. 

   明月浩空2013-10-02 00:31回复

   真的这么简单吗？

   1. 

      简爱2013-10-02 06:55回复

      @明月浩空：就是这么简单

9. 

   黎健雄2013-10-01 19:16回复

   哎呦喂好神奇啊。

10. 

    黎健雄2013-10-01 19:16回复

    有此等好事？
    我测试。