1.vb.net 天气预报接口怎么用

vb.net 天气预报接口怎么用

安卓天气预报接口_安卓天气预报源码

Private?Sub?Command1_Click()

Const?Url?=?"://m.weather.cn/data/101010100.html"?'从网址读取的文本是一个脚本语言的结构类型数据

Dim?xmlHTTP?As?Object

Set?xmlHTTP?=?CreateObject("Microsoft.XMLHTTP")

xmlHTTP.Open?"GET",?Url,?False

xmlHTTP.send

If?xmlHTTP.readystate?=?4?Then

Dim?jsCode?As?String

jsCode?=?xmlHTTP.responseText

jsCode?=?"var?f="?&?jsCode?'在文本前添加"var?f="就构成了一个完整的赋值语句，这样就可以通过f变量读取成员数据

Dim?jsObject?As?Object

Set?jsObject?=?CreateObject("MSScriptControl.ScriptControl")?'不过上面的是JaScript语句，要借助该对象来解析

jsObject.Language?=?"jascript"

jsObject.AddCode?jsCode

'--------------------------------------

MsgBox?jsObject.Eval("f.weatherinfo.index48_d")?'这是读取结构变量的某个成员值

End?If

End?Sub 得，写完才刚看到是要vb.net 代码，上面是vb6.0的，或许vb.net 也可以吧。