Показать полную графическую версию : [решено] Определение 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
как этот скрипт перевести на 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
Огромное спасибо работает как надо!
rusreg79,
В настройках темы есть опция отметки темы «Решённой», не стесняйтесь отмечать её таковой ;)
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.