تويت
------------------------------------------------------------------------------ ÊÍÑíß ÇáÕæÑ ----------------
--Enter global declarations and functions here...
--Like Worm's Function only with some additional features
function HitTestEx()
local mi
local mtblPos
local mObject
local mtblObj
local mtblPos = nil
local mtblDimension = nil
local mtblHits = {}
local mType
mtblObj = Page.EnumerateObjects()
for mi, mObject in pairs (mtblObj) do
mObjType = Page.GetObjectType(mObject)
------
if mObjType == OBJECT_BUTTON then
mtblPos = Button.GetPos(mObject)
mtblDimension = Button.GetSize(mObject)
end
if mtblPos then
mX=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseX", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
mY=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseY", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if (mtblPos.X <= mX) and (mX <= (mtblPos.X + mtblDimension.Width)) then
if (mY >= mtblPos.Y) and (mY <= (mtblPos.Y + mtblDimension.Height)) then
mtblHits[Table.Count(mtblHits) + 1] = {Type = mObjType, Name = mObject, Xpos=mtblPos.X, Ypos=mtblPos.Y};
end
end
end
end
return mtblHits;
end
--This Functions moves any object
function MoveObject(strObName,nObType,nXPos,nYPos)
if nObType == OBJECT_BUTTON then
mtblPos = Button.SetPos(strObName,nXPos,nYPos);
end
end
-----
-----
-----
تعليق