Форум АНТИЧАТ - Помогите с Дельфи!

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Помогите с Дельфи! (https://forum.antichat.xyz/showthread.php?t=41908)

Помогите с Дельфи!

Народ кто нормальна шарит в дельфи?...помогите мне написать программу...начал недавно!,..почти нехе...не знаю!,.
Так что нада!...===> Мне нужна такая прога чтобы она открылавала опредиленую сылку с разных проксей...чтобы я вел там www.111.ru и чтобы она ее открылава с одного прокси, закрывала а потом занова с другой и так чтобы раз 100....
Зарание спасиба! Жду ответа!

Дык тебе нужна обычная простенькая прога. которая берет базу проксей и тупо переходит по ссылке.
дык проще некуда.
1) строй движек базы прокси
2) гдето на форуме валяется пой код - там функция запроса страницы
3) строй Http запрос и шли его через функцию,

всё очень просто. :)

slesh
Ну ты даешь...чувак же написал, что плохо шарит в делфи...
Заипется он это делать сам, имхо

M@@$
Страничку получать можно с помощью компоненты webbrowser
Тут написано как можно создать свой простенький браузер
_http://www.codenet.ru/progr/delphi/stat/browser.php
Потом, после события DocumentComplete (когда страничка уже полностью загрузилась)
снова загружаешься по той же ссылке, но меняешь прокси(соксы)...
Как работать через прокси я не в курсах, никогда не сталкивался, но я думаю не очень сложно...
Подскажите кто знаком с этим!

P.S.Поидеи сделать не сложно, при желании можно отключить и графику в браузере, чтоб меньше трафика грузил, но тогда скорее всего счетчики работать не будут, потому как они реагируют только на загрузку картинки самого счетчика, если я не ошибаюсь. А тебе я как понял нужна программа накрутчик?

2 [krot] НУ дык если инет браузер - это жестоко, т.к. траф идет хороший, да и скорость не очень. Winsock и всю будет рульно. Сори за юзанье WS2 (просто тупая привычка со времен написания снифера) Вот кусок кода:

Код:

uses winsock2;

var

WSAData:TWSAData;

socket_id:array[1..100] of dword;

tout:array[1..100] of boolean;





procedure timeouts(wnd:hwnd;uMsg:UINT;id:UINT;dwtime:dword);stdcall;

begin

tout[id]:=true;

closesocket(socket_id[id]);

end;





function send_packs(id:dword;ip:string; port:word; send_buf:string; var recv_buf:string):integer;

var

SockAddrIn: TSockAddrIn;

tmp_buf:array[1..1024] of char;

len:longint;

begin

result:=-10;

socket_id[id]:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

if socket_id[id]=WINDOWS.INVALID_HANDLE_VALUE then exit;

SockAddrIn.sin_family := AF_INET;

SockAddrIn.sin_port := htons(port);

SockAddrIn.sin_addr.s_addr := inet_addr(Pansichar(ip));

result:=-20;

if Connect(socket_id[id], @SockAddrIn, SizeOf(SockAddrIn))<>0 then exit;

tout[id]:=false;

windows.SetTimer(form1.Handle,id,timeout,@timeouts);

send(socket_id[id],send_buf[1],length(send_buf),0);

recv_buf:='';

repeat

len:=recv(socket_id[id],tmp_buf,1024,0);

recv_buf:=recv_buf+copy(tmp_buf,1,len);

until len<=0;

killtimer(form1.Handle,id);

result:=-30;

if tout[id]=true then exit;

result:=length(recv_buf);

closesocket(socket_id[id]);

end;

-.-.-.-.-.-.-.-

procedure hz;

var

buf_send,buf_recv:string;

proxy_port:word;

proxy_ip:string;



begin



if WSAStartup($202, WSAData)=-1 then

 begin

  memolog.Lines.Add('Ошибка WSAStarup');

  exit;

 end;



buf_send:=

   'GET http://kuk.ru/login.php HTTP/1.0'+#13#10+

   'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*'+#13#10+

   'Accept-Language: ru'+#13#10+

   'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01705))'+#13#10+

   'Host: kuku.ru'+#13#10+

   'Proxy-Connection: close'+#13#10#13#10;



case send_packs(id,proxy_ip,proxy_port,buf_send,buf_recv) of

-10:begin

     form1.memolog.Lines.Add('ID: '+inttostr(id)+' Ошибка создания сокета');

    end;

-20:begin

     form1.memolog.Lines.Add('ID: '+inttostr(id)+' '+proxy_ip+' > дохлый');

     proxy[bp].bad:=true;

     end;

-30:begin

     if length(buf_recv)<1000 then begin

     proxy[bp].bad:=true;

     form1.memolog.Lines.Add('ID: '+inttostr(id)+' '+proxy_ip+' > TIME OUT');

    end;

    end;

  0:begin

     proxy[bp].bad:=true;

     form1.MemoLog.Lines.Add('ID: '+inttostr(id)+' '+proxy_ip+' > Ошибка прокси');

    end;

end;



end;

Код простой. Подогнан специально под многопаточность.
id - номер потока
максимум потоков - 100
proxy_ip - ip адресс HTTP прокси сервера
proxy_port - порт прокси сервера.

slesh
А ты уверен, что счетчики будут регистрировать такие запросы, как я понял ему это надо для имитации посещаемости сайта (уников), для банеров и т.п. А так ты будешь получать только хтмл код, или я не прав?
M@@$ если я не прав, поправь...

А так конечно лучше так, трафа будет намного меньше жрать...

ИМХО на WinSock'e такое делать - мазахизм и самоубийство. Предлагаю решить проблему с помощью WinInet, код для отправки через прокси будет примерно такой:

Код:

Uses

......blablabla....., WININET;





const

Server_Addr: PChar= 'LocalHost';

ScriptName: PChar= 'engine.php';

hdrs: Pchar= 'Content-Type: application/x-www-form-urlencoded';



var

  hInet, hConnect, hRequest: hInternet;

  pRequest: PChar;

  sRequest: string;



hInet := InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; ru)', INTERNET_OPEN_TYPE_PROXY, 'http=http://localhost:8080', nil, 0);

hConnect := InternetConnect(hInet, Server_Addr, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);

hRequest := HttpOpenRequest(hConnect, 'POST', ScriptName, nil, nil, nil, 0, 1);

sRequest := 'Body=OK';

pRequest := PChar(sRequest);

HttpSendRequest(hRequest, hdrs, StrLen(hdrs), pRequest, StrLen(pRequest));

InternetCloseHandle(hRequest);

InternetCloseHandle(hConnect);

InternetCloseHandle(hInet);

Цитата:

Сообщение от [krot]

Cтатическая HTML страница конечно не будет (если не счетчик не встроек в сервер, но это уже теория), а скрипт зафискирует и вернет HTML код страницы про которые ты и говорил.

slesh, [krot] , А®ТеS.
По вервых ребя огромное спасиба за то что пытаитесь помоч! Очень ценю!...
Ребята...мне кароче нужна чтобы просто открывались странички типа накрутки!...
Я полный нуб! в программировании...я смогу толька скрипт впихнуть в дельфи и скомплить и все))..Так что если вам не в затруднение зделайте мне эту хрень...или код скиньте!,..И еше мне нужна чтобы я прокси сам закидывал и http адрис сам писал...Это возможна?