1,502
社区成员
发帖
与我相关
我的任务
分享
Private Function getHtmlStr(ByVal strUrl As String) As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", strUrl, True
XmlHttp.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
XmlHttp.setRequestHeader "Accept-Encoding", "gzip, deflate"
XmlHttp.setRequestHeader "Accept-Language", "zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3"
XmlHttp.setRequestHeader "Connection", "keep-alive"
XmlHttp.setRequestHeader "Cookie", txtCookie.Text
XmlHttp.setRequestHeader "Host", "click.simba.taobao.com"
XmlHttp.setRequestHeader "Referer", txtReference.Text
XmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0"
XmlHttp.send
getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
[/quote]老师,他显示引用open的方法失败,是不是得引用啊。。Private Function getHtmlStr(ByVal strUrl As String) As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", strUrl, True
XmlHttp.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
XmlHttp.setRequestHeader "Accept-Encoding", "gzip, deflate"
XmlHttp.setRequestHeader "Accept-Language", "zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3"
XmlHttp.setRequestHeader "Connection", "keep-alive"
XmlHttp.setRequestHeader "Cookie", txtCookie.Text
XmlHttp.setRequestHeader "Host", "click.simba.taobao.com"
XmlHttp.setRequestHeader "Referer", txtReference.Text
XmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0"
XmlHttp.send
getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
[/quote]。。。Private Function getHtmlStr(ByVal strUrl As String) As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", strUrl, True
XmlHttp.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
XmlHttp.setRequestHeader "Accept-Encoding", "gzip, deflate"
XmlHttp.setRequestHeader "Accept-Language", "zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3"
XmlHttp.setRequestHeader "Connection", "keep-alive"
XmlHttp.setRequestHeader "Cookie", txtCookie.Text
XmlHttp.setRequestHeader "Host", "click.simba.taobao.com"
XmlHttp.setRequestHeader "Referer", txtReference.Text
XmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0"
XmlHttp.send
getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
那就是内容没写对