重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
告诉我你用的是那个网站提供的哪个接口
创新互联服务项目包括长子网站建设、长子网站制作、长子网页制作以及长子网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,长子网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到长子省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
或者
把那个xml文件贴出来
处理XElement 建议用XElement 类
XElement 类概述
查询 XML 树
直接使用百度天气api来获取天气信息,再提取就可以了。
满意采纳哈。
百度API Key申请地址:
创建应用 如图:
提交后得到API Key ,运行结果如下:
扩展资料:
API(Application Programming Interface,应用程序编程接口)是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或硬件得以访问一组例程的能力,而又无需访问源码,或理解内部工作机制的细节。
API函数包含在Windows系统目录下的动态连接库文件中。Windows API是一套用来控制Windows的各个部件的外观和行为的预先定义的Windows函数。
参考资料:百度百科-api接口
Private Sub Command1_Click()
Const Url = "" '从网址读取的文本是一个脚本语言的结构类型数据
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") '不过上面的是JavaScript语句,要借助该对象来解析
jsObject.Language = "javascript"
jsObject.AddCode jsCode
'--------------------------------------
MsgBox jsObject.Eval("f.weatherinfo.index48_d") '这是读取结构变量的某个成员值
End If
End Sub
得,写完才刚看到是要vb点虐 代码,上面是vb6.0的,或许vb点虐 也可以吧。