czjt1234

Set objMsxml2Xmlhttp = CreateObject("Msxml2.Xmlhttp")
Set objAdodbStream   = CreateObject("Adodb.Stream")

strUrl = "http://www.baidu.com/img/baidu_sylogo1.gif"

With objMsxml2Xmlhttp    '下载数据
  .Open "get", strUrl, False
  .Send
  BinTemp = .ResponseBody
End With

With objAdodbStream      '保存为文件
  .Type = 1
  .Mode = 3
  .Open
  .Write BinTemp
  .SaveToFile "D:\baidu_sylogo1.gif"
  .Close
End With
复制代码

下载用ResponseBody二进制流就没得错了

czjt1234

我的代码保证在原版XP上能运行

czjt1234

报什么错啊，哪个组件被精简掉了？

哪个版本的ghost会报错？
还是360拦截的原因？