]]>#SingleInstance, Force
#NoEnv
SetBatchLines, -1
CoordMode, Mouse, Screen
#Include <GDIP_All>
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
Width := 20, Height := 20
WS_EX_LAYERED := 0x80000, WS_EX_TRANSPARENT := 0x20
Gui, New, % "-Caption +AlwaysOnTop +ToolWindow +hwndhGui +E" . Format("{:#x}", WS_EX_LAYERED|WS_EX_TRANSPARENT)
Gui, Show, NA
hwnd1 := hGui
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pBrush := Gdip_BrushCreateSolid(0x70ff0000)
Gdip_FillEllipse(G, pBrush, 0, 0, 20, 20)
Gdip_DeleteBrush(pBrush)
Gdip_DeleteGraphics(G)
DeleteObject(hbm)
DeleteObject(obm)
OnMessage(0x00FF, "InputHandler")
RegisterRawInputDevices(1, 2)
Return
Esc::
Exit:
DeleteDC(hdc)
Gdip_Shutdown(pToken)
ExitApp
InputHandler(wParam, lParam) {
Global
MouseGetPos, xx, yy
UpdateLayeredWindow(hwnd1, hdc, xx, yy, Width, Height)
; Gui, % hwnd1 ": +AlwaysOnTop"
}
RegisterRawInputDevices(usagePage, usage) {
static RIDEV_INPUTSINK := 0x00000100
VarSetCapacity(rawDevice, 8 + A_PtrSize)
NumPut(usagePage, rawDevice, 0, "UShort")
NumPut(usage, rawDevice, 2, "UShort")
NumPut(RIDEV_INPUTSINK, rawDevice, 4, "UInt")
NumPut(A_ScriptHWND, rawDevice, 8, "UPtr")
if !DllCall("RegisterRawInputDevices"
, "Ptr", &rawDevice
, "UInt", 1
, "UInt", 8 + A_PtrSize)
{
throw "Failed to register for HID Device"
}
}Я бы ещё на HID попробовал отследить,
Хотя тут палка о двух концах. С хуком без таймера - гарантия что окно будет всегда рядом с курсором, но просадки повлияют на соответствие движений мышью и курсора. И случается что с хуком (тем более мышиным) происходят затыки, вплоть до блокировки ввода.
С HID просадки повлияют на соответствие позиции курсора и окна.
Я бы ещё на HID попробовал отследить
Буду Вам благодарен за пример!
]]>#SingleInstance, Force
#NoEnv
SetBatchLines, -1
#Include <GDIP_All>
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
Width := 20, Height := 20
WS_EX_LAYERED := 0x80000, WS_EX_TRANSPARENT := 0x20
Gui, New, % "-Caption +AlwaysOnTop +ToolWindow +hwndhGui +E" . Format("{:#x}", WS_EX_LAYERED|WS_EX_TRANSPARENT)
Gui, Show, NA
hwnd1 := hGui
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pBrush := Gdip_BrushCreateSolid(0x80ff0000)
Gdip_FillEllipse(G, pBrush, 0, 0, 20, 20)
Gdip_DeleteBrush(pBrush)
Gdip_DeleteGraphics(G)
DeleteObject(hbm)
DeleteObject(obm)
CallBack := RegisterCallback("MouseHook")
hook := SetWindowsHookEx(14, CallBack)
Return
Esc::
Exit:
if hook
UnhookWindowsHookEx(hook)
Gdip_Shutdown(pToken)
DeleteDC(hdc)
ExitApp
MouseHook(nCode, wParam, lParam) {
Global hwnd1, hdc, Width, Height
if (nCode >= 0) {
xx := NumGet(lParam+0, 0, "Int")
yy := NumGet(lParam+0, 4, "Int")
UpdateLayeredWindow(hwnd1, hdc, xx, yy, Width, Height)
; Gui, % hwnd1 ": +AlwaysOnTop"
} Return CallNextHookEx(nCode, wParam, lParam)
}
SetWindowsHookEx(idHook, pfn) {
Return DllCall("SetWindowsHookEx", "int", idHook, "Ptr", pfn, "Ptr", DllCall("GetModuleHandle", "Ptr", 0, "Ptr"), "UInt", 0)
}
CallNextHookEx(nCode, wParam, lParam, hHook = 0) {
Return DllCall("CallNextHookEx", "Ptr", hHook, "int", nCode, "Ptr", wParam, "Ptr", lParam)
}
UnhookWindowsHookEx(hHook) {
Return DllCall("UnhookWindowsHookEx", "Ptr", hHook)
}Таймер в хуке часто сбрасывается, и окно и не двигается до менее интенсивных движений. Я бы ещё на HID попробовал отследить, это всё таки сообщение, ему задержки не страшны.
]]>#SingleInstance, Force
#NoEnv
SetBatchLines, -1
#Include <GDIP_All>
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
Width := 20, Height := 20
WS_EX_LAYERED := 0x80000, WS_EX_TRANSPARENT := 0x20
Gui, New, % "-Caption +AlwaysOnTop +ToolWindow +hwndhGui +E" . Format("{:#x}", WS_EX_LAYERED|WS_EX_TRANSPARENT)
Gui, Show, NA
hwnd1 := hGui
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pBrush := Gdip_BrushCreateSolid(0x80ff0000)
Gdip_FillEllipse(G, pBrush, 0, 0, 20, 20)
Gdip_DeleteBrush(pBrush)
Gdip_DeleteGraphics(G)
DeleteObject(hbm)
DeleteObject(obm)
CallBack := RegisterCallback("MouseHook")
hook := SetWindowsHookEx(14, CallBack)
Return
DrawMyPic:
UpdateLayeredWindow(hwnd1, hdc, xx, yy, Width, Height)
Return
Esc::
Exit:
if hook
UnhookWindowsHookEx(hook)
Gdip_Shutdown(pToken)
DeleteDC(hdc)
ExitApp
MouseHook(nCode, wParam, lParam) {
Global xx, yy
Critical 1000
if (nCode >= 0) {
xx := NumGet(lParam+0, 0, "Int")
yy := NumGet(lParam+0, 4, "Int")
SetTimer, DrawMyPic, -1
} Return CallNextHookEx(nCode, wParam, lParam)
}
SetWindowsHookEx(idHook, pfn) {
Return DllCall("SetWindowsHookEx", "int", idHook, "Ptr", pfn, "Ptr", DllCall("GetModuleHandle", "Ptr", 0, "Ptr"), "UInt", 0)
}
CallNextHookEx(nCode, wParam, lParam, hHook = 0) {
Return DllCall("CallNextHookEx", "Ptr", hHook, "int", nCode, "Ptr", wParam, "Ptr", lParam)
}
UnhookWindowsHookEx(hHook) {
Return DllCall("UnhookWindowsHookEx", "Ptr", hHook)
}
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
#Include <GDIP_All>
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
Width := A_ScreenWidth, Height := A_ScreenHeight
WS_EX_LAYERED := 0x80000, WS_EX_TRANSPARENT := 0x20
Gui, New, % "-Caption +AlwaysOnTop +ToolWindow +hwndhGui +E" . Format("{:#x}", WS_EX_LAYERED|WS_EX_TRANSPARENT)
Gui, Show, NA
hwnd1 := hGui
CallBack := RegisterCallback("MouseHook")
hook := SetWindowsHookEx(14, CallBack)
Return
DrawMyPic:
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pBrush := Gdip_BrushCreateSolid(0x80ff0000)
Gdip_FillEllipse(G, pBrush, xx-10, yy-10, 20, 20)
Gdip_DeleteBrush(pBrush)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
Return
Esc::
Exit:
if hook
UnhookWindowsHookEx(hook)
Gdip_Shutdown(pToken)
ExitApp
MouseHook(nCode, wParam, lParam) {
Global xx, yy
Critical 1000
if (nCode >= 0) {
xx := NumGet(lParam+0, 0, "Int")
yy := NumGet(lParam+0, 4, "Int")
SetTimer, DrawMyPic, -1
} Return CallNextHookEx(nCode, wParam, lParam)
}
SetWindowsHookEx(idHook, pfn) {
Return DllCall("SetWindowsHookEx", "int", idHook, "Ptr", pfn, "Ptr", DllCall("GetModuleHandle", "Ptr", 0, "Ptr"), "UInt", 0)
}
CallNextHookEx(nCode, wParam, lParam, hHook = 0) {
Return DllCall("CallNextHookEx", "Ptr", hHook, "int", nCode, "Ptr", wParam, "Ptr", lParam)
}
UnhookWindowsHookEx(hHook) {
Return DllCall("UnhookWindowsHookEx", "Ptr", hHook)
}