ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Вход на сайт через прокси
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Вход на сайт через прокси
  #1  
Старый 17.05.2010, 00:04
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421

Репутация: 5
По умолчанию Вход на сайт через прокси
Нужен исходник входа на сайт через прокси.

Вот что в гугле нарыл...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j: integer;
Stream: TMemoryStream;
begin
{перебираем циклом по всем строкам ListBox'a}
for i:= 0 to listbox1.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyServer:= listbox1.Items[i];
ShowMessage('Прокси выбран!');
end;
for j:= 0 to listbox2.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyPort:= StrToInt(listbox2.Items[j]);
ShowMessage('Порт выбран');
end;
//заход через прокси
try
Stream:= TMemoryStream.Create;
IdHTTP1.Post('http://www.example.com', Stream);
finally
Stream.Free;
IdHTTP1.Free;
end;
end;
 
Ответить с цитированием

  #2  
Старый 17.05.2010, 00:46
sn0w
Статус пользователя:
Регистрация: 26.07.2005
Сообщений: 568
Провел на форуме:
1290766

Репутация: 1236


По умолчанию
кодируй на апи, выкинь эту херню в баню, тока сам ся запутаешь
__________________


snow white world wide
 
Ответить с цитированием

  #3  
Старый 17.05.2010, 08:30
M_script_
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761

Репутация: 180
Отправить сообщение для M_script_ с помощью ICQ
По умолчанию
Зачем перебирать все строки в listbox1 и listbox2, если используются только последние?
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Proxy FAQ iv. Анонимность 75 01.05.2010 13:24
По Www без следов foreva Чужие Статьи 34 11.02.2008 15:54
Proxy FAQ foreva Чужие Статьи 12 04.01.2008 12:15



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


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




ANTICHAT.XYZ