Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Кодировка vba в POST запросах к vk api
 
Здравствуйте, уважаемые форумчане.

Помогите пожалуйста, пишу макрос для отправки людям трек-номеров их заказов. Все работает, кроме кодировки. В сообщении вк, правильно выглядят только английские буквы и цифры, перепробовал уже кучу вариантов. чтобы изменить кодировку, но ничего рабочего не смог найти.

Вот сообщение, которое приходит вк:
Цитата
?4??4??4??4??4??4??4??4??4??4??4??1?, ?4??4??4??5??4??4??1? ?4??4??4??4??4??4??4??4??4??1?,  ?4??4??5? ?4??4??4??1? ?4??4??4??4??1? - 45407105992354? 4??4??4??4??4??4??4??4??4??5?: ?4??4??4??4??4??4??4??4??1? ?4??4??4??4??1?  ?4??4??5??4??4??4??1? .?4??4??1? ?4??4??5??4??4??1? ?4??4??5? ?4??4??4??4??4??4??4??4??4??4??4??5?  ?4??4??4??5??4??4??1?:https://www.pochta.ru/tracking#45407105992354?4??4??4.. ?4??4??5? :)

Что и где нужно поменять или дописать, чтобы все работало?

Вот код макроса:
Код
Sub Макрос7_копирование()
    
    Dim out As string
        
    track_from_box = ActiveCell.Text            'берем номер с листа
    num_stroke = ActiveCell.Row                 'смотрим с какой он строке для дальнейшей работы с этой строкой
        
    stroke0 = "Здравствуйте, посылка отправлена, ваш трек номер - " + track_from_box                     '
    fio = "Получатель:  " + Cells(num_stroke, 9).Text + "."                                              ' формируем части строки
    site1 = "Вот ссылка для отслеживания посылки:"                                                       '
    site2 = "https://www.pochta.ru/tracking#" + track_from_box                                           '
    
    out = stroke0 & Chr(10) & fio & Chr(10) & site1 & Chr(10) & site2 & Chr(10) & Chr(10) & "Хорошего дня "             'готовая строка


    'ссылка для запроса к vk api

    url = "https://api.vk.com/method/messages.send?user_id=" + "*тут id пользователя вк*" + "&message=" + out + "&access_token=*тут код доступа*"

    'сам запрос

    With CreateObject("MSXML2.XMLHTTP")
    .Open "POST", url, False
    .Send Null
    Request = Null
    End With
  
End Sub
Изменено: xcuube - 23 Фев 2017 20:46:19
Страницы: 1
Читают тему (гостей: 1)