Войти

Показать полную графическую версию : [решено] Определение id курсора


rusreg79
05-10-2010, 01:50
Как в AutoIT определить нестандартный id курсора? Через MouseGetCursor определить id не получается.

Под AutoHotkey (http://www.autohotkey.com) есть такая возможность, но как этот скрипт перевести на AutoIT не хватает опыта

SetTimer, GetCursor, 100

GetCursor:
VarSetCapacity(ci,20,0), NumPut(20,ci)
DllCall("GetCursorInfo", "Uint", &ci)
hCursor := NumGet(ci,8)
ToolTip, %hCursor%
Return

Esc:: ExitApp
взято с http://forum.script-coding.info/viewtopic.php?id=4036

Creat0R
05-10-2010, 03:14
как этот скрипт перевести на AutoIT »

#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <WinAPI.au3>

HotKeySet (http://www.autoitscript.com/autoit3/docs/functions/HotKeySet.htm)("{ESC}", "ExitApp")

AdlibRegister (http://www.autoitscript.com/autoit3/docs/functions/AdlibRegister.htm)("GetCursor", 100)

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) True (http://www.autoitscript.com/autoit3/docs/keywords.htm#True)
Sleep (http://www.autoitscript.com/autoit3/docs/functions/Sleep.htm)(10)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) GetCursor()
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $aCursor = _WinAPI_GetCursorInfo (http://dundats.mvps.org/help/html/libfunctions/_winapi_getcursorinfo.htm)()

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://www.autoitscript.com/autoit3/docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://www.autoitscript.com/autoit3/docs/functions/SetError.htm)(1)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

ToolTip (http://www.autoitscript.com/autoit3/docs/functions/ToolTip.htm)(Hex (http://www.autoitscript.com/autoit3/docs/functions/Hex.htm)($aCursor[2], 8))
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) ExitApp()
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

rusreg79
05-10-2010, 03:33
Огромное спасибо работает как надо!

Creat0R
05-10-2010, 04:25
rusreg79,
В настройках темы есть опция отметки темы «Решённой», не стесняйтесь отмечать её таковой ;)




© OSzone.net 2001-2012