按键精灵鼠标拖动平滑滑动

Function 平滑移动鼠标to(终点坐标px,终点坐标py,移动时间,起点坐标beginx,起点坐标beginy,平滑灵敏度)
    dim mx
    dim x,y
    dim tx,ty
    x=起点坐标beginx
    y=起点坐标beginy
    tx=abs(x-终点坐标px)
    ty=abs(y-终点坐标py)
    if tx>=ty
        mx=tx
    else
        mx=ty
    end if
    
    if mx>0
        for i = 0 to mx step 平滑灵敏度
            sx=int((终点坐标px*i+x*(mx-i))/mx)
            sy=int((终点坐标py*i+y*(mx-i))/mx)
            moveto sx,sy
            delay int(移动时间/mx*平滑灵敏度)
        Next
    else
        delay 移动时间
    end if
    MoveTo 终点坐标px, 终点坐标py
    平滑移动鼠标to=true
End Function