SetWorkingDir %A_ScriptDir%
text := "PixelSearch,,,"
P := "`,"
O := ";"
Name := "A_RESULT"
Name_Title := "A_RESULT.txt"
vkC0:: ; ~(Ё)
{
MouseGetPos, MouseX, MouseY
WinGetActiveTitle, Title
WinGetPos, Xm, Ym, Wm, Hm, %Title%
InputBox, UserInput
PixelGetColor, color, %MouseX%, %MouseY%
xvar := MouseX/A_ScreenWidth
yVar := MouseY/A_ScreenHeight
x = Round((Xm+Wm)*%xVar%)
y = Round((Ym+Hm)*%yVar%)
FileAppend, %text% %x%%P% %y%%P% %x%%P% %y%%P% %color%%P%%P% fast %O% (%MouseX%%P% %MouseY%) %UserInput%, %Name_Title%
FileAppend, `nif ErrorLevel = 0, %Name_Title%
FileAppend, `n`n, %Name_Title%
Process, Close, %PID1%
Run, %Name%.txt,, Min, PID1
WinActivate, %Title%
}
ReturnДописал скрипт, чтобы на будущее "фотографировать" пиксели с алгоритмом масштабирования. Можете дополнить если есть какие идеи.
]]>
WinGetPos, Xm, Ym, Wm, Hm, ahk_class NAME
NumPad2::
PixelSearch,,, Round(Wm*0.0098958333333333), Round(Hm*0.7407407407407407), Round(Wm*0.0098958333333333), Round(Hm*0.7407407407407407), 0x333333,, fast
if !ErrorLevel
MsgBox, Успешно!
ReturnИ все координаты прекрасно работают!
WinGetPos в цикл тогда напишу, а то если запустить скрипт с отсутствием ahk_class NAME, то WinGetPos вначале скрипта бесполезен будет после запуска ahk_class NAME.
]]>Round округляет с .5 , сотые, тысячные и т.д. берутся в расчет?
В (даже) русском хелпе написано:
параметр Number округляется до ближайшего целого числа.
И зачем сотые, тысячные, когда округлять нам надо до целого числа, и единственное что нам интересно, это десятые. Это уже не школьная программа, это детский сад какой то.
]]>