Форум: "WinAPI";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];

Вниз

Подбор   Найти похожие ветки 

← →
FBI   (2003-12-08 13:48) [0]

Народ может кто знает почему вот это вот прогоняется всего 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;


---

← →
BiN   (2003-12-08 14:12) [1]

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

---

← →
NAlexey   (2003-12-08 14:19) [2]

>FBI ©
СилЁн.

---

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

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

---

← →
FBI   (2003-12-08 17:15) [4]

Ну да к одинесине, так эта штука почти работает, попробуйте такой код запустить:
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 17:55) [5]

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

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c