Как правильно считать текст в VBA?

Question

[Ai Lab]

Использую следующую функцию:

Option Explicit
Function GetData(ByVal api As String, ByVal content As String)
Restart: Dim sUrl As String
sUrl = "http://127.0.0.1/api/" + api
Dim oRequest As Object
Dim sResult As String
Dim sResult2 As String
On Error GoTo Err_DoSomeJob
 
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
With oRequest
    .Open "GET", sUrl, True
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=windows-1251"
    .Send content
    .WaitForResponse
    sResult = .ResponseText
    Debug.Print sResult
    sResult2 = .Status
    Debug.Print sResult2
End With
 
Exit_DoSomeJob:
    On Error Resume Next
    GetData = sResult
    Set oRequest = Nothing
    If sResult2 <> "200" Then
        GoTo Restart
    End If
    Exit Function
   
Err_DoSomeJob:
    'MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_DoSomeJob
End Function

Работает отлично, но текст который она возвращает выглядит некорректно, как будто с пробелами между символов, но по факту между ними ничего нет, вероятно это как то связано с кодировкой, но пробовал отправлять в двух разных и получаю все равно одно и тоже, может кто знает как с таким бороться?

Суть макроса следующая, отправляется запрос на самопальный http сервер, который получает текст и параметры из url и каким либо образом его меняет и отправляет обратно, все хорошо, но вот приходит не совсем то что отправлял.

Comments

[h8nor]

Почему Вы выбрали объект "WinHttp.WinHttpRequest.5.1", а не какой-нибудь другой?

[Ai Lab]

Дѣаволъ: Для чтения часто меняющихся данных динамических WEB - страниц наиболее подходит вариант 7. WinHttp.WinHttpRequest.5.1. а вообще это просто один из наиболее быстрых вариантов, мне нужно делать как можно больше запросов в секунду, с этим удалось разогнать до 800 в секунду с сервером на nodejs

[h8nor]

Нашёл немного инфы о других вариантах.

Дело в куках и автоматическом редиректе. Msxml.XmlHttp автоматически их включает, а HttpWebRequest требует явных приседаний.

В целом компонент понравился (заголовки передаёт .SetRequestHeader, устанавливает задержку для ответа .WaitForResponse в сек, умеет вкл/откл proxy). Иногда объект рушится, и запрос ответ после запроса прочитать невозможно. Зато проблем с редиректом в win10 нет. Реализовал другую проверку для этого исключения:

On Error Resume Next
  If winHttp Is Nothing Then
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
  Else
    If Not winHttp.Status = 200 Then
      Set winHttp = Nothing
      End 'or MsgBox "Connection is broken", vbCritical: Exit Function
    End If
  End If

Процедуру получения запроса передаю в планировщик basic-а Application.OnTime Now + TimeSerial(0, 0, 10).

Answer 1

[Александр Ананьев]

Видимо текст приходит в кодировке Unicode. Попробуйте переконвертировать текст с помощью StrConv