Author Topic: Первый скрипт  (Read 1750 times)

0 Members and 1 Guest are viewing this topic.

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Первый скрипт
« on: March 01, 2017, 11:52:45 AM »
скажите есть ошибки?
Code: (clickermann) [Select]
LDOWN(1194,119)//ВЫДЕЛЯЕМ ТЕКСТ
WAITMS(50)
MOVE(1260,123)
WAITMS(50)
LUP(1260,123)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+C копируем
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)

$count = (INT(FROMCLIP())/100)*0.1 //Ctrl+V из буфера обмена вставить
LOGWRITE ($count)
LCLICK(464,491)//поле ввода
$str=0 // результат "3"
FOR($a=0, $a <  strlen(ROUND($count)("") ,$str))
   KEYPRESS(#BACKSPACE)
END_CYC
KEYSTRING (ROUND($count)//округлили ставку
FOR($a=0,$a<0)
   LCLICK(787,456)//кнопка
   WAIT(1)
END_CYC
$x1=0
HALT//стоп

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Первый скрипт
« Reply #1 on: March 01, 2017, 12:40:46 PM »
скажите есть ошибки?

По началу все нормально, но ...
Code: (clickermann) [Select]
$count = (INT(FROMCLIP())/100)*0.1 //Ctrl+V из буфера обмена вставить
LOGWRITE ($count)
LCLICK(464,491)//поле ввода
$str=0 // результат "3"  - Для чего это?
FOR($a=0, $a < strlen(ROUND($count)("") ,$str)) // здесь вообще нечно невообразимое
   KEYPRESS(#BACKSPACE)
END_CYC
KEYSTRING (ROUND($count)//округлили ставку - Здесь не хватает скобки и параметра!
FOR($a=0,$a<0) // цикл невыполнится так как $a не меньше 0
   LCLICK(787,456)//кнопка
   WAIT(1)
END_CYC
$x1=0 // это к чему????
HALT //стоп

Попытаюсь все исправить
Code: (clickermann) [Select]
LDOWN(1194,119)//ВЫДЕЛЯЕМ ТЕКСТ
WAITMS(50)

MOVE(1260,123)
WAITMS(50)

LUP(1260,123)
WAITMS(50)

KEYDOWN (#CTRL) // Ctrl+C копируем
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)

$count = (INT(FROMCLIP())/100)*0.1 //Ctrl+V из буфера обмена вставить
LOGWRITE ($count)

LCLICK(464,491)//поле ввода
WAITMS (50)

FOR($a=0, $a < 5) // я так понимаю ты хочешь стереть предыдущее число. 5 нажатий хватит
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC

KEYSTRING (ROUND($count,0))//округлили ставку
WAITMS (50)

FOR($a=0,$a<1) // сколько раз нужно кликнуть? Определись.
   LCLICK(787,456)//кнопка
   WAIT(1)
END_CYC

HALT //стоп

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: Первый скрипт
« Reply #2 on: March 01, 2017, 12:49:37 PM »
Code: (clickermann) [Select]
LDOWN(1194,119)//ВЫДЕЛЯЕМ ТЕКСТ
WAITMS(50)
 
MOVE(1260,123)
WAITMS(50)
 
LUP(1260,123)
WAITMS(50)
 
KEYDOWN (#CTRL) // Ctrl+C копируем
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
 
$count = (INT(FROMCLIP())/100)*0.1 //Ctrl+V из буфера обмена вставить
LOGWRITE ($count)
 
LCLICK(464,491)//поле ввода
WAITMS (50)
 
FOR($a=0, $a < 5) // мне надо чтобы нажало сколько раз сколько символов 5 то один раза а если 10 два раза 100 три раза и.т.д
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC
 
KEYSTRING (ROUND($count,0))//округлили ставку
WAITMS (50)
 
FOR($a=0,$a<1) // сколько раз нужно кликнуть? Определись.
   LCLICK(787,456)//кнопка
   WAIT(1)
END_CYC
 
HALT //стоп

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: Первый скрипт
« Reply #3 on: March 01, 2017, 01:08:19 PM »
так здесь правильно или нет?
Code: (clickermann) [Select]
FOR($a=0, $a <  strlen(ROUND($count,0)("") )) //  стирать
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: Первый скрипт
« Reply #4 on: March 01, 2017, 01:14:14 PM »
так  работает и нет ошибок  :-\
Code: (clickermann) [Select]
FOR($a=0, $a < 5) // мне надо чтобы нажало сколько раз сколько символов 5 то один раза а если 10 два раза 100 три раза и.т.д
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC

итак работает
Code: (clickermann) [Select]
FOR($a=0, $a <  strlen(ROUND($count,0)("") )) //  стирать
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC
« Last Edit: March 01, 2017, 01:19:43 PM by rasnvas »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Первый скрипт
« Reply #5 on: March 01, 2017, 01:21:43 PM »
Ну можно так написать
Code: (clickermann) [Select]
FOR($a=0, $a < STRLEN($count))
   KEYPRESS(#BACKSPACE)
   WAITMS (50)
END_CYC

Но считаешь ты количество символов у нового числа, а стирать собрался предыдущее.

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: Первый скрипт
« Reply #6 on: March 01, 2017, 01:32:13 PM »
Спасибо Oraven все понял и решил задачку