Не удается добавить пост на стену

@Muhammad97 · Регистрация: 10.11.2013

Студворк — интернет-сервис помощи студентам

Пытаюсь отправить пост на стену:

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<?php
 
function wparse($s, $starts, $ends){
   $result=substr($s, strpos($s, $starts)+strlen($starts), strpos($s, $ends)-strpos($s, $starts)-strlen($starts));
   return $result;
}
 
function GET($url)
{
  $useragent='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3';
 
 
  $ch = curl_init();
  curl_setopt($ch, CURLOPT_URL, $url);
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
  curl_setopt($ch, CURLOPT_HEADER, true);
  curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
  curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 0);
  $result=curl_exec($ch);
curl_close($ch);
  
  return $result;
}
 
  $login = 'xxx';
  $pass = '000';
 
  $url = 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='.$login.'&password='.$pass.'&captcha_key=&captcha_sid=';
 
  $response = GET($url);
 
  echo $response.'<br>';
  
  $token = wparse($response, '"access_token":"', '","expires_in"');
 
  echo $token.'<br>';
 
  $url = 'https://api.vk.com/method/wall.post?owner_id=-xxxxxx&message=QWERTY&attachments=photo210154979_33207xxxx&access_token='.$token;
 
  $response = GET($url);
 
  echo $response;
 
 
?>

Парсит токен, но не постит. Этот же запрос в Delphi работает нормально:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
function GET(url: string): string;
var
  HTTP : THTTPSend;
  response: TStringList;
begin
  HTTP := THTTPSend.Create;
 
  if HTTP.HTTPMethod('GET',url) then
  begin
    response := TStringList.Create;
    response.LoadFromStream(http.Document);
    result:=response.Text;
  end
  else
  result:='Error';
 
  HTTP.Headers.Clear;
  HTTP.Free;
end;
 
...
 
login:=Edit1.Text;
  pass:=Edit2.Text;
 
  url:='https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+login+'&password='+pass+'&captcha_key=&captcha_sid=';
 
  response:=GET(url);
 
  Memo1.Lines.Add(response);
 
  token:=Cut(response, '{"access_token":"', '","expires_in":', 1);
  Memo1.Lines.Add(token);
 
  //С вложением
  //url:='https://api.vk.com/method/wall.post?owner_id=-xxxxxx&message=QWERTY&attachments=photo210154979_33207xxxx&access_token='+token;
 
  response:=GET(url);
 
  Memo1.Lines.Add(response);

@Tatikoma · 09.07.2014, 10:38

Muhammad97, а какой ответ приходит от сервера?

@Muhammad97 · 09.07.2014, 12:12 **[ТС]**

Проблема решена, дело было в домене, нужно использовать api.vkontakte.ru, а не vk.com

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Tatikoma F́́́́́́́ŕ́́́́́́́é́́́ ́ak 260 / 224 / 109 Регистрация: 07.07.2014 Сообщений: 965
	09.07.2014, 10:38
	Muhammad97, а какой ответ приходит от сервера? 0

@Muhammad97 10 / 10 / 2 Регистрация: 10.11.2013 Сообщений: 238
	09.07.2014, 12:12 [ТС]
	Проблема решена, дело было в домене, нужно использовать api.vkontakte.ru, а не vk.com 0