Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - msgkumisi

Pages: [1] 2
1
Общие вопросы / Рандом -
« on: December 13, 2015, 10:52:41 AM »
код:
Code: (clickermann) [Select]
$random = rnd(1,24) // получаем рандомное число от 1 до 24 и записываем его в переменную
$stroka = TFREAD("links.txt", $random) // считываем случайную строку
TOCLIP($stroka) // отправляем строку в буфер обмена

waitms(50)
  MOVE(10,10)
waitms(50)
  LDOWN(10,10)
waitms(50) 
  LUP(10,10)
WAITMS(50)
//открываем новую вкладку
  KEYDOWN (#CTRL)
WAITMS (50)
  KEYDOWN (#T)
WAITMS (50)
  KEYUP (#T)
KEYUP (#CTRL)
//  клик в строке браузера
WAITMS(50)
  MOVE(250,70)
WAITMS(50)
  LCLICK(250,70)
WAITMS(50)
//вставит с буфера
  KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)

//Нажимаем Enter чтобы перевести строку.
   KEYPRESS(#ENTER)
   wait(30)

//закрыт вкладку   
  KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#W)
WAITMS (50)
KEYUP (#W)
KEYUP (#CTRL)
    wait(30)

вопрос: можно ли когда сработает rnd(1,24) появится рандомное число, в следующем цикле его не было?
скажем в этом цикле $random=9. чтоб в следующем цикле из рандома исключит цифру 9.

2
Общие вопросы / Re: KEYSTRING и RND
« on: December 07, 2015, 10:48:02 AM »
спасибо! пишет то что нужно.

3
Общие вопросы / Re: Закрытие браузера
« on: December 07, 2015, 10:04:39 AM »
попробуй комбинацию Ctrl+Shift+Q

Code: (clickermann) [Select]
KEYDOWN (#CTRL)
WAITMS (750)
KEYDOWN (#SHIFT)
WAITMS (750)
KEYDOWN (#Q)
WAITMS (550)
KEYUP (#Q)
WAITMS (250)
KEYUP (#SHIFT)
WAITMS (250)
KEYUP (#CTRL)

по идее закрывает браузер.

4
Общие вопросы / KEYSTRING и RND
« on: December 07, 2015, 09:52:03 AM »
вот кусочек кода:

Code: (clickermann) [Select]
  MOVE($xpbs,$ypbs2)
waitms(100)
  LDOWN($xpbs,$ypbs2)
waitms(100) 
  LUP($xpbs,$ypbs2)
   KEYSTRING("RND(100000,999999)", 20)
      WAITMS (50)
      KEYDOWN (#ENTER)
      WAITMS (50)
      KEYUP (#ENTER)
как сделать чтоб KEYSTRING писал рандомную цифру а не - RND(100000,999999)

5
Общие вопросы / Re: проверка работы скрипта
« on: October 21, 2015, 07:50:00 PM »
как-то умудрился  пропустит клик при работающем скрипте, СРАБОТАЛО.
вот запись лога:
Code: [Select]
20:44:37 ban 1: 71659.50  ban 2: 71659.50
20:44:37 Совпадение ban1 и ban2
20:44:45 ban 1: 71659.50  ban 2: 71687.50
20:44:45 собрал 1мин::71687.50

СПАСИБО за помощь.

6
Общие вопросы / Re: проверка работы скрипта
« on: October 21, 2015, 06:52:56 PM »
СПАСИБО!!! всем кто откликнулся.

1. не стирал строку когда TFDelete была последней, пришлось перетащить в перед
2. мне не  print( TFRead("ban.txt", 2 ) ) был нужен, а TFWRITE("ban.txt", FROMCLIP())

и вот что получилось :

Code: (clickermann) [Select]
IF($time1 < $_time_t)
$time1 = $_time_t + 64 // 1 минута
INIWRITE ("time.ini", "Time1", $time1, "TIME") // запись в файл time.ini времени следующего срабатывания условия
 
// Здесь пишутся необходимые действия
    pera()
ban1:
  WAITMS(100)
    ban1()
  WAIT(2)
//подключение подпрограммы "pak"
pak()
//стерет в файле 2-ю строку
     TFDELETE("ban.txt", 1)
//записат с буфера в файле на 2-ой строке
     TFWRITE("ban.txt", FROMCLIP())
//если цифры совпадаю
     IF(StrReadln("ban.txt", 1) = StrReadln("ban.txt", 2))
     //перезагрузит браузер
obn()
      WAITMS (1000)
  //и перейти к метке //ban1//
      goto(ban1)
   END_IF
     // запись в лог
print("собрал 1 мин:", FROMCLIP())

END_IF

P.S. стирание - добавление делает правильно. но не могу проверит делает или нет проверку.
как добавит ответ в лог.

7
Общие вопросы / проверка работы скрипта
« on: October 21, 2015, 08:28:09 AM »
  У меня скрипт, который написал с помощью этого форума, за что отдельное спасибо, пашет нормально.
Но иногда координаты на сайте меняются из-за рекламы и скрипт не может кликать по заданным координатам. Для возобновления работы скрипта нужно обновит страницу.
  ВОПРОС : можно ли написать такую конструкцию?
1. //клик по координатам
Code: (clickermann) [Select]
SUB(ban1)
start:
waitms(100)
GETSCREEN
IF_PIXEL_IN (0,$l,$k,$l',$cv)
  MOVE($xba1,$yba)
waitms(200)
  LDOWN($xba1,$yba)
waitms(200) 
  LUP($xba1,$yba)
else
//подключение подпрограммы "ban"
ban()
goto(start)
END_IF
  WAIT(2)
GETSCREEN
IF_PIXEL_IN (0,$l,$k,$l',$cv)
  MOVE($xpbs,$ypbs)
waitms(200)
  LDOWN($xpbs,$ypbs)
waitms(200) 
  LUP($xpbs,$ypbs)
else
     //подключение подпрограммы "ban"
     ban()
     goto(start)
END_IF
END_SUB

2. \\проверка "проверка на 10000 и если есть то купит"
Code: (clickermann) [Select]
//подпрога "проверка на 10000 и если есть то купит"
SUB(pak)

// скопироват с сайта цифры
waitms(500)
start10:
GETSCREEN
IF_PIXEL_IN (0,$l,$k,$l',$cv)
  move($xDa,$yDa)
waitms(400)
   DBLCLICK($xDa,$yDa)    
else
//подключение подпрограммы "ban"
ban()
  goto(start10)
END_IF
waitms(50)
  KEYDOWN (#CTRL)
WAITMS (50)
  KEYDOWN (#C)
WAITMS (50)
  KEYUP (#C)
  KEYUP (#CTRL)
waitms(100)
IF($kak = 1)
IF(ROUND(STRREPLACE(FROMCLIP(),",","."), 0) > 10000) // проверит цифры из буфера, скажем в буфере "916,50"
   // если цифра больше 10000 сделать
   move($xaka,$yaka)
   waitms(380)
   lDown($xaka,$yaka)
   waitms(255)
   lUp($xaka,$yaka)
   waitms(2000)
   move($xka,$yka)
   waitms(228)
   lDown($xka,$yka)
   waitms(227)
   lUp($xka,$yka)
   waitms(200)
   // запись в лог
print("купил")
IF($zvYES = 1)
   SOUND("data/Yes.wav")
END_IF
END_IF
   waitms(100)
ELSE
   // если цифра меньше 10000 сделать
   MOVE(145,155)
END_IF
END_SUB

   кусок кода:
Code: (clickermann) [Select]
IF($time1 < $_time_t)
$time1 = $_time_t + 64 // 1 минута
INIWRITE ("time.ini", "Time1", $time1, "TIME") // запись в файл time.ini времени следующего срабатывания условия
 
// Здесь пишутся необходимые действия
    pera()
  WAITMS(100)
    ban1()
  WAIT(2)
//подключение подпрограммы "pak"
pak()
     // запись в лог
print("собрал 1 мин:", FROMCLIP())

END_IF


  ВОПРОС : можно ли написать такую конструкцию?

Code: (clickermann) [Select]
//подпрога "проверка клика"
SUB(prov)
//записат в буфер
print( TFRead("ban.txt", 2 ) )

IF(( StrReadln("ban.txt", 1 ) = ( StrReadln("ban.txt", 2 ))
     TFDelete("ban.txt", 1)

WAITMS (50)
  KEYDOWN (#C)
WAITMS (50)
  KEYUP (#C)

WAITMS (50)
  KEYDOWN (#C)
WAITMS (50)
  KEYUP (#C)
goto(ban1)
END_IF
END_SUB

8
Общие вопросы / Re: граб HTML
« on: October 16, 2015, 10:33:20 AM »
сделаем по другому:
вот сайт: html://название сайта
я хочу с кода этого сайта скопировать 185-ю строку:
[spoiler]
<div class="field-ar"><a href="/account/insert">1456</a>  <span style="margin:3px 10px 0px 0px;">[покупки]</span></div>
[/spoiler]
убрать все кроме цифр. по идее должно получится :  145631000
убираем последние 5 цифр и получаем 1456
потом
Code: (clickermann) [Select]
// запись в лог
print("найдена цифра:", FROMCLIP())
и HALT

9
Общие вопросы / граб HTML
« on: October 16, 2015, 09:48:29 AM »
можно ли сделать вот такую штуку:
Code: (clickermann) [Select]
IF(TOCLIP(TFREAD("html://название сайта", 185))) // скопировать с кода сайта 185-ю строку

waitms(100)
   $str = STRFILTER(FROMCLIP(), "1234567890", 1) // будет удалено все кроме этих символов
   $cifra = int($str / 100000)
waitms(100)
// запись в лог
print("цифра:", $cifra )
 END_IF

IF(ROUND(STRREPLACE($cifra,",","."), 0) > 10000) // проверит цифры из буфера, скажем в буфере "916,50"
waitms(100)
   // запись в лог
print("найдена цифра:", FROMCLIP())
END_IF
halt

185-я  строка   (<div class="field-ar"><a href="/account/insert">1456</a>  <span style="margin:3px 10px 0px 0px;">[покупки]</span></div>)
"

10
Использование / Re: Альтернатива привязке - работа с несколькими окнами, решение черного окна, и тп.
« on: October 14, 2015, 12:22:28 AM »
добавьте вот это тоже:

Code: (clickermann) [Select]
//A_DBLCLICK
SUB(A_DBLCLICK, $A_x, $A_y, $A_hwnd)
   postmessage($A_hwnd,0x0203,0x0001,$A_x+($A_y*65536))
END_SUB

11
Общие вопросы / Re: Рандомность
« on: October 12, 2015, 08:40:39 PM »
практическое применение:

Code: (clickermann) [Select]
$random = rnd(1,5) // получаем рандомное число от 1 до 9 и записываем его в переменную
$stroka = TFREAD("links.txt", $random) // считываем случайную строку
TOCLIP($stroka) // отправляем строку в буфер обмена

waitms(50)
  MOVE(10,10)
waitms(50)
  LDOWN(10,10)
waitms(50) 
  LUP(10,10)
WAITMS(50)
//откриваем новую вкладку
  KEYDOWN (#CTRL)
WAITMS (50)
  KEYDOWN (#T)
WAITMS (50)
  KEYUP (#T)
KEYUP (#CTRL)
//  клик в строке браузера
WAITMS(50)
  MOVE(250,70)
WAITMS(50)
  LCLICK(250,70)
WAITMS(50)
//вставит с буфера
  KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)

//Нажимаем Enter чтобы перевести строку.
   KEYPRESS(#ENTER)
WAITMS (50)

//если $random=1 сделать
что-то
//если $random=2 сделать
что-то
//если $random=3 сделать
что-то
//если $random=4 сделать
что-то
//если $random=5 сделать
что-то

//закрыт вкладку   
  KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#W)
WAITMS (50)
KEYUP (#W)
KEYUP (#CTRL)
    wait(30)

что писать вместо "что-то"?

12
Общие вопросы / Re: проверка буфера
« on: October 11, 2015, 12:58:13 PM »
спасибо за помощь. сам как то подумал и пришел к такому выводу. вот.  ::)

13
Общие вопросы / Re: проверка буфера
« on: October 11, 2015, 12:35:45 PM »
ну и нужно докончит главу :

а если у меня в буфере "1234.56  ["

IF(FROMCLIP() > 10000)

что писать?

p.s. как я понял если взят первым STRFILTER, то у меня  получится FROMCLIP() = 123456

p.s.s.  8) понял: нужно STRFILTER добавит "."

Code: (clickermann) [Select]
$str = STRFILTER(FROMCLIP(), "1234567890.", 1) // будет удалено все кроме этих символов

//а потом:
// проверит цифры из буфера, скажем в буфере "1234.56"
IF(ROUND(STRREPLACE($str,",","."), 0) > 10000)
бля-бля-бля
END_IF

как то так.

14
Общие вопросы / Re: проверка буфера
« on: October 11, 2015, 12:03:10 PM »
или так:

Code: (clickermann) [Select]
// проверка скопированного
// скопироват с сайта цифры
lDown(271,952)
waitms(50)
lUp(319,955)
waitms(100)
 
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
waitms(100)

$str = STRFILTER(FROMCLIP(), "1234567890", 1) // будет удалено все кроме этих символов

   // запись в лог
     print("найдена цифра:", $str)
 
// проверит цифры из буфера, скажем в буфере "916,50"
IF($str > 10000)
бля-бля-бля
END_IF

сработало!  :D

15
Общие вопросы / Re: проверка буфера
« on: October 11, 2015, 11:41:11 AM »
а в верхнем коде куда это вписать?

Code: (clickermann) [Select]
// проверка скопированного
// скопировать с сайта цифры
lDown(271,952)
waitms(50)
lUp(319,955)
waitms(100)
 
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
waitms(100)
 
// проверит цифры из буфера, скажем в буфере "342 ["
IF(STRFILTER(FROMCLIP(), "1234567890", 1) > 10000)
   // если цифра больше 10000 сделать
   move($xak,$yak)
   waitms(380)
   lDown($xak,$yak)
   waitms(255)
   lUp($xak,$yak)
   waitms(2000)
   move($xk,$yk)
   waitms(228)
   lDown($xk,$yk)
   waitms(227)
   lUp($xk,$yk)
   waitms(200)
   SOUND("data/Yes.wav")
   waitms(200)
ELSE
   // если цифра меньше 10000 сделать
   MOVE(145,155)
END_IF


так?

Pages: [1] 2