这2种都有使用过。
发现问题如下。
使用inet1获取出来的网页源码不完整,比如网页很大。源码很多很多。那么就只能获取开头的部分。缺少源码。。
使用xmlhttp获取,无法实时的更新内容,网页内容已经变动了。获取出来的还是老数据,如果自己打开网页刷新一下。就获取出来了。。。
综合上面2个问题。如何解决呢??
感谢 newkedison 的回答,这样的做法确实很不错。我尝试一下。还有更好的回答吗? 可加分。。如果没有。分就送给你了。
VB获取网页内容inet or xmlhttp?
答案:1 悬赏:80 手机版
解决时间 2021-02-06 13:21
- 提问者网友:夢醒日落
- 2021-02-06 03:21
最佳答案
- 五星知识达人网友:夜余生
- 2021-02-06 04:52
可以通过在网址后面加个随机的数字,来使xmlhttp重新读取
Function getHtml(Url)
Dim XmlHttp,rUrl
Randomize()
rUrl = Url & "&rNum=" & Int((9999) * Rnd(Now())+1)
'如果你的Url没参数写成 rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1)
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET",rUrl, False
XmlHttp.setRequestHeader "Content-Type","text/HTML"
XmlHttp.Send
getHtml = XmlHttp.ResponseBody
End Function
Function getHtml(Url)
Dim XmlHttp,rUrl
Randomize()
rUrl = Url & "&rNum=" & Int((9999) * Rnd(Now())+1)
'如果你的Url没参数写成 rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1)
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET",rUrl, False
XmlHttp.setRequestHeader "Content-Type","text/HTML"
XmlHttp.Send
getHtml = XmlHttp.ResponseBody
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯