Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Доброе утро, форумчане.
Есть вопрос.
Можно ли скриптом записать общую длину пути курсора мыши по экрану ?
Допустим - если нажать F1 - то начинается подсчет пути курсора, а при нажатии F2 - этот подсчет заканчивается и длина пути записывается в файл txt.
Или это нельзя сделать в autohotkey.
Ragnar Lodbrokovitch, а вы расстояние между двумя точками с координатами умеете вычислять?
Можно ли скриптом записать общую длину пути курсора мыши по экрану ?
Можно. MouseGetPos
stealzy, там не две точки - а вообще весь путь проделанный курсором.
Ragnar Lodbrokovitch, вы не ответили на мой вопрос. Умеете или нет?
stealzy, расстояние между двумя точками - вычисляется как гипотенуза.
Ну вот, вычислить расстояние между двумя координатами вы можете, как взять координаты выше подсказали.
Осталось только соединить все точки пути между собой, не так ли?
Не понимаю.
Про какие именно точки идет речь ?
Я спрашивал - можно ли измерить - какой путь прошел курсор, когда им какое-то время подвигали по экрану.
Ragnar Lodbrokovitch, а зачем Вам знать путь, проделанный курсором мыши?
Координаты на экране, какие еще точки это могут быть?
То что путь состоит из отрезков, тоже не понятно?
ypppu, чтобы общий пробег определить.
Вот кстати похожая программа:
stealzy мышка ходит например - по кругу или восьмеркой.
Ну какие тут отрезки ?
Ragnar Lodbrokovitch, это я и так понимаю. А цель-то какая преследуется?
#NoEnv
#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,Screen
mousegetpos,oldx,oldy
loop
{
sleep,10
mousegetpos,x,y
var+=Sqrt(abs(x-oldx)**2+abs(y-oldy)**2)
oldx:=x
oldy:=y
tooltip,% var
}Alectric, а как подключить на подсчет пути - клавиши - F1 для запуска, и F2 для записи результата в txt
Alectric, недоделали работу! 
Alectric, недоделали работу!
Если честно, надоели ваши подколки и язвление. Прекратите язвить, пожалуйста.
как подключить на подсчет пути - клавиши
Изучай. Пробуй. Если не получится - показывай свой код, подскажем.
Alectric
Вот у меня получился такой код.
#NoEnv
#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,Screen
F1::
off := 1
Loop
{
mousegetpos,oldx,oldy
If off = 0
loop
{
sleep,10
mousegetpos,x,y
var+=Sqrt(abs(x-oldx)**2+abs(y-oldy)**2)
oldx:=x
oldy:=y
tooltip,% var
}
}
return
F2::
off := 0
Return
Правда включается он не по клавише F1, а почему-то по клавише F2.
И выключить с записью результата в txt - не получается.
Подскажите - как это сделать ?
Второй цикл здесь лишний. И чтобы завершить цикл нужно выполнить команду break.
#NoEnv
#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,Screen
F1::
off := 1
mousegetpos,oldx,oldy
Loop
{
If off = 1
{
sleep,10
mousegetpos,x,y
var+=Sqrt(abs(x-oldx)**2+abs(y-oldy)**2)
oldx:=x
oldy:=y
tooltip,% var
}
else
break
}
return
F2::
off := 0
msgbox,Замени меня на FileAppend. Мышка проехала %var% пикселей.
Return
не по клавише F1
Потому-что в условии так написано "If off = 0" - "если переменная "off" равна нулю".
записью результата в txt
Нужно выполнить FileAppend в момент выключения.
Получился скрипт:
#NoEnv
#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,Screen
F1::
off := 1
mousegetpos,oldx,oldy
Loop
{
If off = 1
{
sleep,10
mousegetpos,x,y
var+=Sqrt(abs(x-oldx)**2+abs(y-oldy)**2)
oldx:=x
oldy:=y
tooltip,% var
}
else
break
}
return
F2::
off := 0
;msgbox,Замени меня на FileAppend. Мышка проехала %var% пикселей.
FileAppend, %var%, %A_ScriptDir%\пробег мыши.txt
Return
Он в целом работает, но выводит результаты при периодическом использовании :
4472.7224186636.588887
То есть в одну кучу их кидает в txt.
Как поменять этот код, чтобы итоговый результат - перезаписывал бы старый результат, а после нажатия F2 и записи в файл - скрипт закрывался бы ?
Alectric, а выйти как из этой программы ?
Почему Exit здесь не срабатывает ?
#NoEnv
#SingleInstance,Force
SetBatchLines,-1
CoordMode,Mouse,Screen
F1::
off := 1
mousegetpos,oldx,oldy
Loop
{
If off = 1
{
sleep,10
mousegetpos,x,y
var+=Sqrt(abs(x-oldx)**2+abs(y-oldy)**2)
oldx:=x
oldy:=y
;tooltip,% var
}
else
break
}
return
F2::
off := 0
;msgbox,Замени меня на FileAppend. Мышка проехала %var% пикселей.
FileDelete %A_Scriptdir%\пробег мыши.txt
FileAppend, %var%, %A_ScriptDir%\пробег мыши.txt
Exit
;Return
Alectric, спасибо.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
