WinHTTP 的 responsetext 结果不可读

The result of responsetext by WinHTTP does not readable

提问人:Unforgiven 提问时间:9/30/2023 最后编辑:Unforgiven 更新时间:9/30/2023 访问量:63

问:

我想通过 VB6 通过 WinHTTP 在网站上读取 txt 形式的文件数据。代码运行良好,但结果不可读: 这是我的代码:

Dim HTTPRequest As WinHttp.WinHttpRequest

Set HTTPRequest = New WinHttp.WinHttpRequest
With HTTPRequest
    .Open "GET", "http://mywebsite/msg_app.txt", True

 .Send
    If .WaitForResponse(3) Then
        MsgBox .ResponseText

    Else
        MsgBox "Timed out after 3 seconds."
    End If
End With
Set HTTPRequest = Nothing

结果:

 U¾U??§U? ?³U??³??U?U? ?§?² ?·?±U? ?³?§U??? :
 U?U??©U?U?U? ?§U??©?§U? ?´?§?±?? U¾U?U? U¾U??§U??©U? ?¨?¯U?U? U¾?±?¯?§?®?? U??§U?U??§?? ?¨?± 
 ?§?±?²?´ ?§U??²U??¯U? U??±?§U?U? ?¯?±?¯U??¯ . ?¬U??? ?³U??§?±?´ U??·U??§ ?¯?±?®U??§?³?? ?®U??   
 ?±?§ ?¨U? ?´U??§?±U? U?U??±?§U? ?°U?U? U¾U??§U??© U??±U??§U?U??¯ .
 " U?U??· ???§ U¾?§U??§U? U?U???U? "

值得一提的是,主机中文件内的文本是波斯语

VB6 HTTP-获取 WinHTTP

评论

0赞 Jim Mack 10/1/2023
无论发生什么其他情况,VB6 MsgBox(或任何本机控件)都不支持 Unicode
0赞 Unforgiven 10/1/2023
谢谢,你能提出一个解决方案吗?@Jim麦克
0赞 Unforgiven 10/1/2023
我不认为问题在于 VB 中缺少 Unicode。因为当我使用 Inet 控件时,它会正确显示文本。我不应该使用标题吗?
0赞 StayOnTarget 10/1/2023
你从哪里得到你发布的文本作为结果?
1赞 wqw 10/13/2023
顺便说一句,您的文件在属性中为二进制字节数组。无需使用内容类型转换(即 utf8 -> Unicode)从服务器响应中获取字符串。只需使用“未受污染”并自己进行转换即可。.ResponseBody.ResponseText.ResponseBody

答: 暂无答案