Topics

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

Общие вопросы / 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)

3

Общие вопросы / проверка работы скрипта

« 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


4

Общие вопросы / граб 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>)
"

5

Общие вопросы / включит - отключить

« on: October 04, 2015, 09:43:45 AM »

  возможно: включит или отключить самому из файла config.cms кусок скрипта?

скажем: у меня в игре есть или нет "свинарники"
я записываю в config.cms переменную $svin = , если $svin =1 скрипт собрал мясо, если $svin =0 пропустил "свинарники".

Code: [Select]

//подключение config
#include "config.cms"

//в конфиге есть переменная, скажем $svin =

//если $svin = 1 делать

 //соьрать мясо
#include "svin.cms"

// если  $svin = 0 пропустить

// конец


6

Общие вопросы / проверка буфера

« on: October 04, 2015, 09:23:40 AM »

что дописать?

Code: [Select]

// проверка скопированного
// скопироват с сайта цифры
waitms(100)
  lDown(271,952)
waitms(300)
  lUp(319,955)
waitms(200)
  keyDown(162) // непонятная клавиша
waitms(0)
  keyDown(#CTRL)
waitms(900)
  keyDown(#С)
waitms(300)
  keyUp(#С)
waitms(20)
  keyUp(#CTRL)
waitms(0)
  keyUp(160)
waitms(100)

// проверит цифры из буфера, скажем в буфере "916,50"

// если цифра больше 10000 сделать

  wait(2)
  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")

// если цифра менше 10000 сделать

else

MOVE(145,155)

// что в конце?