如何用vb获取网络上的xml文件,并解析内容
发布网友
发布时间：2022-11-08 06:41
共1个回答
热心网友
时间：2023-11-08 01:06
Public Function getHtmlStr(strUrl As String) '获取远程网页源码
On Error Resume Next
Dim XmlHttp As Object, stime, ntime
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.open "GET", strUrl, True
XmlHttp.send
stime = Now '获取当前时间
While XmlHttp.ReadyState <> 4
DoEvents
ntime = Now '获取循环时间
If DateDiff("
