Автокликер Clickermann :: Форум

Основной раздел => Использование => Topic started by: InsDel on January 22, 2017, 08:59:21 PM

Title: Подпрограммы
Post by: InsDel on January 22, 2017, 08:59:21 PM

Что то не врубаюсь.. >:(
Вылетает ошибка POP()
Помогите разобраться

Code: (clickermann) [Select]

SUB(target)
KEYPRESS(#F9)
GETSCREEN
$hp_max = PXL(1044,52)
$hp_min = PXL(896,52)
WAITMS(100)
KEYPRESS(#F1)
WAIT(1)
END_SUB


SUB(kill)
IF $hp_min ! $hp_min
WAITMS(100)
target()
ELSE
kill()
END_IF
END_SUB

Title: Re: Подпрограммы
Post by: dramster on January 23, 2017, 01:18:55 AM

(PXL(1044,52) ! PXL(1044,52))  :-\
Вас случаем это не смущает?

Title: Re: Подпрограммы
Post by: Oraven on January 23, 2017, 07:59:43 AM

кто знает как там у него что работает, но вот исходный, но правильно работающий вариант
 

Code: (clickermann) [Select]

SUB(target)
   KEYPRESS(#F9)
   WAITMS(100)
   GETSCREEN
   $hp_max = PXL(1044,52)
   $hp_min = PXL(896,52)
   KEYPRESS(#F1)
   WAIT(1)
END_SUB

SUB(kill)
   target() // жмем F9 и F1 в первый раз
   WHILE($hp_min ! $hp_max) // и если min и max не одинаковы повторяем
      target()
   END_CYC
END_SUB

kill()

Title: Re: Подпрограммы
Post by: Sania on February 10, 2017, 11:56:56 AM

Ух ты, а можно писать сабы внутри саба???
Например:
SUB(1)
   If...
   SUB(2)
   else
   SUB(3)
   END_SUB
   END_SUB
END_SUB

Title: Re: Подпрограммы
Post by: Oraven on February 10, 2017, 12:00:51 PM

Quote from: Sania on February 10, 2017, 11:56:56 AM

Ух ты, а можно писать сабы внутри саба???
Например:
SUB(1)
   If...
   SUB(2)
   else
   SUB(3)
   END_SUB
END_SUB
END_SUB

Конечно нет, ты написал полный бред.

Title: Re: Подпрограммы
Post by: Sania on February 10, 2017, 02:18:37 PM

Quote from: kiril on February 10, 2017, 12:10:17 PM

Японял спасибо)

Title: Re: Подпрограммы
Post by: Sania on February 10, 2017, 03:16:42 PM

Quote from: Oraven on February 10, 2017, 12:00:51 PM

Quote from: Sania on February 10, 2017, 11:56:56 AM

Я так и хотел, просто интересовала сама суть вопроса, главное что меня поняли, я просто давненько думал можно можно ли писать подпрограммы друг в друге и вот ответ)))

Title: Re: Подпрограммы
Post by: malf66 on April 13, 2017, 08:47:29 AM

Помогите! Где напортачил? выдает ошибку сценария "Ошибка при вызове функции РОР()""

// Вводим исходные параметры
SUB (Vvod)

//Ставка ввод
DBLCLICK($x_cop,$y_cop)   // выделение значения
WAITMS(100)
KEYDOWN(17)     // Ctrl копирование
WAITMS(100)
KEYDOWN(67)     // C
WAIT (1)

DBLCLICK($x_vvd,$y_vvd)   // выделение значения
WAITMS(100)
KEYDOWN(17)        // Ctrl  Ввод
WAITMS(100)
KEYDOWN(86)        // V
WAIT (1)

END SUB

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

Title: Re: Подпрограммы
Post by: open_78 on April 13, 2017, 09:28:36 AM

SUB (Vvod)
   
   //Ставка ввод
   DBLCLICK($x_cop,$y_cop)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)     // Ctrl копирование
   WAITMS(100)
   KEYDOWN(67)     // C
   WAIT (1)
   
   DBLCLICK($x_vvd,$y_vvd)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)        // Ctrl  Ввод
   WAITMS(100)
   KEYDOWN(86)        // V
   WAIT (1)
   
END_SUB  //  Вот так правильно

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

Title: Re: Подпрограммы
Post by: open_78 on April 13, 2017, 09:34:40 AM

И клавиши отжимать надо командой KEYUP(). 

Title: Re: Подпрограммы
Post by: malf66 on April 13, 2017, 09:58:29 AM

Спасибо за помощь. Вот мелочь, но обязательно просмотрю. А вот на KEYUP() обиделся, снова выдал ошибку. А в принципе робит и без отжатия.

Title: Re: Подпрограммы
Post by: open_78 on April 13, 2017, 10:04:10 AM

Quote from: malf66 on April 13, 2017, 09:58:29 AM

Спасибо за помощь. Вот мелочь, но обязательно просмотрю. А вот на KEYUP() обиделся, снова выдал ошибку. А в принципе робит и без отжатия.

Я конечно уверен что команду отжатия ты правильно написал, но на всякий случай проверим. У тебя так? :D

Code: (clickermann) [Select]

SUB (Vvod)
   
   //Ставка ввод
   DBLCLICK($x_cop,$y_cop)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)     // Ctrl копирование
   WAITMS(100)
   KEYDOWN(67)     // C
   WAITMS(100)
   KEYUP(67)
   WAITMS(100)
   KEYUP(17)
   WAIT (1)
   
   DBLCLICK($x_vvd,$y_vvd)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)        // Ctrl  Ввод
   WAITMS(100)
   KEYDOWN(86)        // V
   WAITMS(100)
   KEYUP(86)
   WAITMS(100)
   KEYUP(17)
   WAIT (1)
   
END_SUB

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

Title: Re: Подпрограммы
Post by: malf66 on April 13, 2017, 01:54:51 PM

Нее, я понял, что можно без цифер.

Title: Re: Подпрограммы
Post by: Vint on April 13, 2017, 02:41:45 PM

Где можно? Если внутри KEYUP, то как раз нельзя.

KEYUP(код клавиши)