30.07.2012, 03:32
|
#5
|
Местный
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
|
еще хочу спросить
вот код:
Оффтоп
delphi Код:
Procedure UseScroll;
begin
keybd_event(VK_F1, MapVirtualKey(VK_F1, 0), 0, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
T:=1;
timer2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.Enabled:=false;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=false;
if EnchantLevel<MaxEnchant then
begin
if T=1 then
begin
UseScroll;
T:=2;
timer2.Enabled:=true;
end;
if T=2 then
begin
SetCursorPos(point1.X,point1.Y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
T:=3;
timer2.Enabled:=true;
end;
if T=3 then
begin
SetCursorPos(point2.X,point2.Y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
T:=1;
timer2.Enabled:=true;
end;
end;
end;
Почему кликает по точке но и подтверждает точку вот только пропускает почему то
Delphi Код:
if T=2 then
begin
SetCursorPos(point1.X,point1.Y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
T:=3;
timer2.Enabled:=true;
end;
Тупо не выбирает пушку,аналог автокликера и пожалуйсто подскажите как отправлять в мне нужное свернутое окно все действия.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
|
|
|