批处理之家 - Powered by Discuz! Board

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

作者: 522235677 时间: 2013-5-3 19:06 标题: [已解决]vbs下载网页源码，中文总是乱码的问题

本帖最后由 522235677 于 2013-5-8 11:35 编辑

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
复制代码

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

作者: CrLf 时间: 2013-5-3 21:40

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

作者: czjt1234 时间: 2013-5-3 22:27

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

作者: 522235677 时间: 2013-5-4 00:15

回复 3# czjt1234

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

作者: czjt1234 时间: 2013-5-4 07:07

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

作者: 522235677 时间: 2013-5-4 12:24

回复 5# czjt1234

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

作者: czjt1234 时间: 2013-5-4 14:39

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

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

作者: 522235677 时间: 2013-5-8 11:34

回复 3# czjt1234

感谢

欢迎光临批处理之家 (http://bathome.net./)