代码:
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)有没有谁知道这是什么原因?
谢谢
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)有没有谁知道这是什么原因?
谢谢
关于 UTF-8 见:
http://www.linuxfans.org/nuke/modules.php?name=News&file=article&op=view&sid=1749
ByVal sAgent As String, ByVal lAccessType As Long, _
ByVal sProxyName As String, ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
ByVal hInet As Long) As Integer
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000
Dim sPrivate Function GetUrlFile(stUrl As String) As String
Dim lgInternet As Long, lgSession As Long
Dim stBuf As String * 1024
Dim inRes As Integer
Dim lgRet As Long
Dim stTotal As String
stTotal = vbNullString
lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0)
If lgSession Then
lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
If lgInternet Then
Do
inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
If (lgRet = 1024) Then
stTotal = stTotal & stBuf
Else
stTotal = stTotal & StrConv(LeftB$(StrConv(stBuf, vbFromUnicode), lgRet), vbUnicode)
End If
Loop While (lgRet <> 0)
'
End If
inRes = InternetCloseHandle(lgInternet)
End If
GetUrlFile = stTotal
End Function
Private Sub Command1_Click()
Debug.Print GetUrlFile("http://www.163.com")
End Sub