
12.04.2010, 14:25
|
|
Новичок
Регистрация: 28.11.2009
Сообщений: 3
Провел на форуме: 6531
Репутация:
0
|
|
поиск дал результат...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
str,Data:TStringList;
ms: TMemoryStream;
begin
str:=TStringList.Create;
ms := TMemoryStream.Create;
str.Add('referer=');
str.Add('UserName=user');
str.Add('PassWord=123456');
str.Add('tst=');
str.Add('CookieDate=1');
try
IdHTTP1.Post('http://forum.buhgalter.kz/index.php?act=Login&CODE=01', str, ms);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms);
Data.Add('entered_name=sono');
Data.Add('msg_title=ntvf');
Data.Add('Post=nnttrrccnn');
IdHTTP1.Post('http://forum.buhgalter.kz/index.php?act=msg', Data);
finally
ms.Free; str.Free;
end;
end;
Теперь стоит задача чтоб отправить личное сообщения пользователю
Код:
http://forum.buhgalter.kz/index.php?act=Msg&CODE=4&MID=10442
POS
Код:
http://forum.buhgalter.kz/index.php?act=msg
removeattachid 0
OID 0
act Msg
CODE 04
MODE 01
attach_post_key 3230bccc89b5ab64097991c2179594a9
auth_key 4187a5b6b0a6a229563004f485550342
MAX_FILE_SIZE 512000
entered_name Sono
carbon_copy
msg_title тема
ed-0_wysiwyg_used 0
editor_ids[] ed-0
Post текст
откуда беруться
Код:
attach_post_key 3230bccc89b5ab64097991c2179594a9
auth_key 4187a5b6b0a6a229563004f485550342
|
|
|