tt = BytesToBstr(.ResponseBody, "UTF-8") Function BytesToBstr(strBody, CodeBase) "使用Adodb.Stream物件提取字串 Dim objStream On Error Resume Next Set objStream = CreateObject("Adodb.Stream") With objStream .Type =
2 "字串 .Charset = CodeBase "資料的編碼格式 BytesToBstr = .ReadText "得到字串 End With objStream.Close Set objStream = Nothing If Err.Number <> 0 Then BytesToBstr = "" On Error GoTo 0End Function
tt = BytesToBstr(.ResponseBody, "UTF-8") Function BytesToBstr(strBody, CodeBase) "使用Adodb.Stream物件提取字串 Dim objStream On Error Resume Next Set objStream = CreateObject("Adodb.Stream") With objStream .Type =
1 "二進位制 .Mode =
3 "讀寫 .Open .Write strBody "二進位制陣列寫入Adodb.Stream物件內部 .Position = 0 "位置起始為0 .Type =
2 "字串 .Charset = CodeBase "資料的編碼格式 BytesToBstr = .ReadText "得到字串 End With objStream.Close Set objStream = Nothing If Err.Number <> 0 Then BytesToBstr = "" On Error GoTo 0End Function