VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1258|回复: 3

关于xmlhttp的问题

[复制链接]
发表于 2021-3-11 15:36:06 | 显示全部楼层 |阅读模式
公司内网,我用xmlhttp自动登录,并找到URL,连续下载两个文件,第一个文件下载成功,第二个文件就下载不成功。在浏览器上,直接输入登录的URL,再连续输入文件的URL,又都能下载成功,什么原因呢?
Set dwjh = CreateObject("msxml2.xmlhttp.3.0")
Set dwjs = CreateObject("adodb.stream")
dwjh.Open "post", 登录URL, False
dwjh.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
dwjh.Send
Do
    DoEvents
    If dwjh.ReadyState = 4 Then Exit Do
Loop
    dwjh.Open "post", URL, False
    dwjh.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    dwjh.Send
    Do
     DoEvents
      If dwjh.ReadyState = 4 Then Exit Do
    Loop
    dwjs.Type = 1
    dwjs.Open
    dwjs.Write dwjh.responseBody
    dwjs.savetofile Application.CurrentProject.Path & "\123456.xlsx", 2
    dwjs.Close
   
   
    dwjh.Open "post", URL2, False
    dwjh.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    dwjh.Send
    Do
     DoEvents
      If dwjh.ReadyState = 4 Then Exit Do
    Loop
    dwjs.Type = 1
    dwjs.Open
    dwjs.Write dwjh.responseBody
    'Debug.Print dwjh.responseBody
    dwjs.savetofile Application.CurrentProject.Path & "654321.xlsx", 2
    dwjs.Close
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 21:05

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表