VBS获取网页源码乱码,求好心人帮忙!

aab

以下VBS脚本GET获取网页源代码,但是获取时,除了网页编码是GBK,其他的例如UTF-8/GB2312返回的中文都是乱码,在网上搜索了天半也没找到解决的办法,好心人帮下忙吧,谢谢了!

1. Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
2. Call Msgbox(HttpGET("http://www.baidu.com/"))
   
3. 
   
4. Function HttpGET(URL)
   
5.         Call Http.Open("GET", URL, False)
   
6.         Call Http.Send()
   
7.         HttpGET = Http.ResponseText()
   
8. End Function

复制代码

wankoilz

这样行不行：

1. Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
2. MsgBox HttpGET("http://www.baidu.com/")
   
3. 
   
4. Function HttpGET(URL)
   
5.        Http.Open "GET", URL, False
   
6.        Http.Send()
   
7.        Http.ResponseText()
   
8.        With CreateObject("adodb.stream")
   
9.            .mode=3
   
10.            .type=2
    
11.            .charset="utf-8"
    
12.            .open
    
13.            .writeText(Http.ResponseText())
    
14.            .position=0
    
15.            .charset="gb2312"
    
16.            HttpGET=.readText()
    
17.            .close
    
18.        End With
    
19. End Function

复制代码

aab

回复 2# wankoilz


    测试了一下你改的代码,中文还是乱码,效果如下图:

wscript

应该用ResponseBody

1. Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
2. MsgBox HttpGET("http://www.baidu.com/")
   
3. 
   
4. Function HttpGET(URL)
   
5.     Http.Open "GET", URL, False
   
6.     Http.Send()
   
7.     Http.ResponseText()
   
8.     With CreateObject("adodb.stream")
   
9.         .mode=3
   
10.         .type=1
    
11.         .open
    
12.         .write Http.ResponseBody
    
13.         .position=0
    
14.         .type=2
    
15.         .charset="utf-8"
    
16.         HttpGET=.readText()
    
17.         .close
    
18.     End With
    
19. End Function

复制代码

话说with这种写法真难看。。

aab

回复 4# wscript


    多谢大家的帮忙,非常感谢你们,经过多次的测试和百度了你们给的写法,已经成功了,多谢2楼和4楼的兄弟!下面我把完整的代码也给大家分享一下!

1. Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
2. Set Stream = CreateObject("Adodb.Stream")
   
3. Call Msgbox(HttpGET("http://www.baidu.com/"))
   
4. 
   
5. Function HttpGET(URL)
   
6.         Call Http.Open("GET", URL, False)
   
7.         Call Http.Send()
   
8.         Call Stream.Open()
   
9.         Call Stream.WriteText(Http.ResponseBody())
   
10.         Stream.Position = 0
    
11.         Stream.Charset = "UTF-8"
    
12.         Stream.Position = 2
    
13.         HttpGET = Stream.ReadText()
    
14. End Function

复制代码

wankoilz

嗯，想起来了ResponseText()对utf-8支持不好！