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

[V1rt1L3R]

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

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

unit MainForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] IdBaseComponent, IdCookieManager;

type
TWPAction = (awLogin, awLoginAndPost);

TWPLoginThread = class(TThread)
end;

type
TForm1 = class(TForm)
PanelTestNabor: TPanel;
ButtonCheckAuthorize: TButton;
Memo1: TMemo;
PanelStatus: TPanel;
IdCookieManager: TIdCookieManager;
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
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
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] true;
postW := TStringList.Create;
try
// Параметры Отправки сообщения
postW.Add('action=post_update');
postW.Add('_wp_nonce_post_update=c12982fb06');
postW.Add('cookie=PHPSESSID%3Ddc59d5088d29b61f12a2 75a2f9e16852%3B%20__utma%3D1.818530636.1326661763. 1327504303.1327512502.43%3B%20__utmc%3D1%3B%20__ut mz%3D1.1326661763.1.1.utmcsr%3D(direct)%7Cutmccn%3 D(direct)%7Cutmcmd%3D(none)%3B%20wordpress_test_co okie%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:= Id[Ссылки могут видеть только зарегистрированные и активированные пользователи](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
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] true;
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] true;
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] '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:= Id[Ссылки могут видеть только зарегистрированные и активированные пользователи](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]

1)HandleRedirect
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
2)UserAgent
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';

[V1rt1L3R]

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

procedure TForm1.Button1Click(Sender: TObject);
var
postW: TStringList;
mes: string;
begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] true;
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'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_[Ссылки могут видеть только зарегистрированные и активированные пользователи]');

// Отправляем данные
mes:= Id[Ссылки могут видеть только зарегистрированные и активированные пользователи](Edit1.Text+'activity/post/', postW);
// Результат
if Pos('logout', mes) > 0 then
ShowMessage('YES!')
else
ShowMessage('FUCK!');
except
postW.Free;
end;
end;

[VeTaL_UA]

id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
Попробуй убрать.

[V1rt1L3R]

не помогло

[VeTaL_UA]

postW.Add('_wpnonce_post_update=ab974301cc');
Мне кажется, что выделенное нужно парсить ;)

[V1rt1L3R]

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

[VeTaL_UA]

но я через чарлез смотрю оно одинаковое сейчас постоянно...
Значит не надо парсить :)
но пока что и с кодировкой нужно разобраться))
Какая версия делфи? 2010? ХЕ? ХЕ2?

[V1rt1L3R]

CodeGear 2009

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

[V1rt1L3R]

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