16.04.2010, 18:32
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
slesher
idhttp + idcookiemanager + jpeg
у мну работает, можешь предпоследнию строчку расскоментировать, что бы смотреть резултат...
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
post: tstringlist;
captchatext, result: string;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
post:=tstringlist.Create;
http.Get('http://sms.idknet.com/code.php', ms);
ms.SaveToFile('captcha_temp.jpeg');
ms.Clear;
captcha.Picture.LoadFromFile('captcha_temp.jpeg');
InputQuery('Captcha','Enter captcha',captchatext);
post.Add('prefix=777');
post.Add('txtAddr=13212');
post.Add('txtSM=test');
post.Add('sum=155');
post.Add('code='+captchatext);
result:=http.Post('http://sms.idknet.com/sms.php',post);
if AnsiPos('ОТПРАВЛЕНО', result) > 0 then
showmessage('Отправлено') else showmessage('ХУЙ!');
//showmessage(result);
//cookie.CookieCollection.Clear;
ms.Free;
end;
Последний раз редактировалось HakaR; 16.04.2010 в 18:37..
|
|
|