调用 wininet.dll 中的InternetReadFile 进行下载网页 为什么下载下来的网页里面字符会出现乱码！ 在线等！急！！！

Question

调用 wininet.dll 中的InternetReadFile 进行下载网页 为什么下载下来的网页里面字符会出现乱码！

Answer 1

stTotal = vbNullString
        hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        hOpenUrl = InternetOpenUrl(hOpen, surl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
        If hOpen <> 0 And hOpenUrl <> 0 Then
            Do While True
                bRet = InternetReadFile(hOpenUrl, stBuf, 512, lNumberOfBytesRead)
                If lNumberOfBytesRead > 0 And bRet = True Then
                    stTotal = stTotal & Trim(Mid$(stBuf, 1, lNumberOfBytesRead) & "")
                Else
                    Exit Do
                End If
            Loop
        End If
        If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
        If hOpen <> 0 Then InternetCloseHandle (hOpen)
就这样下载，有包含汉字就会出现乱码

Answer 2

网上找到的一个例子
http://www.vbzx.net/ArticleView/vbzx_Article_View_508.asp