[问题求助] [已解决]vbs下载网页源码，中文总是乱码的问题

522235677

Set html = CreateObject("microsoft.xmlhttp")
html.open "GET",wscript.arguments(0),False
html.send
txt = GB2312(html.responseBody) 
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.OpenTextFile(wscript.arguments(1),2,True)
file.WriteLine txt
file.Close
function GB2312(val0)
       dim i,op,t,t1
       op = ""
       for i = 1 to lenB(val0)
           t = AscB(MidB(val0,i,1))
           if t < &H80 Then
               op = op & chr(t)
           else
               t1 = ascB(midB(val0,i+1,1))
               op = op & chr(clng(t) * &H100 + cint(t1))
               i = i + 1
           end If
       next
       GB2312 = op
end Function
复制代码

网页中的中文，下载后就是乱码。但是网页在网上浏览都是正常的。

522235677

回复 3# czjt1234


    感谢

czjt1234

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

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

522235677

回复 5# czjt1234


    现在有几个是原版的呢，不都是ghost

czjt1234

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

522235677

回复 3# czjt1234


    你这个代码，有的XP系统会出错。不知道什么情况

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二进制流就没得错了

CrLf

GB2312 函数的作用好像是把 GB2312 转为 GB2312？
碰到 charset 不等于 gbk 的页面是不是就出错了