Hola he encontrado varias web con el mismo problema, una de ella es la de rapidshare, como sabreis al entrar en la web para descargar un archivo te sale antes para que hagas click en el boton "FREE" para poder continuar y asi descargar el archivo. pues bien cuando intento hacer eso por medio de socket no logro continuar y me quedo estancado. ya no se como hacer para simular el click del "FREE", aqui os dejo un ejemplo de como lo estoy intentando por si veis algo que este mal. gracias a todos!
Código Delphi
[-]
Share.Socket.SendText('POST /files/80002922/Casinos.rar HTTP/1.1'+#13#10);
Share.Socket.SendText('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);
Share.Socket.SendText('Referer: http://rapidshare.com/files/80002922...ar'+#13#10);
Share.Socket.SendText('Accept-Language: es'+#13#10);
Share.Socket.SendText('Content-Type: application/x-www-form-urlencoded'+#13#10);
Share.Socket.SendText('UA-CPU: x86'+#13#10);
Share.Socket.SendText('User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; InfoPath.2)'+#13#10);
Share.Socket.SendText('Host: www.rapidshare.com'+#13#10);
Share.Socket.SendText('Content-Length: 13'+#13#10);
Share.Socket.SendText('Connection: Keep-Alive'+#13#10);
Share.Socket.SendText('Cache-Control: no-cache'+#13#10);
Share.Socket.SendText(''+#13#10);
Share.Socket.SendText('dl.start=Free'+#13#10);
Share.Socket.SendText(''+#13#10);