InetCrack

Подскажите каким способом отправляются HTTP пакеты в этои программе, я сделал в дельфе так

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := www.xxxx.ru;
ClientSocket1.Port := 80;
HTTP_POST:=
'POST http://www.xxxx.ru/xxx/ HTTP/1.0'#10+ //взяи из навископа
'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-icq, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*'#10+
'Referer: http://www.xxxx.ru/xxx/'#10+
'Accept-Language: ru'#10+
'Content-Type: application/x-www-form-urlencoded'#10+
'Proxy-Connection: Keep-Alive'#10+
'User-Agent: Mozilla/4.0'#10+
'Host: www.xxxx.ru'#10+
'Content-Length: 100'#10+
'Pragma: no-cache'#10+
'Cookie: hotlog=1'#10+
''#10+
'param1=1&param2=2;
ClientSocket1.Active :=true;


procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(HTTP_POST);
end;

может както еще можно, а то у меня через модем нормально оправляются а по gprs невсегда. Кто знает может еще какой компонент кроме ClientSocket способен на такое

 

Есть NMHTTP или IdTCPClient, но сними у тя врядли получиться!

 

А может всётки дело не в компоненте, а в чём то другом ? Попробуй вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
while I <> 1 do I := ClientSocket1.Socket.SendText(HTTP_POST);
end;

В случае успешной отправки ф-ция " SendText " вернёт 1, иначе 0.

 

Используй TIdHTTP
Не парся с сокетами

 

Посоветую еще очень хороший наборчик
ICS - Internet Component Suite Aka FPIETTE's Components от Franзois PIETTE
Сайт
http://www.overbyte.be
Прямой линк
http://www.overbyte.be/arch/ics.zip