Столкнулся с такой проблемой, в интернете ответа не нашел(
нужно передать данные на скрипт PHP методом POST.
Ну с этим я справился, подключаю рефференс Microsoft WinHTTP Services, version 5.1 пишу код
- Код: Выделить всё
Private Sub Command1_Click()
Dim http As WinHttpRequest
Set http = New WinHttpRequest
http.Open "POST", "мой скрипт.php", False 'Replace LINK with the php page who will get data .
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=привет"
RichTextBox1.Text = http.ResponseText
End Sub
мой скрипт.php тупо выводит полученные данные
- Код: Выделить всё
<?php
echo $_POST['data'];
?>
и скрипт получает вот что. i»???N??????µN? вместо "привет"
проблема в кодировке в момент отправки POST запроса ну или в момент его получения на сервере,
как решить эту проблему?
вот с этим я тоже игрался, не помогло
- Код: Выделить всё
http.SetRequestHeader "Accept-Charset", "Windows-1251"
