[求助]Msxml2.XMLHTTP问题

hyy514

Sub fff()
Dim bj4 As Object
Set bj4 = CreateObject("Msxml2.XMLHTTP")
bj4.Open "GET", "http://www.BAIDU.COM", False
bj4.send ""
 Debug.Print bj4.responseText
 bj4.abort
End Sub

为什么用Msxml2.XMLHTTP的responseText获取网页源码,所有的中文字都

成了"?" 号?

什么原因?

northwolves

从UTF-8格式转换成unicode格式即可

hyy514

谢谢，狼版可以给个示例吗

winland

这样转换一下。

StrConv(bj4.responseBody, vbUnicode)

northwolves

供参考:

http://topic.csdn.net/u/20080518/17/7f6213b5-1c33-4186-901c-93666d0d30ad.html

hyy514

谢谢狼版，谢谢winland

还有个问题：

原帖：http://club.excelhome.net/viewthread.php?tid=289996&replyID=&skin=0

QUOTE:

以下是引用northwolves在2008-1-2 18:07:08的发言：

分析下面两个网页的源代码:

http://61.129.65.116/lottery/lotteryhtm/bulletin/14/select.htm

http://61.129.65.116/lottery/lotteryhtm/bulletin/14/bot1020.htm

请问题狼版，winland，这二个网址是如何在原网页http://lottery.eastday.com/eastday/node4091/node22824/node53161/index.html

中分析得到的？

[此贴子已经被作者于2008-7-16 22:00:43编辑过]

winland

QUOTE:

以下是引用northwolves在2008-7-16 8:47:19的发言：

供参考:

http://topic.csdn.net/u/20080518/17/7f6213b5-1c33-4186-901c-93666d0d30ad.html

多谢狼版。发现StrConv函数在英文版的Office中不能正确转换中文。

之前用的MultiByteToWideChar方法，原来以为responseBody属性是Variant类型，因此用了十分笨的方法一个一个转换到另外一个Byte数组中，汗一个。这个笨方法在文件非常大的时候会非常之慢，我也一直觉得应该不会是这样的。

从上面的链接中发现原来可以直接这样赋值给一个Byte数组，多谢多谢。