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

评论：

简爱2013-10-04 19:29 回复
@回味依旧：不一定非得是id

class也行，定义list就用英文点开始   例： ?list=.***
回味依旧2013-10-04 18:32 回复
@简爱：有机油帮我解密了 嘎嘎
简爱2013-10-04 18:31 回复
@回味依旧：后门  你不用担心控制台看看网络联节情况就知道了

文件加密是为了留个名在网页注释部分

文件大是因为有两张经过base64编码的图片
回味依旧2013-10-04 17:02 回复
另外求解密版JS  如果不愿意共享可以发到我邮箱 谢谢 我担心后门~
回味依旧2013-10-04 17:01 回复
我改了模板才能实现~~~我的评论列表没有统一的ID。。。
回味依旧2013-10-03 20:41 回复
我测试下~
简爱2013-10-03 00:14 回复
@alen：就是不知道别人用得怎么样
alen2013-10-02 23:53 回复
记得有人问过，次方法简单易懂。不错。
简爱2013-10-02 06:55 回复
@明月浩空：就是这么简单
明月浩空2013-10-02 00:31 回复
真的这么简单吗？
 1  2  3 