1樓：匿名使用者
2樓：匿名使用者
應該是要轉碼，你看一下你請求的**用的是什麼編碼，再適當的調整一下，你這樣我也不太清除是什麼情況
為什麼winhttp的responsetext屬性返回亂碼
vb文字檔案讀入中文成了亂碼，求助！
3樓：太平洋電腦網
解壓檔案出現中文亂碼怎麼辦解決辦法
4樓：匿名使用者
vb天生就是unicode的命,除非相容ansi,不要使用lenb等後邊帶b的命令命令
如何解決 vb 獲取utf8 顯示亂碼的問題
5樓：匿名使用者
vb6.0可宣告一個object 資料型別，使用它的charset屬性為"utf8"，可解決textbox控制元件中utf8文字顯示亂碼問題。
object 資料型別，object 變數儲存為 32 位（4
個位元組）的地址形式，其為物件的引用。利用 set 語句，宣告為 object
的變數可以賦值為任何物件的引用。
charset 屬性，設定或者返回字型中所用字符集。
實現**：
private sub command1_click() '開啟utf-8文字
dim ados as object
commondialog1.filename = ""
commondialog1.filter = "文字檔案（*.txt）|*.txt|"
commondialog1.action = 1
str = commondialog1.filename
set ados = createobject("adodb.stream")
with ados
.charset = "utf-8"
.type = 2
.open
.loadfromfile str
text1.text = .readtext
.close
end with
set ados = nothing
end sub
6樓：勤採楓
一般遇到這種問題有以下幾種情況：
1.呼叫檔案引數不正確(可以多試幾次呼叫程式的引數型別）2.呼叫檔案返回值不正確（逐步除錯）
3.子函式引數型別不正確。
總之一步一步的進行除錯，看看究竟是哪一步出錯就可以了。
7樓：聖鸞
'-----------utf8轉unicode編碼
private declare function multibytetowidechar lib "kernel32" (byval codepage as long, byval dwflags as long, byref lpmultibytestr as any, byval cchmultibyte as long, byval lpwidecharstr as long, byval cchwidechar as long) as long
private const cp_utf8 = 65001
'purpose:convert utf8 to unicode
public function utf8_decode(byval sutf8 as string) as string
dim lngutf8size as long
dim strbuffer as string
dim lngbuffersize as long
dim lngresult as long
dim bytutf8() as byte
dim n as long
if lenb(sutf8) = 0 then exit function
on error goto endfunction
bytutf8 = strconv(sutf8, vbfromunicode)
lngutf8size = ubound(bytutf8) + 1
on error goto 0
lngbuffersize = lngutf8size * 2
strbuffer = string$(lngbuffersize, vbnullchar)
'translate using code page 65001(utf-8)
lngresult = multibytetowidechar(cp_utf8, 0, bytutf8(0), _
lngutf8size, strptr(strbuffer), lngbuffersize)
'trim result to actual length
if lngresult then
utf8_decode = left$(strbuffer, lngresult)
end if
endfunction:
end function
'把你上面獲取的內容轉一下就行，比如text1.text=utf8_decode(strresponse)
還可以加多一句instr(1, strresponse, "charset=utf-8") > 0判斷是否是utf8編碼再執行，不是utf8的就直接顯示。 還有些網頁編碼那裡是大寫的，要這樣寫instr(1, strresponse, "charset=utf-8") > 0
vb6裡面winsock getdata中文亂碼問題，高手幫忙！
8樓：匿名使用者
private sub winsock1_dataarrival(byval bytestotal as long)
dim bb(1 to bytestotal) as bytedim dd as string
winsock1.getdata bb()dd = strconv(bb(), vbfromunicode)end sub
mybatis怎麼返回null值返回型別是個ma
說明沒有找到相應的資料 mybatis 怎麼 返回 null 值 返回型別 是個map 建立mybatis config.xml123456 mybatis 怎麼 返回 null 值 返回型別 是個map 1 建立configuration.xml 在這種配置中，age將以null值對映到map中。...
C引用返回值與返回指標
int d c 也就是 d就等效於c了啊 也就是return d 就等效於 return c d是指標d指向的資料，你的寫法中，指標d指向了引用c的位置，其實也就是傳入實參a的地址空間上的資料，故而是一直存在且可以正確返回的。如果你在k 函式內部不是使用傳輸的c 也就是換個變數名，什麼都行 那自然就...
c HttpWebResponse判斷返回請求的問題
暈倒，搞個功能貼那麼長，其實很簡單。for int i 0 i listbox1.items.count i elseelse res.close req.abort system.threading.thread.sleep 500 注意一個問題，就是網頁的編碼問題，可能你需要調整new syst...