[问题求助] [已解决]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


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

522235677

回复 5# czjt1234


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

522235677

回复 3# czjt1234


    感谢