Серый форум — AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (Тимур) — Fri, 18 Sep 2015 19:28:33 +0000

teadrinker, Просто похожие вопросы. Думал ответ легче будет найти в этой теме. Наверное, будет лучше создать отдельную тему. Прошу прощения.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Fri, 18 Sep 2015 19:23:40 +0000

Тимур, а какое отношение ваш вопрос имеет к этой теме?

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (Тимур) — Fri, 18 Sep 2015 18:07:09 +0000

Помогите, пожалуйста, исправить код.
Нужно, чтобы курсор запомнил своё текущее положение, переместился в определенных экранных координатах, нажал правую кнопку мыши и вернулся в исходное положение.
Но при этом хотелось бы иметь возможность физически управлять перемещением мыши, а скрипт независимо от этого выполнял свою функцию.
Нижеприведенный код работает, только если не управлять мышью физически.

sy:= A_ScreenHeight*(990/1024)
sx:= A_ScreenWidth*(30/1280)
MouseGetPos x, y
MouseClick R, %sx%, %sy%, 1, 0
MouseMove %x%, %y%, 0

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Tue, 22 Jul 2014 16:15:30 +0000

Обновите AHK.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (S.shipilov) — Tue, 22 Jul 2014 15:52:45 +0000

Добрый день.

teadrinker пишет:

Курсор должен быть перемещён в точку (500, 500) в экранных координатах. А у вас что получается?

Ничего не происходит.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Tue, 15 Jul 2014 12:37:37 +0000

Курсор должен быть перемещён в точку (500, 500) в экранных координатах. А у вас что получается?

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (S.shipilov) — Tue, 15 Jul 2014 12:24:22 +0000

teadrinker пишет:

API_SendInputMouse(500, 500)

API_SendInputMouse(x, y)
{
   static INPUT_MOUSE := 0, MOUSEEVENTF_ABSOLUTE := 0x8000, MOUSEEVENTF_MOVE := 1
   
   VarSetCapacity(INPUT, SizeOfINPUT := A_PtrSize + 4*4 + 2*A_PtrSize)
   NumPut(INPUT_MOUSE, INPUT, "UInt")
   NumPut(Round(x/A_ScreenWidth*0xFFFF), INPUT, A_PtrSize, "UInt")
   NumPut(Round(y/A_ScreenHeight*0xFFFF), INPUT, A_PtrSize + 4, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*2, "UInt")
   NumPut(MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_MOVE, INPUT, A_PtrSize + 4*3, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*4, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*4 + A_PtrSize)
   
   DllCall("SendInput", UInt, 1, Ptr, &INPUT, Int, SizeOfINPUT)
}

прошу прощения, но каков должен быть результат запуска данного кода?

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Mon, 14 Jul 2014 21:37:43 +0000

API_SendInputMouse(500, 500)

API_SendInputMouse(x, y)
{
   static INPUT_MOUSE := 0, MOUSEEVENTF_ABSOLUTE := 0x8000, MOUSEEVENTF_MOVE := 1
   
   VarSetCapacity(INPUT, SizeOfINPUT := A_PtrSize + 4*4 + 2*A_PtrSize)
   NumPut(INPUT_MOUSE, INPUT, "UInt")
   NumPut(Round(x/A_ScreenWidth*0xFFFF), INPUT, A_PtrSize, "UInt")
   NumPut(Round(y/A_ScreenHeight*0xFFFF), INPUT, A_PtrSize + 4, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*2, "UInt")
   NumPut(MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_MOVE, INPUT, A_PtrSize + 4*3, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*4, "UInt")
   NumPut(0, INPUT, A_PtrSize + 4*4 + A_PtrSize)
   
   DllCall("SendInput", UInt, 1, Ptr, &INPUT, Int, SizeOfINPUT)
}

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (S.shipilov) — Mon, 14 Jul 2014 13:24:36 +0000

teadrinker пишет:

Winapi функция SendInput также не предоставляет возможности управления скоростью перемещения курсора между двумя точками.

Спасибо. Далее вопрос имеет сугубо академический характер нежели практический поскольку основное пожелание к работе с Winapi функцией SendInput не выполнимо.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Sat, 12 Jul 2014 15:41:17 +0000

Вывод: winapi функции mouse_event и SendInput с указанием относительных координат не годятся для цели, обозначенной ТС.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (serzh82saratov) — Sat, 12 Jul 2014 15:11:59 +0000

teadrinker тяжело для не окрепшей психики, можешь выводы привести, а то не даётся...

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Sat, 12 Jul 2014 14:28:12 +0000

Функция mouse_event используется для интерпретации движений мыши. Можно провести такой эксперимент. Установим курсор примерно в центр экрана возле какой-либо точки, от которой можно вести отсчёт. Теперь сдвинем мышь (не курсор, а именно мышь) влево на сантиметр, но не сразу, а маленькими отдельными движениями. Курсор сдвигается влево на определённое расстояние, зависящее от системных настроек скорости мыши. Теперь сдвинем мышь (не курсор, а именно мышь) на то же расстояние вправо, только одним быстрым движением. Курсор не вернётся в исходную точку, а переместится гораздо правее. Вот здесь описан алгоритм расчёта движения курсора.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (Irbis) — Sat, 12 Jul 2014 14:07:18 +0000

Как-то странно ведет себя DllCall("mouse_event"...
Если заменить на SendEvent, как предложил serzh82saratov, то при абсолютно том же алгоритме результат получается корректным.

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (teadrinker) — Sat, 12 Jul 2014 12:40:59 +0000

Irbis:

F1::
MouseMove, 100, 600
Sleep, 1000

mouseXY(100,-100,10)
MouseGetPos, X1, Y1
Sleep, 1000

mouseXY(100,-100, 1000)
MouseGetPos, X2, Y2

MsgBox, % "Пройденный путь 1: " Round(((X1 - 100)**2 + (Y1 + (-600))**2)**0.5)
      . "`nПройденный путь 2: " Round(((X2 - X1)**2 + (Y2 + (-Y1))**2)**0.5)
Return

mouseXY(x,y,s) 
{
   dx:=0,dy:=0, dx0:=0, dy0:=0
   loop % s
   {
      DllCall("mouse_event",uint,1,int
              ,dx0:=Round(dx := dx+x/s - dx0),int
              ,dy0:=Round(dy := dy+y/s - dy0),uint,0,int,0) 
   }
}

Re: AHK:[Dllcall] Вопрос по синтаксису Dllcall ("Sendinput"...)

null@example.com (serzh82saratov) — Sat, 12 Jul 2014 12:32:00 +0000

Тогда уж и DllCall упразднить.


SetBatchLines -1 

1:: 
    mouseXY(1111,-555,111) 
    Return

mouseXY(x,y,s)  {
    Loop % s + (dx:=dy:=dx0:=dy0:=0)
        SendEvent % "{Click, " (dx0:=Round(dx:=dx+x/s-dx0)) "," 
            . (dy0:=Round(dy:=dy+y/s-dy0)) ", 0, Rel}"
}