MouseMoveAndClick(x, y)
{   
    global
    
    if !flagMyClick
        return
    flagMyClick := false
    
    SetDefaultMouseSpeed, 0 ; Скорость. Возможные значения: от 0 (быстро) до 100 (медленно)
    SetMouseDelay, -1       ; Значение -1 для отсутствия паузы и 0 для наименьшей возможной паузы
    SetBatchLines, -1       ; Use SetBatchLines -1 to never sleep (i.e. have the script run at maximum speed)
    
    MouseGetPos saveX, saveY
    SystemCursor(0)
   
    WinGet, active_id, ID, A
    CoordMode, Mouse, Client
    Click %x%, %y%
    CoordMode, Mouse, Relative   
    
    MouseMove %saveX%, %saveY%
    
    count := 0
    Loop
    {
        MouseGetPos x0, y0
        if (x0 = saveX) and (y0 = saveY)
            break
        
        ;~ CoordMode, Mouse, Relative    
        MouseMove %saveX%, %saveY%
        sleep, 50
        
        count := count + 1
        if (count >=5)
            break
    }
    
    SystemCursor(1)
    flagMyClick := true
}

MouseMoveAndClick(x, y)
{     
    SetDefaultMouseSpeed, 0 
    SetMouseDelay, -1 
    SetBatchLines, -1     
    
    MouseGetPos saveX, saveY
    SystemCursor(0)
   
    WinGet, active_id, ID, A
    CoordMode, Mouse, Client
    Click %x%, %y%
    CoordMode, Mouse, Relative   
    
    MouseMove %saveX%, %saveY%
    SystemCursor(1)
}

SystemCursor(OnOff = 1) ; INIT = "I","Init"; OFF = 0,"Off"; TOGGLE = -1,"T","Toggle"; ON = others
{
    static AndMask, XorMask, $, h_cursor
    ,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13 ; system cursors
    ,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13 ; blank cursors
    ,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13 ; handles of default cursors
    
    if (OnOff = "Init" or OnOff = "I" or $ = "") ; init when requested or at first call
    {
        $ = h ; active default cursors
        VarSetCapacity( h_cursor,4444, 1 )
        VarSetCapacity( AndMask, 32*4, 0xFF )
        VarSetCapacity( XorMask, 32*4, 0 )
        system_cursors = 32512,32513,32514,32515,32516,32642,32643,32644,32645,32646,32648,32649,32650
        StringSplit c, system_cursors, `,

        Loop %c0%
        {
            h_cursor := DllCall( "LoadCursor", "uint",0, "uint",c%A_Index% )
            h%A_Index% := DllCall( "CopyImage", "uint",h_cursor, "uint",2, "int",0, "int",0, "uint",0 )
            b%A_Index% := DllCall("CreateCursor","uint",0, "int",0, "int",0 , "int",32, "int",32, "uint",&AndMask, "uint",&XorMask )
        }
    }

    if (OnOff = 0 or OnOff = "Off" or $ = "h" and (OnOff < 0 or OnOff = "Toggle" or OnOff = "T"))
        $ = b ; use blank cursors
    else
        $ = h ; use the saved cursors        

    Loop %c0%
    {
        h_cursor := DllCall( "CopyImage", "uint",%$%%A_Index%, "uint",2, "int",0, "int",0, "uint",0 )
        DllCall( "SetSystemCursor", "uint",h_cursor, "uint",c%A_Index% )
    }
}