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 - Hairover

Pages: [1]
1
Общие вопросы / Re: Клинит скрипт
« on: December 06, 2016, 01:11:03 PM »
Quote from: Vint on December 06, 2016, 12:19:27 PM

строка 51, не было задано начальное значение переменной цикла.
Code: (clickermann) [Select]
for($i=0, $i < 25)

А понял. При перезапуске скрипта переменная $i уже равна 25. Поэтому ничего не срабатывает и проходит мимо цикла как раз к строкам 63-67.
Спасибо большое всем кто помог! Вы супер!

2
Общие вопросы / Re: Клинит скрипт
« on: December 06, 2016, 12:17:27 PM »
Quote from: kiril on December 06, 2016, 11:55:19 AM
а если так...
[spoiler]
Code: (clickermann) [Select]
$ym = 205

//Запись подпрограммы Copy
sub(copy)
   //Копируем адреса почт
   WAITMS(50)
   LCLICK(210,1060)
   WAITMS(50)
   MOVE(270,$ym)
   WAITMS(1500)
   MOVE($_xmouse+100, $_ymouse+100)
   LCLICK($_xmouse, $_ymouse)
   LCLICK($_xmouse, $_ymouse)
   LCLICK($_xmouse, $_ymouse)
   WAITMS(50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#C)
   WAITMS (50)
   KEYUP (#C)
   KEYUP (#CTRL)
   WAITMS (300)
   
end_sub
//Конец подпрограммы Copy

//Запись подпрограммы Past
sub(past)
   //Вставляем адреса почт в Excel
   WAITMS(50)
   LCLICK(280,1060)
   WAITMS(50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS(50)
   KEYDOWN (#ENTER)
   WAITMS (50)
   KEYUP (#ENTER)
   WAITMS (300)
   
end_sub
//Конец подпрограммы Past



//Вызов подпрограммы (цикл)
for($i=0, $i < 25)
   copy()
   WAITMS(200)
   past()
   if($i = 12)
      $ym = $ym-8
   end_if
   $ym = $ym+26
   HINTPOPUP(" выполнил цикл раз ",$i)
end_cyc

WAITMS(200)

LCLICK(210,1060)
WAITMS(200)
LCLICK(1780,170)
WAITMS(200)
LCLICK(280,1060)
LOGWRITE ("переход в начало скрипта")
HINTPOPUP(" ", "переход в начало скрипта")
[/spoiler]
Так работает!!! Как такое может быть что POPUP помог?

3
Общие вопросы / Клинит скрипт
« on: December 06, 2016, 11:20:45 AM »
Доброго времени суток!
Скрипт работает нормально, НО КЛИНИТ при добавлении строк 64-68. Начинает эти строки крутить покругу и скрипт на начало не переходит.
Вроде простые клики с ожиданием, а такая засада.
Помогите разобраться, братцы. :-[
Code: (clickermann) [Select]
$ym = 205

//Запись подпрограммы Copy
sub(copy)
//Копируем адреса почт
WAITMS(50)
LCLICK(210,1060)
WAITMS(50)
MOVE(270,$ym)
WAITMS(1500)
MOVE($_xmouse+100, $_ymouse+100)
  LCLICK($_xmouse, $_ymouse)
  LCLICK($_xmouse, $_ymouse)
  LCLICK($_xmouse, $_ymouse)
WAITMS(50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (300)

end_sub
//Конец подпрограммы Copy

//Запись подпрограммы Past
sub(past)
//Вставляем адреса почт в Excel
WAITMS(50)
LCLICK(280,1060)
WAITMS(50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS(50)
KEYDOWN (#ENTER)
WAITMS (50)
KEYUP (#ENTER)
WAITMS (300)

end_sub
//Конец подпрограммы Past



//Вызов подпрограммы (цикл)
for($i, $i < 25)
 copy()
 WAITMS(200)
 past()
  if($i = 12)
   $ym = $ym-8
  end_if
 $ym = $ym+26
end_cyc

WAITMS(200)

LCLICK(210,1060)
WAITMS(200)
LCLICK(1780,170)
WAITMS(200)
LCLICK(280,1060)

4
Использование / Re: CLDMine - оптимизируем добычу валюты
« on: April 28, 2016, 11:58:53 AM »
Немного перебрал код.
Убрал постоянный обмен валют на мощности. (реинвест есть ведь)

Code: (clickermann) [Select]

(18.03.2016)
 
#name "CLDMine_1"
 
 
//---------------------------------
SUB(past) //вставить "Ctrl+V"
   LCLICK(400,49))
   WAITMS(500)
 
KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#A)
   WAITMS (50)
   KEYUP (#A)
   KEYUP (#CTRL)
 
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   KEYPRESS(#ENTER)
   WAITMS ( RND (5361,6240))
END_SUB
//---------------------------------
 
 
WAITMS ( RND (1361,2540))
TOCLIP("https://cldmine.com/calculator")
past()
WAITMS(500)
WHILE($al = 0)
   DBLCLICK(705,650) // äîõîä â ...
   WAITMS(300)
   
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#C)
   WAITMS (50)
   KEYUP (#C)
   KEYUP (#CTRL)
   $tw = FROMCLIP()
   WAITMS (50)
   $val = STRFILTER($tw,"BTCLTCDOGETHBLKFTCLAMNMCRDDASH", 1) //выборка из валют
   WAITMS (250)
   IF($val ! $val2)
      $al = 1
   else
WAITMS ( RND (375,425))
HINTPOPUP("Ждем ", " 15 минут ")
      WAIT (900)

      TOCLIP("https://cldmine.com/calculator")
      past()     
   END_IF           
END_CYC
$al=0
TOCLIP("https://cldmine.com/mining")
past()
//-----------
LCLICK(0,622)  // 16448250
WAITMS ( RND (461,854))
FOR($a,$a < 5)  // масштаб 50%
   WAITMS(200)
   KEYDOWN (#CTRL)
   WAITMS (150)
   KEYDOWN (189)
   WAITMS (150)
   KEYUP (189)
   KEYUP (#CTRL)
   WAITMS ( RND (1261,1740))
END_CYC
$a=0
WAITMS (150)
KEYPRESS(#PAGEDOWN)
WAITMS ( RND (461,854))
 
switch($val)

CASE(BTC)
   LCLICK(840+rnd(-10,10),262+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(LTC)
   LCLICK(840+rnd(-10,10),308+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DOGE)
   LCLICK(840+rnd(-10,10),353+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(ETH)
   LCLICK(840+rnd(-10,10),398+rnd(-3,3))
   WAITMS ( RND (6461,8540))   
case(BLK)
   LCLICK(840+rnd(-10,10),443+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(CLAM)
   LCLICK(840+rnd(-10,10),487+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DASH)
   LCLICK(840+rnd(-10,10),532+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(FTC)
   LCLICK(840+rnd(-10,10),578+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(NMC)
   LCLICK(840+rnd(-10,10),622+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(RDD)
   LCLICK(840+rnd(-10,10),667+rnd(-3,3))
   WAITMS ( RND (6461,8540))
end_switch
$val2= $val
$val =0
KEYPRESS(#PAGEUP)
WAITMS ( RND (461,854))
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#0)
WAITMS (50)
KEYUP (#0)
KEYUP (#CTRL)
WAITMS(200)
//-----------
Но теперь другой вопрос появился.

Как бы WinAPI сюда подоткнуть.
На форуме почитал > понял > стал делать > не получилось > понял, что ничего не понял.
Что за message, wParam и lParam?

Поподробнее бы это все. Так ведь хорошо когда Кликерман работает и тебе не мешает.

5
Общие вопросы / Адаптация iMacros
« on: April 23, 2016, 01:39:56 AM »
Всемогущий админ меня наверное выгонит из форума за это. Простите грешного.

На VPS сервере не хочет работать Кликерман (мой любимый Кликерман), но работает iMacros.
Я решил пусть уж макрос там работать будет.

Но я ниХера не могу разобраться в этом АйМакросе. Потому как нет нормального мануальчика по этой Херовой АйМакросне.

Может кто сможет помочь с адаптацией а?

Код под спойлером.
[spoiler]
Code: (clickermann) [Select]
(18.03.2016)
 
#name "CLDMine_1"
 
 
//---------------------------------
SUB(past) //ýòî ïàðàìåòð "Ctrl+V"
   LCLICK(400,49))
   WAITMS(500)
 
     KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#A)
   WAITMS (50)
   KEYUP (#A)
   KEYUP (#CTRL)
 
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   KEYPRESS(#ENTER)
   WAIT ( RND (15,16))
END_SUB
//---------------------------------
 
 
WAIT ( RND (3,4))
TOCLIP("https://cldmine.com/calculator")
past()
WAITMS(500)
WHILE($al = 0)
   DBLCLICK(705,650) // äîõîä â ...
   WAITMS(300)
   
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#C)
   WAITMS (50)
   KEYUP (#C)
   KEYUP (#CTRL)
   $tw = FROMCLIP()
   WAITMS (50)
   $val = STRFILTER($tw,"BTCLTCDOGETHBLKFTCLAMNMCRDDASH", 1)//DOGELTCLAMNBRDSHKF
   WAITMS (250)
   IF($val ! $val2)
      $al = 1
   else
            WAITMS ( RND (375,425))
            HINTPOPUP(" ÆÄÅÌ ", " 5 ìèíóò ")
      WAIT (300)
      TOCLIP("https://cldmine.com/calculator")
      past()     
   END_IF
END_CYC
$al=0
TOCLIP("https://cldmine.com/mining")
past()
//-----------
LCLICK(0,622)  // 16448250
WAITMS ( RND (461,854))
FOR($a,$a < 5)  // ìàñøòàá 50%
   WAITMS(200)
   KEYDOWN (#CTRL)
   WAITMS (150)
   KEYDOWN (189)
   WAITMS (150)
   KEYUP (189)
   KEYUP (#CTRL)
   WAITMS ( RND (2300,3000))
END_CYC
$a=0
WAIT (3)
KEYPRESS(#PAGEDOWN)
WAITMS ( RND (800,1500))
 
switch($val)

CASE(BTC)
   LCLICK(823+rnd(-10,10),252+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(LTC)
   LCLICK(823+rnd(-10,10),295+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DOGE)
   LCLICK(823+rnd(-10,10),340+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(ETH)
   LCLICK(823+rnd(-10,10),387+rnd(-3,3))
   WAITMS ( RND (6461,8540))   
case(BLK)
   LCLICK(823+rnd(-10,10),432+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(CLAM)
   LCLICK(823+rnd(-10,10),477+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DASH)
   LCLICK(823+rnd(-10,10),522+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(FTC)
   LCLICK(823+rnd(-10,10),568+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(NMC)
   LCLICK(823+rnd(-10,10),612+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(RDD)
   LCLICK(823+rnd(-10,10),657+rnd(-3,3))
   WAITMS ( RND (6461,8540))
end_switch
$val2= $val
$val =0
KEYPRESS(#PAGEUP)
WAITMS ( RND (461,854))
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#0)
WAITMS (50)
KEYUP (#0)
KEYUP (#CTRL)
WAITMS(4500)
//-----------
[/spoiler]

6
Использование / Re: CLDMine - оптимизируем добычу валюты
« on: April 12, 2016, 12:36:58 PM »
В этой статье написалb, что можно на VPS-сервере Кликерман запустить и он будет работать.
Но на деле не получаеЦа. Выхожу из сервера и Кликерман замирает в ожидании когда я снова зайду.
Может секрет какой есть?

И еще вопрос. Как отправлять личные сообщения здесь? Пароль какой-то требует!

7
Использование / Re: Бот для биткоин крана
« on: March 29, 2016, 08:09:42 AM »
Quote from: Oraven on March 29, 2016, 07:42:03 AM
Лишь бы куда гото запихать...
Code: (clickermann) [Select]
getscreen
if(pxl(430,655) = 3407667)
   WAITMS(100)
   lclick(413,334)
   WAITMS(400)
else
   WAITMS(50)
end_if
Здесь вообще конца функции не было
Code: (clickermann) [Select]
getscreen
if(pxl (365, 435) = 3407667)
   lclick(275, 415)
   WAITMS(500)
ELSE
   lclick(240, 415)
   WAITMS(500)
end_if

$r = rnd(1,2)
SWITCH($r)
CASE(1)
   lclick(430, 405)
CASE(2)
   lclick(570, 405)
DEFAULT
END_SWITCH
WAITMS(500)

На то Вы и супермодератор. :D Кстати и без конца функции тоже почему то работало. ???

Все таки зря я гото везде запихиваю.
Самое интересное, что код с каждым разом всё короче становится.
Но до супермодератора мне пока далеко, как муравью до луны.

8
Использование / Re: Бот для биткоин крана
« on: March 28, 2016, 02:35:13 PM »
Не очень удобный сайт для заработка криптовалют.

Я кликерман приспособил для Биткойна и Догекойна.
http://freebitco.in
http://freedoge.co.in
Это родственные сайты и оформление у них однотипное.
Можно каждый час краник доить, но это не для нас Кликерманьщиков. 8)
Переходим в режим MULTIPLY (это типо лотерейка)
Есть два режима (автоматический и ручной)
Код для автоматического режима:
Code: (clickermann) [Select]
start:
getscreen

if(pxl(430, 655) = 3407667)
   WAITMS(100)
   lclick(413, 334)
else
   goto(start)
end_if

WAITMS(400)
Код для ручного режима:
Code: (clickermann) [Select]
$var = rnd(1,2)
getscreen

if(pxl (365, 435) = 3407667)
lclick(275, 415)
goto(two)
end_if

one:
lclick(240, 415)

two:
WAITMS(500)
switch($var)
   case(1)
      lclick(430, 405)
   case(2)
      lclick(570, 405)
WAITMS(500)

Вообщем принцип такой:
Жмем кнопку
если
выиграли - начинаем с начала;
если
проиграли - умножаем ставку на 2;(и пока не выиграем умножаем ставку)

Для этого надо сначала накопить подушку безопасности, бесплатно каждый час дают немного. Я рекомендую запас 4000 сатоши для ставки 1 сатоши.

Надеюсь полезен мой комментарий.
А может тему отдельную забабахать?


Pages: [1]