xcuube (Все сообщения пользователя)

http.send c двумя параметрами (post запрос)

xcuube Пользователь Сообщений: 4 Регистрация: 23.02.2017	# 25.02.2017 19:17:32 Игорь, а вы случайно не знаете, как передать туда строку, которая генерируется в процессе выполнения макроса?
	Перейти

http.send c двумя параметрами (post запрос)

xcuube Пользователь Сообщений: 4 Регистрация: 23.02.2017	# 25.02.2017 19:13:00 Игорь, спасибо огромное!
	Перейти

http.send c двумя параметрами (post запрос)

xcuube

Пользователь

Сообщений: 4 Регистрация: 23.02.2017

25.02.2017 18:18:06

Здравствуйте, есть код, который отправляет данные на сайт, на php скрипт.

Код:

Код

Private Sub Command1_Click()

Dim http As WinHttpRequest
Set http = New WinHttpRequest
http.Open "POST", "http://mysite.ru/test.php", False 
 
http.SetRequestHeader "User-Agent", "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51"
http.SetRequestHeader "Accept-Charset", "UTF-8"
http.SetRequestHeader "Cache-Control", "no-cache"
http.SetRequestHeader "Keep-Alive", "300"
http.SetRequestHeader "Connection", "Keep-Alive"
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 
http.Send (["data=324"])

MsgBox (http.ResponseText)
 
End Sub

Подскажите, пожалуйста, как передать сюда два параметра?

Код
http.Send (["data=324"])

Перейти

Кодировка vba в POST запросах к vk api

xcuube

Пользователь

Сообщений: 4 Регистрация: 23.02.2017

23.02.2017 15:49:37

Здравствуйте, уважаемые форумчане.

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

Вот сообщение, которое приходит вк:

Цитата

?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.02.2017 20:46:19

Перейти