XmlHttp异步获取网站数据的例子

本文放在这里,算作一个备份吧。

<script>
var oDiv 
var xh  
function getXML()
{
 oDiv = document.all.m
 oDiv.innerHTML = "正在装载栏目数据,请稍侯......."
 oDiv.style.display= ""
 xh = new ActiveXObject("Microsoft.XMLHTTP")
 xh.onreadystatechange = getReady
 xh.open("GET",a.value,true)
 xh.send()

}

function getReady()
{
 if(xh.readyState==4)
 {
  if(xh.status==200)
  {

   oDiv.innerHTML = "完成"
  }
  else
  {
   oDiv.innerHTML = "抱歉,装载数据失败。原因:" + xh.statusText
  }
 }
}
</script>

xmlhttp异步的例子:
URL: name=a value="http://www.microsoft.com" style="width:600px">


<script>
var oDiv
var xh
function getXML()
{
oDiv = document.all.m
oDiv.innerHTML = "正在装载数据,请稍侯......."
oDiv.style.display= ""
xh = new ActiveXObject("Microsoft.XMLHTTP")
xh.onreadystatechange = getReady
xh.open("GET",a.value,true)
xh.send()

}

function getReady()
{
if(xh.readyState==4)
{
if(xh.status==200)
{

oDiv.innerHTML = "完成"
}
else
{
oDiv.innerHTML = "抱歉,装载数据失败。原因:" + xh.statusText
}
}
}
</script>

<script> var oDiv var xh function getXML() { oDiv = document.all.m oDiv.innerHTML = "正在装载栏目数据,请稍侯......." oDiv.style.display= "" xh = new ActiveXObject("Microsoft.XMLHTTP") xh.onreadystatechange = getReady xh.open("GET",a.value,true) xh.send() } function getReady() { if(xh.readyState==4) { if(xh.status==200) { oDiv.innerHTML = "完成" } else { oDiv.innerHTML = "抱歉,装载数据失败。原因:" + xh.statusText } } } </script> xmlhttp异步的例子: URL:



  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA(Visual Basic for Applications)是一种在Microsoft Office应用程序中使用的编程语言。要获取网页数据并实时更新,可以使用VBA的网络请求功能以及计时器功能。 首先,需要使用VBA中的HTTP请求对象来发送网络请求并获取网页数据。可以使用`CreateObject("MSXML2.XMLHTTP")`来创建HTTP请求对象。然后,使用HTTP请求对象发送GET或POST请求,获取所需网页数据。 ``` Dim http As Object Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "http://example.com", False '替换为目标网页的URL http.send Dim response As String response = http.responseText ``` 接下来,可以将获取的网页数据解析为所需的格式,例如XML或HTML。可以使用VBA中的内置函数或第三方库来解析网页数据。 最后,为了实现实时更新,可以使用VBA中的计时器功能。可以使用VBA的`Application.OnTime`方法来定时执行获取网页数据的代码。 ``` Sub UpdateWebData() '获取网页数据的代码 '设定下一次更新的时间 Application.OnTime Now + TimeValue("00:05:00"), "UpdateWebData" End Sub Sub StartUpdating() '启动更新任务 Application.OnTime Now + TimeValue("00:00:01"), "UpdateWebData" End Sub Sub StopUpdating() '停止更新任务 Application.OnTime Now + TimeValue("00:00:01"), "UpdateWebData", , False End Sub ``` 以上代码示例中,`UpdateWebData`子例程中的代码会在每次调用时获取网页数据,并将下一次更新的时间设定为5分钟后。`StartUpdating`子例程用于启动更新任务,调用后会立即执行一次更新,并设定下一次更新的时间。`StopUpdating`子例程用于停止更新任务,调用后不再执行下一次更新。 通过使用VBA的网络请求和计时器功能,可以实现获取网页数据的实时更新。可以根据需求调整更新的时间间隔和代码逻辑,以满足实际应用的需求。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值