Немного допилил скриптец:
getscreen // делаем скрин
/$pfx="rsLiker2" // задаём каждый раз одно общее префикс-имя файлов со скринами
$pfx=inputbox("Plz input your desirable name for screen.bmp: ", "temp", 60)
if ($pfx="")
halt
end_if
$svto="H:\dlz\op\clickermann_last\Clickermann v4.12\projects\" // указываем папку сохранёнок
$fl1=strconcat($svto,$pfx,"++.bmp")
$fl2=strconcat($svto,$pfx,"+.bmp")
$fl3=strconcat($svto,$pfx,".bmp")
$xm=$_xmouse
$ym=$_ymouse
$xmm=$xm+100 // указываем ширину скриншота ..
$ymm=$ym+100 // и его высоту (с учётом дальнейшей обрезки 10-пискельной цветной рамки по периметру, т. е. получим 30х30)
if (($xmm < $_xmax) & ($ymm < $_xmax))
PXLREPLACE($xm,$ym, $xmm,$ym+10, -1, 255) // выделяем толстым красным молдингом на большом скрине всего экрана ту область, которая кропнется
PXLREPLACE($xm,$ym+10, $xm+10,$ymm-10, -1, 255)
PXLREPLACE($xmm-10,$ym+10, $xmm,$ymm-10, -1, 255)
PXLREPLACE($xm,$ymm-10, $xmm,$ymm, -1, 255)
else
...
end_if
screenshotfix(0,0, $_xmax,$_ymax, $fl1) // сохраняем общий скриншот всего экрана с выделением рабочей области красной кромкой
//делаю для истории, а также для сохранения точной позиции рабочей области и окружающих элементов
screenshotfix($xm+11,$ym+11, $xmm-10,$ymm-10, $fl2) // делаем сплайс той области, на которую наведён курсор (чуть ниже и правее курсора)
screenshotfix($xm+11,$ym+11, $xmm-10,$ymm-10, $fl3) // тот же сплайс, но его уже можно тщательнее обрезать в редакторе типа Пейнта и сохр.
print("Screenz '",$pfx,"' saveddd! rnd= ", RND(100,1000))
$clpbd=strconcat($fl3, " getscreen // if_picture_in (0,0, $_xmax,$_ymax, ",$pfx,".bmp) // if_picture_in (",$xm+11,",",$ym+11,", $_xmax-",$_xmax-($xmm+10),",$_ymax-",$_ymax-($ymm+10),", ",$pfx,".bmp) // if_picture_in (",$xm+11,",",$ym+11,", ",$xmm-10,",",$ymm-10,", ",$pfx,".bmp) // ",$_xmax+1,"*",$_ymax+1," // if_picture_in ($_xmax-",$_xmax-($xm+11),",$_ymax-",$_ymax-($ym+11),", $_xmax-",$_xmax-($xmm+10),",$_ymax-",$_ymax-($ymm+10),", ",$pfx,".bmp) end_if")
toclip($clpbd)
wait(1)
//execute($fl3)
//toclip($fl3)
$nir=strconcat("nircmd.exe execmd ", $pfx,".bmp")
tfwrite("screen.bat", $nir, 1)
execute("screen.bat")
wait(3)
tfclear("screen.bat")
// automize your Paint
rclick(135,66) / selection
waitms(100)
rclick(135,28) / view tab
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(33,75) / zoom
waitms(100)
rclick(77,38) / edit tab
waitms(100)
halt
(02/08/2017) Вместо внутренней переменной скрипта добавил поле ввода, чтоб каждый раз не лазить редактировать скрипт. Также добавил в конце execute($fl3), которое попытается открыть нужный кроплёный файл.бмп в вашем редакторе (который присвоен расширению БМП у вас в системе по умолчанию) для последующей обрезки, но если у вас Клмн не добавлен в ДЕП-список (или не может быть туда добавлен ввиду своей 64-разрядности, как в моём случае), то файл у вас НЕ откроется, а просто в конце работы скрипта (через секунду)) в буфер обмена будет скопирован путь к рисунку (путь к файлу копируется вместе с функцией ифпикин, которую надо будет удалить при вставке в графический редактор и вставить в ваш скрипт), и картинку можно будет быстро открыть через редактор (без долгого блуждания по файл-менеджеру). Кроме этого, увеличил размер кроп-зоны с 50*50 до 100*100, имхо стало удобнее целиться курсором.
ПС. К ифпикину добавлены гетскрин+эндиф, останется только после вставки в скрипт их оградить своими абзацами. И сейчас обнаружилась ещё одна досадность с тем, что при открытии инпут-бокса кликер не даёт на него фокус, т. е. придётся сперва курсором дать фокус на поле ввода или на заголовок открывшейся формы, а после этого вернуть курсор обратно на ту позицию, в месте которой надо снять скрин, хотя зачастую в других скриптах такое поведение кликера с фокусом и будет желательным (чтоб не брал на себя фокус), но не здесь. Но оказалось (после очередной тестовой итерации), что хорошая новость: если перед запуском фокус был на окне кликера, то фокус на инпуте всё же есть, то бишь перед запуском скрипта желательно кликнуть по заголовку Клмна и только потом уже наводить мышь на подлежащий скриншоттингу объект. А чтобы не было трабла с кавычками, в ифпикина вставляется только имя файла с расширением, без полного пути.
PPS. Решил не доверять открытие рисунка Кликерманну (потому как он косячит с DEP), а проделать это через батник, создаваемый прямо в скрипте и открываемый без всплывающих чёрных окон ДОСа, для этого требуется NirCMD в вашей папке Windows/Shell32. Тестовое открытие прошло успешно. Если же вам этот функционал не нужон, то закаментьте пять строк начиная с $nir. (03.08.17) Вставил в конце маленькую автоматизашку для Пейнта, но туда надо вводить координаты ваших кнопок на вашем экране (с вашим разрешением), она позволяет максимально призумить получившуюся кропку 100*100. Плюс функция быстрого импорта полученных ифпикинов теперь предлагает целых 4 варианта вместо прежних двух, например:
getscreen
if_picture_in (0,0, $_xmax,$_ymax, temp.bmp) // Весь экран
if_picture_in (519,478, $_xmax-661,$_ymax-382, temp.bmp) // Начало задано абсолютно, конечная точка -- относительно
if_picture_in (519,478, 598,557, temp.bmp) // 1280*960, абсолютные показатели + разрешение экрана
if_picture_in ($_xmax-760,$_ymax-481, $_xmax-661,$_ymax-382, temp.bmp) // Относительные размеры
end_if
