Отправка сообщений

[V1rt1L3R]

Не отправляются сообщения в группу на сайте с движком WordPress. После нажатия на кнопку выскакивает сообщение

[Ссылки могут видеть только зарегистрированные пользователи. ]

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdBaseComponent, IdCookieManager;

type
  TWPAction = (awLogin, awLoginAndPost);

  TWPLoginThread = class(TThread)
  end;

type
  TForm1 = class(TForm)
    PanelTestNabor: TPanel;
    ButtonCheckAuthorize: TButton;
    Memo1: TMemo;
    PanelStatus: TPanel;
    IdCookieManager: TIdCookieManager;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    procedure ButtonCheckAuthorizeClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  postW: TStringList;
  mes: string;
begin
idHTTP1.HandleRedirects:= true;
postW := TStringList.Create;
    try
    // Параметры Отправки сообщения
    postW.Add('action=post_update');
    postW.Add('_wp_nonce_post_update=c12982fb06');
    postW.Add('cookie=PHPSESSID%3Ddc59d5088d29b61f12a275a2f9e16852%3B%20__utma%3D1.818530636.1326661763.1327504303.1327512502.43%3B%20__utmc%3D1%3B%20__utmz%3D1.1326661763.1.1.utmcsr%3D(direct)%7Cutmccn%3D(direct)%7Cutmcmd%3D(none)%3B%20wordpress_test_cookie%3DWP%2BCookie%2Bcheck%3B%20wp-settings-247%3Deditor%253Dtinymce%3B%20wp-settings-time-247%3D1327514563%3B%20bp-activity-oldestpage%3D1');
    postW.Add('content='+Edit4.Text);
    postW.Add('object=groups');
    postW.Add('item_id=54');
    // Отправляем данные
    mes:= IdHTTP1.post(Edit1.Text+'wp-load.php', postW);
    // Результат
    if Pos('logout', mes) > 0 then
      ShowMessage('YES!')
    else
      ShowMessage('FUCK!');
  except
    postW.Free;
  end;
end;

procedure TForm1.ButtonCheckAuthorizeClick(Sender: TObject);
var
  post: TStringList;
  result: string;
begin
idHTTP1.AllowCookies:= true;
idHTTP1.HandleRedirects:= true;
idHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded';
idHTTP1.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
post := TStringList.Create;
  try
    // Параметры
    post.Add('log='+Edit2.Text); //Login
    post.Add('pwd='+Edit3.Text); //Password
    post.Add('rememberme=forever');
    post.Add('wp-submit=Войти');
    post.Add('redirect_to='+Edit1.Text);
    post.Add('testcookie=1');
    // Отправляем данные
    result:= IdHTTP1.post(Edit1.Text+'wp-login.php', post);
    // Результат
    if Pos('action=logout', result) > 0 then
      ShowMessage('Авторизация прошла успешно!')
    else
      ShowMessage('Авторизация Провалилась!');
  except
    post.Free;
  end;
Memo1.Lines.Text:= result;
end;

end.

[angryJC]

код "403 Forbidden" говорит что у тебя нет прав доступа к данным\странице

[VeTaL_UA]

2 возможные причины:
1)HandleRedirect
2)UserAgent

[V1rt1L3R]

Подскажите пожалуйста как я могу это исправить? мне просто нужно что бы оно отправляло сообщения в группу в WordPress!

[VeTaL_UA]

Цитата: Сообщение от VeTaL_UA 1)HandleRedirect

IdHTTP1.HandleRedirect:=True;

Цитата: Сообщение от VeTaL_UA 2)UserAgent

IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';

[V1rt1L3R]

Оно отправляет сообщение в виде " ?????? ????? ?????, ?? ?????" как сделать что бы писало русским текстом, а не только англ?
И на сайте как я понял, вот какая кодировка <meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />

Цитата: procedure TForm1.Button1Click(Sender: TObject); var postW: TStringList; mes: string; begin idHTTP1.AllowCookies:= true; IdHTTP1.HandleRedirects:=True; idHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded'; IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'; postW := TStringList.Create; try // Параметры Отправки сообщения postW.Add('whats-new='+Memo2.Text); postW.Add('submit=Опубликовать'); postW.Add('whats-new-post-object=groups'); postW.Add('whats-new-post-in=54'); postW.Add('_wpnonce_post_update=ab974301cc'); postW.Add('_wp_http_referer=/groups/mir-anegdotov/'); // Отправляем данные mes:= IdHTTP1.post(Edit1.Text+'activity/post/', postW); // Результат if Pos('logout', mes) > 0 then ShowMessage('YES!') else ShowMessage('FUCK!'); except postW.Free; end; end;

[VeTaL_UA]

Цитата: Сообщение от V1rt1L3R idHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded';

Попробуй убрать.

[V1rt1L3R]

не помогло

[VeTaL_UA]

Цитата: Сообщение от V1rt1L3R postW.Add('_wpnonce_post_update=ab974301cc');

Мне кажется, что выделенное нужно парсить

[V1rt1L3R]

ну вообще да... но я через чарлез смотрю оно одинаковое сейчас постоянно... ну если можешь подсказать, то скажи как парсить)) но пока что и с кодировкой нужно разобраться))

[VeTaL_UA]

Цитата: Сообщение от V1rt1L3R но я через чарлез смотрю оно одинаковое сейчас постоянно...

Значит не надо парсить

Цитата: Сообщение от V1rt1L3R но пока что и с кодировкой нужно разобраться))

Какая версия делфи? 2010? ХЕ? ХЕ2?

[V1rt1L3R]

CodeGear 2009

Добавлено через 11 часов 4 минуты
Что никто не поможет?

[V1rt1L3R]

Проблему решил установив CODEGEAR RAD 2010