Автоматизация и боты

 Помощь      Поиск      Пользователи
Сайт Кибор     Программируемый кликер Кибор     Видео обучение     Заказать бот

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

> Описание: подпрограммы
Поиск в теме | Версия для печати
Val_027
Отправлено: 05 Мая, 2020 - 18:11:56
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020  
Репутация: 0
 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:

(Отредактировано автором: 05 Мая, 2020 - 18:28:29)
 
 Top


Скачать Кибор
Визуальный редактор кода Кибор. Создание ботов без знания программирования
Обучаемая функция распознавания текста

Zireael
Отправлено: 05 Мая, 2020 - 19:04:44
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 4449
Дата рег-ции: Нояб. 2017  
Репутация: 585
 Цитата:
if(getkeystate NUMPAD0)

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

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

Не нужен тут goto.
CODE:
loop()
{
getmouse(x, y);
}
 
 Top
Val_027
Отправлено: 05 Мая, 2020 - 19:29:48
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020  
Репутация: 0
 Zireael пишет:
Не нужен тут goto.


принято а остальное как бы работает итак ...
 
 Top
Поиск в теме | Версия для печати
Страниц (2): « 1 [2]
Сейчас эту тему просматривают: 1 (гостей: 1, зарегистрированных: 0)
« Вопросы и решение проблем »


Все гости форума могут просматривать этот раздел.
Только зарегистрированные пользователи могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
  




Powered by