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

522235677

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

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

czjt1234

1. Set objMsxml2Xmlhttp = CreateObject("Msxml2.Xmlhttp")
   
2. Set objAdodbStream   = CreateObject("Adodb.Stream")
   
3. 
   
4. strUrl = "http://www.baidu.com/img/baidu_sylogo1.gif"
   
5. 
   
6. With objMsxml2Xmlhttp    '下载数据
   
7.   .Open "get", strUrl, False
   
8.   .Send
   
9.   BinTemp = .ResponseBody
   
10. End With
    
11. 
    
12. With objAdodbStream      '保存为文件
    
13.   .Type = 1
    
14.   .Mode = 3
    
15.   .Open
    
16.   .Write BinTemp
    
17.   .SaveToFile "D:\baidu_sylogo1.gif"
    
18.   .Close
    
19. End With

复制代码

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

522235677

回复 3# czjt1234


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

czjt1234

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

522235677

回复 5# czjt1234


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

czjt1234

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

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

522235677

回复 3# czjt1234


    感谢