Накрутка счётчика через Delphi

[MiRiN]

Всех приветствую.
Возникла такая идя но вот с реализацией пока что то туговато( В общем нужна программка которая через каждые 15 сек меня прокси и заходила уже с новым прокси на необходимый сайт. Желательно реализовать это на Delphi но мона и на C++ и С#. Жду предложений)

[Assembler]

topgen тебе чем не подходит?

[St0nX]

Так бы и сказал напишите за меня программу которая счетчик накручивает.

По сбажу
Работа с проксей
SOCKET socks5(char *socks, int sockport, char *server, int srvport)
{
struct hostent *Ip = gethostbyname(socks);
if(Ip == NULL)
return 0;

sockaddr_in sa;
sa.sin_family = AF_INET;
sa.sin_port = htons(sockport);
sa.sin_addr.s_addr = inet_addr(inet_ntoa(*((struct in_addr *)Ip->h_addr)));

char pack[12];
SOCKET s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
int tmo = 3000;
setsockopt(s,SOL_SOCKET,SO_RCVTIMEO,(const char*)&tmo,sizeof(tmo));
if(s == SOCKET_ERROR)
return SOCKET_ERROR;

if(connect(s, (SOCKADDR *)&sa, sizeof(sa)) == SOCKET_ERROR)
return SOCKET_ERROR;

if(send(s, pack, 3, 0) == SOCKET_ERROR)
return SOCKET_ERROR;

int i = recv(s, pack, 2, 0);
if(i == 0 || i == SOCKET_ERROR)
return SOCKET_ERROR;
if(pack[0] != 0x05 || pack[1] == 0xFF)
return 0;

pack[0] = 0x05;
pack[1] = 0x01;
pack[2] = 0x00;
pack[3] = 0x01;

Ip = gethostbyname(server);
if(Ip == NULL)
return 0;
char ip[16];
strcpy(ip, inet_ntoa(*((struct in_addr *)Ip->h_addr)));
int j = strlen(ip), k=4;
char *p = ip;
for(i = 0; i<j; i++)
if(ip[i] == '.')
{
ip[i] = 0;
pack[k] = atoi(p);
k++;
p = ip+i+1;
}
pack[k] = atoi(p);
pack[8] = srvport/256;
pack[9] = srvport%256;

if(send(s, pack, 10, 0) == SOCKET_ERROR)
return SOCKET_ERROR;

i = recv(s, pack, 10, 0);
if(i == 0 || i == SOCKET_ERROR)
return SOCKET_ERROR;
if(pack[0] == 0x05 && pack[1] == 0x00)
return s;
closesocket(s);
return 0;
}

с HTTP ничего мудрить не надо.
Чек и проверка типа прокси
http://forum.devisible.ru/showthread.php?t=270

Береш снифер заходиш на ту страницу которую ты накручивать собрался, потом дублируеш отснифанный запрос в цикле, меняя прокси.

В делфи все так же.

[Tigger]

Я не понимаю тебя... Если пауза на 15 секунд, то чем тебя PHP не устраивает?

[De-visible]

Я не понимаю тебя... Если пауза на 15 секунд, то чем тебя PHP не устраивает?
везде толкаем PHP??? разделом ошиблись молодой человек =/

Тему удалю, если не увижу твои же старания, примеры реализаций и т.д., это не раздел советов... вам на ксакеп:-D

[GlooK]

Моя заготовка.
Реализация с использованием idHTTP.

http://rapidshare.com/files/206048721/code.zip.html

[t04]

кто может на сокетах сделать норм пример для делф?