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

Pages: [1]
1
Использование / Re: Формирование отчетов в 1С
« on: September 12, 2019, 06:57:28 PM »
Проблему отклика я решаю несколькими проверками через циклы for или WHILE
Для примера нажатие кнопки Esc делаем проверку на открытие окна и остановку цикла. Если что-то не сработало, цикл запускает еще один клик и ожидает проверку. Если задать переменную
$Esc = 0 // бесконечное ожидание
будет пауза до выполнения отклика на бесконечный клик кнопки Esc....
Code: (clickermann) [Select]
//--------------------------------  кнопка Esc
FOR($Esc=0, $Esc < 10)
KEYPRESS(#Esc) // кнопка Esc
WAITMS(1000)
GETSCREEN
$bEsc = PXLCOUNT($X-20,$Y+45, $X+20, $Y+55, 3325695) // кнопка Esc   
IF($bEsc > 5)
$Esc = 100
// $Esc = 0 // бесконечное ожидание
END_IF
WAITMS(200)
END_CYC
//--------------------------------

2
Использование / Re: newerwinter online
« on: September 04, 2019, 12:48:27 PM »
Актуальный скрипт для Невера.. Молитва в Невервинтере когда число героев стремится к 50 и растет число акаутов, то молитва становится в тягость. Вот вам скрипт для молитвы любого числа героев от 1 до 4 акаутов. Скрипт написан для экрана 1440х900 пикселей.
Code: (clickermann) [Select]
////////////////////////////////////////////////////////////////////////////////
///////// МОЛИТВА   #name "moLitva"
////////////////////////////////////////////////////////////////////////////////
$X = 720 // координата X половина ширины экрана
$Y = 450 // координата Y половина высоты экрана
$mausX = 415 // кнопка выбора героя координата X
$mausY = 210 // кнопка выбора героя координата Y (нижняя четверть)
$shag = 82 // шаг кнопок героев координата Y

$exsitX = 90 // кнопка Выйти в меню координата X
$exsitY = 850 // кнопка Выйти в меню координата Y
$stroka1X = 400 // строка адреса почты координата X (середина)
$stroka1Y = 475  // строка адреса почты координата Y
$stroka2Y = 570  // строка записи пароля координата Y
$nG1 = 11 // кол Героев 1 акаут

////////////////////////////////////////////////////////////////////////////////
SUB(akaut)
//--------------------------------
FOR($b = 1, $b < 5) // панель меню
GETSCREEN
$count = PXLCOUNT($X-50,5, $X+50,20, 16777215) // надпись версии цвет белый
IF($count > 10)
$b = 10
WAITMS(100)
ELSE
WAITMS(100)
$b = 1
END_IF
END_CYC
//--------------------------------

$ak = $ak + 1
SWITCH($ak)
CASE(1)
$name = "***@yandex.ru" // 1 акаут
$parol = "*****"
CASE(2)
$name = "***@yandex.ru"
$parol = "*****"
$nG = 10 // кол Героев  2 акаут
CASE(3)
$name = "***@yandex.ru"
$parol = "*****"
$nG = 2 // кол Героев 3 акаут
CASE(4)
$name = "***@yandex.ru"
$parol = "*****"
$nG = 2 // кол Героев 4 акаут
END_SWITCH

MOVE($stroka1X,$stroka1Y)
WAITMS(50)
LCLICK($stroka1X,$stroka1Y)
WAIT(1)

KEYPRESS(#End)
WAITMS(100)
WHILE($var < 50)
KEYDOWN(#Backspace)
WAITMS(10)
$var = $var +1
END_CYC
$var = 0
WAIT(1)

TOCLIP($name)
WAITMS(100)
KEYDOWN(#Ctrl)
WAITMS(500)
KEYPRESS(#v)
WAITMS(500)
KEYUP(#Ctrl)
WAIT(1)

MOVE($stroka1X,$stroka2Y)
WAITMS(50)
LCLICK($stroka1X,$stroka2Y)
WAITMS(50)

TOCLIP($parol)
WAITMS(100)
KEYDOWN(#Ctrl)
WAITMS(500)
KEYPRESS(#v)
WAITMS(500)
KEYUP(#Ctrl)
WAIT(1)

KEYPRESS(#Enter)
WAIT(2)
END_SUB
//******************************************************************************

////////////////////////////////////////////////////////////////////////////////
SUB(molitva)
FOR($a = 1, $a < 5)
GETSCREEN
$count = PXLCOUNT($X*2-190,$Y-423, $X*2-45,$Y-405, 15137023) // название области
IF($count > 10)
//LOGWRITE ("color : " $count)
$a = 10
WAIT(1) // откат на загрузку области

FOR($tm = 1, $tm < 7)  // молитва
GETSCREEN
COLORMODE(6, $X*2-280,$Y-374, $X*2-250, $Y-365)
$conCHAS = PXLCOUNT($X*2-280,$Y-374, $X*2-250, $Y-365, 16777215) // часы молитвы
IF($conCHAS > 5)
KEYDOWN(#Ctrl)
WAITMS(100)
KEYPRESS(#i)
WAITMS(100)
KEYUP(#Ctrl)
$molitva = 1
WAITMS(1000) // время на срабатывание молитвы
//----------------  окно молитвы перебор  ----------------
GETSCREEN
$m14 = PXLCOUNT($X-20,$Y+45, $X+20, $Y+60, 3325695)
IF($m14 > 10)
MOVE($X+150,$Y+50) // кнопка Молельня
WAITMS(50)
LCLICK($X+150,$Y+50)
WAIT(2)

MOVE($X-200,$Y-240) // панель Небесное содействие
WAITMS(50)
DBLCLICK($X-200,$Y-240)
WAIT(1)

MOVE($X-200,$Y+30) // сундук
WAITMS(50)
DBLCLICK($X-200,$Y+30)
WAIT(1)

MOVE($X+100,$Y+40) // кнопка ОК
WAITMS(50)
LCLICK($X+100,$Y+40)
WAIT(1)

LOGWRITE ("14" $nGer)
END_IF
//--------------------------------
END_IF

WAITMS(50)
GETSCREEN
COLORMODE(6, $X*2-280,$Y-374, $X*2-250, $Y-365)
$conCHAS = PXLCOUNT($X*2-280,$Y-374, $X*2-250, $Y-365, 16777215) // часы молитвы
IF(($conCHAS < 5) & ($molitva = 1))
$tm = 100
LOGWRITE ("молитва" $nGer)
END_IF
//-------------------------------- зависли
IF(($tm = 6) & ($molitva = 1))
$tm = 0
LOGWRITE ("ЛАГИ" $nGer)
END_IF
//--------------------------------
WAITMS(500)
END_CYC
$molitva = 0

//--------------  Отказ от группы ------------------
WAITMS(10)
KEYDOWN(#Shift)
WAITMS(50)
KEYPRESS(#2)
WAITMS(50)
KEYUP(#Shift)
WAITMS(50)
//--------------------------------

//--------------------------------  кнопка Esc
FOR($Esc=0, $Esc < 10)
KEYPRESS(#Esc) // кнопка Esc
WAITMS(1000)
GETSCREEN
$bEsc = PXLCOUNT($X-20,$Y+45, $X+20, $Y+55, 3325695) // кнопка Esc   
IF($bEsc > 5)
$Esc = 100
END_IF
WAITMS(200)
END_CYC
//--------------------------------

if ($nGer = $nG) //*** выход в меню
MOVE($X,$Y+50)
WAITMS(50)
LCLICK($X,$Y+50)
ELSE //*** выход в панель героев
MOVE($X,$Y+20)
WAITMS(50)
LCLICK($X,$Y+20)
END_IF

WAIT(1)
MOVE($X+100,$Y+40) // кнопка ОК
WAITMS(50)
LCLICK($X+100,$Y+40)
WAIT(1)
ELSE
WAITMS(100) //задержка на загрузку
$a = 1
END_IF
END_CYC

END_SUB
//******************************************************************************

////////////////////////////////////////////////////////////////////////////////
SUB(geroi) // выход в панель героев
FOR($b = 1, $b < 5)
GETSCREEN
$count = PXLCOUNT($X-50,5, $X+50,20, 16777215) // надпись версии цвет белый
$countM = PXLCOUNT($exsitX-50,$exsitY-5, $exsitX+50,$exsitY+5, 3325695) // надпись Выйти в меню
IF(($count > 10) & ($countM > 10))
$b = 10
WAIT(1)
ELSE
WAITMS(100)
$b = 1
END_IF
END_CYC
END_SUB
//******************************************************************************

////////////////////////////////////////////////////////////////////////////////
#name "moLitva"  //////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

IF($ak = 0)
$ak = 1
$nG = $nG1 // кол Героев 1 акаут
END_IF

if(($nG > $nGer-1) & ($nGer < 7))
geroi()
$mY = $shag*$nGer + $mausY
$nGer = $nGer +1
MOVE($mausX,$mY)
WAITMS(50)
LCLICK($mausX,$mY)
WAITMS(500) 
LCLICK($mausX,$mY)
WAITMS(100)
//**********
WHILE($var < $nG)
WHEELUP(4)
WAITMS(50)
$var = $var +1
END_CYC
$var = 0
//**********
WAIT(1)
LCLICK($mausX,$mY)
WAITMS(100)
DBLCLICK($mausX,$mY)
molitva()
WAITMS(100)
LOGWRITE ("n Geroi - " $nGer)
END_IF
//--------------------------------

if(($nG > $nGer) & ($nGer > 6))  // герои с прокруткой
geroi()
$mY1 = $shag*6 + $mausY
$nGer = $nGer +1
MOVE($mausX,$mY1)
WAITMS(50)
LCLICK($mausX,$mY1)
WAITMS(50)
WHEELDOWN (4)
WAIT(1)
DBLCLICK($mausX,$mY1)
molitva()
WAITMS(100)
LOGWRITE ("Rol Geroi - " $nGer)
END_IF
//******************************************************************************
if (($nGer = $nG) & ($ak ! 4))  // переход на другой акаут
akaut()
$nGer = 0
END_IF

if (($nGer = $nG) & ($ak = 4)) // 1 акаут возврат
$ak = 0
akaut()
WAITMS(50)
HALT // остановка скрипта
END_IF
//***********

Pages: [1]