Set http = CreateObject("Microsoft.XMLHTTP")
    With http
    .open "GET", sUrl, False
    .send
    End With
        
    On Error Resume Next
    If http.Status <> 200 Then
        GetUrlContent = ""
    Else
        GetUrlContent = StrConv(http.responseBody, vbUnicode)
    End If
    Set http = Nothing
就是eBay的网页,内容如下,请高手帮我解决一下,谢谢:
<html><head><META http-equiv='Content-Type' content='text/html;charset=UTF-8'><meta http-equiv='Content-Type' content='text/html; charset=UTF-8'><title>eBay 鏄撹叮搴楅摵: 鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝佺瓑鏁板崄涓囧湪绾垮晢鍝佺儹鍗栦腑, 鍏堝埌鍏堝緱锛?/title><meta name='description' content='eBay 鏄撹叮鍟嗗簵: 鍙岄奔鍟嗗煄: 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧 绛夎秴鍊间綆浠峰晢鍝佸簲鏈夊敖鏈夛紒'><meta name='keywords' content='鍙岄奔鍟嗗煄, 钀ュ吇淇濆仴鍝? 鐢熸椿鏃ョ敤鍝? 鏈簵鏃犲埄娑﹀晢鍝? 鍐鐑攢浜у搧, 澶鎺ㄨ崘鍟嗗搧, the face shop'><meta name='XslBuildInfo' content='2006-12-18 18:18:50,,, vo.rusqv60;,RcmdId StoreFront,RlogId p4pqiufvoiwi%3C%3Dsm%2Bppqtt32%3E-10fbc87d566'><meta name='Arg1' content='vo.rusqv60;'>

解决方案 »

  1.   

    UTF-8编码不能直接用unicode转换的
    unicode是UTF-32
      

  2.   

    偶使用Apache2 测试过 UTF-8 的内容,返回使用 http.responseText  是正常的文字。
      
    --------------------------------------------------------------
    程序,犹如人生。
      

  3.   

    还有一种方法不太好用stream的charset设置一下
      

  4.   

    stream方法已经测试,不行VirtualDesktop:有什么办法吗?
      

  5.   

    请参看http://community.csdn.net/Expert/topic/5045/5045535.xml?temp=.7465021
    http://community.csdn.net/Expert/topic/4983/4983083.xml?temp=.3987848