Кибор » Кибор - Интегрированная среда разработки ботов » Вопросы и решение проблем » Реализация подпрограммы

Страниц (2): « 1 [2]
 

11. Val_027 - 05 Мая, 2020 - 10:11:56 - перейти к сообщению
 Zireael пишет:
стиль поверх всех окон


хз что такое стиль /а просто исчезала надпись ,
сейчас заработало.

убрал это
win wind=getwindow(1,1810,5);activate(wind); //1 то КОНТРОЛЛ ПО КООР X=1810,Y=5
хотел на окно сразу наводить

Спасибо за терпение Растерялся
(Добавление)
 Val_027 пишет:
Спасибо


//Для определения координат курсора /очень помогает при написании,
давно что то такое хотел. вот выключить по выходу пока не работает команды
end_paint - закончить рисовать как то не так или не там пищу...

external(INT, "begin_paint", "begin_paint", pathfolder()+"Draw.dll"Подмигивание;
external(INT, "Textout", "textout", pathfolder()+"Draw.dll"Подмигивание;
string s="Tahoma";
begin_paint();
//enable_item();

int x,y,x1,y1; win w; int ind=1;//если 0 - на главное окно
int X11,Y11,WORK[135][4]; loadimage(#WORK[0][0],"Z:\!!!\WORK.bmp"Подмигивание;
int X12,Y12,WAIT[135][4]; loadimage(#WAIT[0][0],"Z:\!!!\WAIT.bmp"Подмигивание;

loop(30000){

if(getkeystate NUMPAD0){goto KOOR} // КООРДИНАТЫ 0
if(getkeystate NUMPAD1){goto KONT} // КОНТРОЛ 1


if(getkeystate 145){goto EXIT} // НА ВЫХОД
END:visualwindow(0,0,0,135,4,547,735,245,#WAIT[0][0]);sleep(90)}


KOOR:
visualwindow(0,0,0,135,4,547,735,245,#WORK[0][0]);
textbkcolor (255,4259584);
a: getmouse(x, y);
//textout(4,500,590,"X "+format (x)+" Y "+format (y)+" цвет "+format (getcolor(x, y)),0); // где 0 то не моргает
Textout(0,547,705,"X "+format (x)+" Y "+format (y)+" цвет "+format (getcolor(x, y)), 16000000,65280,"Arial",-24,0,0,0,0,0,0,0);
sleep(300);
if(getkeystate (8)){goto END} // <--
if(getkeystate 145){goto EXIT}
goto a;

KONT:
visualwindow(0,0,0,135,4,547,735,245,#WORK[0][0]);
textbkcolor (0,65535);
a1: getmouse(x1, y1);
w=getwindow(ind, x1, y1);
//textout(4,500,590, "Название: "+w.name+"Класс: "+w.class+" Размер X1: "+format (w.widthclient)+" Размер Y1: "+format (w.heightclient),0);
Textout(0,500,590, "Название: "+w.name+"Класс: "+w.class+" Размер X1: "+format (w.widthclient)+" Размер Y1: "+format (w.heightclient), 16000000,65280,"Arial",-24,0,0,0,0,0,0,0);
if(getkeystate (8)){goto END} // <--
if(getkeystate 145){goto EXIT}
goto a1;

EXIT:
12. Zireael - 05 Мая, 2020 - 11:04:44 - перейти к сообщению
 Цитата:
if(getkeystate NUMPAD0)

Не хватает скобок.
 Цитата:
goto KONT

Отсутствует ;
 Цитата:
a: getmouse(x, y);
goto a;

Не нужен тут goto.
CODE:
loop()
{
getmouse(x, y);
}
13. Val_027 - 05 Мая, 2020 - 11:29:48 - перейти к сообщению
 Zireael пишет:
Не нужен тут goto.


принято а остальное как бы работает итак ...

Powered by ExBB FM 1.0 Final