求助，关于抓包 乱码

第Ⅸ夜

Sub 测试()
Dim IE As Object,URL
    Set IE = CreateObject("htmlfile")
        URL = "http://222.132.190.46/WebIssue/ExternalServer/Samples/price.asp?QueryItem=%BD%F1%C8%D5%D7%A1%D5%AC%BE%F9%BC%DB"
        With CreateObject("msxml2.xmlhttp")
            .Open "get", URL, False
            .send
            Debug.Print .responsetext
            IE.body.innerhtml = .responsetext
        End With
End Sub

源码乱码是什么原因啊？在浏览器里面看，不乱码的啊……

第Ⅸ夜

好像是gb2312的问题，怎么转码啊

战战如疯

1. Sub 测试()
   
2. Dim IE As Object, URL
   
3.     Set IE = CreateObject("htmlfile")
   
4.         URL = "http://222.132.190.46/WebIssue/ExternalServer/Samples/price.asp?QueryItem=%BD%F1%C8%D5%D7%A1%D5%AC%BE%F9%BC%DB"
   
5.         With CreateObject("msxml2.xmlhttp")
   
6.             .Open "get", URL, False
   
7.             .send
   
8.             Debug.Print BytesToBstr(.responsebody, "GB2312")
   
9.             IE.body.innerhtml = .responsetext
   
10.         End With
    
11. End Sub
    
12. Function BytesToBstr(strBody, CodeBase)                        '使用Adodb.Stream对象提取字符串
    
13.     Dim objStream
    
14.     On Error Resume Next
    
15.     Set objStream = CreateObject("Adodb.Stream")
    
16.     With objStream
    
17.         .Type = 1                                                            
    
18.         .Mode = 3                                                            
    
19.         .Open
    
20.         .Write strBody                                                     
    
21.         .Position = 0                                                        
    
22.         .Type = 2                                                         
    
23.         .Charset = CodeBase                                          
    
24.         BytesToBstr = .ReadText                                    
    
25.     End With
    
26.     objStream.Close
    
27.     Set objStream = Nothing
    
28.     If Err.Number <> 0 Then BytesToBstr = ""
    
29.     On Error GoTo 0
    
30. End Function
    

复制代码

战战如疯

第9行的代码也要相应改过来

第Ⅸ夜

战战如疯 发表于 2014-7-15 17:12

哇塞，这小和尚太帅气了，爱死你了

suwenkai

其实这样也可以的。

1. Sub 测试()
   
2. Dim IE As Object, URL
   
3.     Set IE = CreateObject("htmlfile")
   
4.         URL = "http://222.132.190.46/WebIssue/ExternalServer/Samples/price.asp?QueryItem=%BD%F1%C8%D5%D7%A1%D5%AC%BE%F9%BC%DB"
   
5.         With CreateObject("msxml2.xmlhttp")
   
6.             .Open "get", URL, False
   
7.             .send
   
8.             Debug.Print StrConv(.responsebody, vbUnicode)
   
9.             IE.body.innerhtml = StrConv(.responsebody, vbUnicode)
   
10.         End With
    
11. End Sub

复制代码

第Ⅸ夜

suwenkai 发表于 2014-7-15 22:37
其实这样也可以的。

这个好……简便的多