| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Подбор [D6, Win2k]

FBI ©   (2003-12-08 13:48:00) 

Народ может кто знает почему вот это вот прогоняется всего 17000 раз, а не полностью как должно

var
i,i1,i2,j,j1,j2,r,r1,r2:Byte;
begin
edit1.SetFocus;
for r:=i to j do
begin
i1:=65;
j1:=90;
for r1:=i1 to j1 do
begin
i2:=65;
j2:=90;
for r2:=i2 to j2 do
begin
keybd_event(r,10,1,1);
keybd_event(r1,10,1,1);
keybd_event(r2,10,1,1);
keybd_event(9,10,1,1);
keybd_event(13,10,1,1);
if r2=90 then
begin
i2:=96;
j2:=105;
end;
end;
r2:=0;
if r1=90 then
begin
i1:=96;
j1:=105;
end;
end;
r1:=0;
if r=90 then
begin
i:=96;
j:=105;
end;
end;
end;


---

Игорь Шевченко   (2003-12-08 17:55:00) [1]

С такими вопросами на www.xakep.ru
Правила надо читать

---

FBI   (2003-12-08 17:15:00) [2]

Ну да к одинесине, так эта штука почти работает, попробуйте такой код запустить:
for r:=65 to 105 do
for r1:=65 to 105 do
for r2:=65 to 105 do
begin
keybd_event(r,10,1,1);
keybd_event(r1,10,1,1);
keybd_event(r2,10,1,1);
keybd_event(9,10,1,1);
keybd_event(13,10,1,1);
end;


запустите и кликните гденибудь рарабочем столе

---

Игорь Шевченко   (2003-12-08 15:07:00) [3]

while надо использовать ;)
Пароли подбираем ?

---

NAlexey   (2003-12-08 14:19:00) [4]

>FBI ©
СилЁн.

---

BiN   (2003-12-08 14:12:00) [5]

ух ты..."№"?;("*:;*"№
в цикле нельзя изменять его параметры

---

Наверх