Board logo

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

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

本帖最后由 522235677 于 2013-5-8 11:35 编辑
  1. Set html = CreateObject("microsoft.xmlhttp")
  2. html.open "GET",wscript.arguments(0),False
  3. html.send
  4. txt = GB2312(html.responseBody)
  5. set fso=CreateObject("Scripting.FileSystemObject")
  6. set file=fso.OpenTextFile(wscript.arguments(1),2,True)
  7. file.WriteLine txt
  8. file.Close
  9. function GB2312(val0)
  10.        dim i,op,t,t1
  11.        op = ""
  12.        for i = 1 to lenB(val0)
  13.            t = AscB(MidB(val0,i,1))
  14.            if t < &H80 Then
  15.                op = op & chr(t)
  16.            else
  17.                t1 = ascB(midB(val0,i+1,1))
  18.                op = op & chr(clng(t) * &H100 + cint(t1))
  19.                i = i + 1
  20.            end If
  21.        next
  22.        GB2312 = op
  23. end Function
复制代码
网页中的中文,下载后就是乱码。但是网页在网上浏览都是正常的。
作者: CrLf    时间: 2013-5-3 21:40

GB2312 函数的作用好像是把 GB2312 转为 GB2312?
碰到 charset 不等于 gbk 的页面是不是就出错了
作者: czjt1234    时间: 2013-5-3 22:27

  1. Set objMsxml2Xmlhttp = CreateObject("Msxml2.Xmlhttp")
  2. Set objAdodbStream   = CreateObject("Adodb.Stream")
  3. strUrl = "http://www.baidu.com/img/baidu_sylogo1.gif"
  4. With objMsxml2Xmlhttp    '下载数据
  5.   .Open "get", strUrl, False
  6.   .Send
  7.   BinTemp = .ResponseBody
  8. End With
  9. With objAdodbStream      '保存为文件
  10.   .Type = 1
  11.   .Mode = 3
  12.   .Open
  13.   .Write BinTemp
  14.   .SaveToFile "D:\baidu_sylogo1.gif"
  15.   .Close
  16. 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://www.bathome.net/) Powered by Discuz! 7.2