[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]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
复制代码
网页中的中文,下载后就是乱码。但是网页在网上浏览都是正常的。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

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

TOP

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

评分人数


QQ 20147578

TOP

回复 3# czjt1234


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

TOP

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

QQ 20147578

TOP

回复 5# czjt1234


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

TOP

报什么错啊,哪个组件被精简掉了?

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

QQ 20147578

TOP

回复 3# czjt1234


    感谢

TOP

返回列表