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

@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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@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