用Wininet API读取的Unicode网页内容为乱码
代码:
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
hInternet = InternetOpenUrl(hSession, sUrl, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
InternetCloseHandle hInternet
InternetCloseHandle hSession
(sUrl的网页,charset为UTF-8,用IE浏览时,编码选择为Unicode可正常显示中文,选择成GB2312会出现乱码)
现在用上述代码,得到的sData里的中文都是乱码,比如"媒体"会变成"濯掍綋"
即使用StrConv转换也没有:sData = StrConv(sData, vbFromUnicode)
有没有谁知道这是什么原因?
谢谢