求助，关于抓包乱码

第Ⅸ夜 · 发表于 2014-7-15 16:41

本帖最后由第Ⅸ夜于 2014-7-15 17:04 编辑

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

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

第Ⅸ夜 · 发表于 2014-7-15 17:05

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

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

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 BytesToBstr(.responsebody, "GB2312")
IE.body.innerhtml = .responsetext
End With
End Sub
Function BytesToBstr(strBody, CodeBase) '使用Adodb.Stream对象提取字符串
Dim objStream
On Error Resume Next
Set objStream = CreateObject("Adodb.Stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
End With
objStream.Close
Set objStream = Nothing
If Err.Number <> 0 Then BytesToBstr = ""
On Error GoTo 0
End Function

复制代码

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

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

第Ⅸ夜 · 发表于 2014-7-15 21:58

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

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

suwenkai · 发表于 2014-7-15 22:37

其实这样也可以的。

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 StrConv(.responsebody, vbUnicode)
IE.body.innerhtml = StrConv(.responsebody, vbUnicode)
End With
End Sub

复制代码

第Ⅸ夜 · 发表于 2014-7-16 13:34

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

这个好……简便的多

		自动登录	找回密码
密码			免费注册

[求助] 求助，关于抓包乱码

评分

评分

[求助] 求助，关于抓包 乱码

评分

评分

[求助] 求助，关于抓包乱码