[Iska]

Получить координаты элемента управления. Сдвинуть мышь на эти координаты плюс дельта до нарисованной кнопки. Наподобие (для Windows XP с классической темой):

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)
AutoItSetOption("MouseCoordMode", 2)

Run("mspaint.exe")

WinWait("[CLASS:MSPaintApp]")
WinActivate("[CLASS:MSPaintApp]")

Local $hPalette = ControlGetHandle("[CLASS:MSPaintApp]", "", "[CLASS:AfxWnd42u; INSTANCE:1]")
Local $aPalettePos = ControlGetPos("[CLASS:MSPaintApp]", "", $hPalette)
MouseMove($aPalettePos[0] + 70, $aPalettePos[1] + 30)
MouseClick("left")

Local $hTools   = ControlGetHandle("[CLASS:MSPaintApp]", "", "[CLASS:AfxWnd42u; INSTANCE:2]")
Local $aToolsPos   = ControlGetPos("[CLASS:MSPaintApp]", "", $hTools)
MouseMove($aToolsPos[0] + 40, $aToolsPos[1] + 40)
MouseClick("left")

Local $hEditArea = ControlGetHandle("[CLASS:MSPaintApp]", "", "[CLASS:Afx:1000000:8; INSTANCE:1]")
Local $aEditArea = ControlGetPos("[CLASS:MSPaintApp]", "", $hEditArea)
MouseMove($aEditArea[0] + 100, $aEditArea[1] + 100)
MouseClick("left")