HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

l2top_vote своими руками [Delphi]
  #1  
Старый 10.04.2010, 22:59
Ss[x]dD
Познающий
Регистрация: 07.06.2009
Сообщений: 30
С нами: 8909709

Репутация: 0
По умолчанию l2top_vote своими руками [Delphi]

Вот код на получение капчи

procedure TForm1.Button1Click(Sender: TObject);
var CM: TIdCookieManager;
captcha1:TMemoryStream;
captcha2:TMemoryStream;
ID, pref: String;
begin
ID:=edit1.text;
pref:= edit2.Text;
CM:= TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies:=True;
IdHTTP1.CookieManager:=CM;
IdHTTP1.HandleRedirects:=True;
captcha1:=TMemoryStream.Create;
captcha2:=TMemoryStream.Create;
idhttp1.Request.Referer:=('http://l2top.ru/vote/' + ID + '/?prefix='+pref);
idhttp1.Get('http://l2top.ru/getimg.php?47',captcha1);
captcha1.SaveToStream(captcha1);
captcha1.SaveTofile('captcha1.jpeg');
Image1.Picture.LoadFromfile('captcha1.jpeg');
Edit5.Text:= idhttp1.Request.Referer;
idhttp1.Request.Referer:=('http://l2top.ru/vote/' + ID + '/?prefix='+pref);
idhttp1.Get('http://l2top.ru/getimg.php?610',captcha2);
captcha2.SaveToStream(captcha2);
captcha2.SaveTofile('captcha2.jpeg');
Image2.Picture.LoadFromfile('captcha2.jpeg');
end;


Кто нибудь может показать, как и куда отправить эту капчу? Часа 2 искал что куда, пытался разобраться как, вобщем не получилось.

Последний раз редактировалось Ss[x]dD; 10.04.2010 в 23:01..
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FAQ/Фейк на дельфи своими руками DJ4J С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 10 27.03.2010 17:35
Улучшение охлаждения современных (и не очень) видеокарт своими руками [AG] "Железо" 17 18.04.2009 01:19
Своими руками. Allen Болталка 15 11.04.2006 18:37
Как своими руками заставить мышь вибрировать dinar_007 "Железо" 8 17.02.2006 09:18



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.