二阶贝塞尔曲线模拟人拖动鼠标

Randomize time

Function bezier_move(x1, y1, x2, y2)
    x1 = x1 + Int(5*rnd)
    x2 = x2 + Int(5*rnd)
    y1 = y1 + Int(5*rnd)
    y2 = y2 + Int(5*rnd)    
    
    x3 = x1 + Int((x2-x1)*rnd) + 10
    y3 = y1 + Int((y2-y1)*rnd) + 10
    
    tmp = (x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)
    TracePrint tmp
    Dim len
    len = Sqr(tmp)
    TracePrint len
    interval = 1/len
    TracePrint interval
    
    //MoveTo x3, y3
    MoveTo x1, y1
    //LeftClick 1
    Delay 10
    LeftDown 1
    Delay 10
    t = 0.00
    For 5000
        x = (1 - t) * (1 - t) * x1 + 2 * t * (1 - t) * x3 + t * t * x2    
        y = (1 - t) * (1 - t) * y1 + 2 * t * (1 - t) * y3 + t * t * y2
        MoveTo x, y
        t = t + interval
        If t > 1 Then 
            Exit For
        End If
        //Delay 1
    Next
    
    LeftUp 1
End Function

For 20
    call bezier_move(120, 210, 320, 480)
Next

ExitScript