按键精灵---大漠鼠标真实移动轨迹

大漠鼠标真实移动轨迹

RealMove 500,200

Sub RealMove(x1,y1)
    Dim x, y, movernd, sudu, Delayrnd
    movernd = 5//每次移动抖动的随机距离
    sudu = 3//每次移动的速度
    Delayrnd = 4//每次移动的随机时间间隔
    dm.GetCursorPos 真是移动当前x, 真是移动当前y
    If x1 = 真是移动当前x Then 
        For y = 真是移动当前y To y1 Step sgn(y1 - 真是移动当前y)*sudu
            dm.MoveTo x1+Random(-movernd,movernd), y+Random(-movernd,movernd)
            Delay Random(1,Delayrnd)
        Next
    ElseIf y1 = 真是移动当前y Then
        For x = 真是移动当前x To x1 Step sgn(x1 - 真是移动当前x)*sudu
            dm.MoveTo x+Random(-movernd,movernd), y1+Random(-movernd,movernd)
            Delay Random(1,Delayrnd)
        Next
    ElseIf Abs(真是移动当前x - x1) > Abs(真是移动当前y - y1) Then
        For x = 真是移动当前x To x1 Step sgn(x1 - 真是移动当前x)*sudu
            dm.MoveTo x+Random(-movernd,movernd), ((y1 - 真是移动当前y) / (x1 - 真是移动当前x)) * x + (y1 - (y1 - 真是移动当前y) / (x1 - 真是移动当前x) * x1)+Random(-movernd,movernd)
            Delay Random(1,Delayrnd)
        Next
    Else 
        For y = 真是移动当前y To y1 Step sgn(y1 - 真是移动当前y)*sudu
            dm.MoveTo (y - (y1 - (y1 - 真是移动当前y) / (x1 - 真是移动当前x) * x1)) / ((y1 - 真是移动当前y) / (x1 - 真是移动当前x))+Random(-movernd,movernd), y+Random(-movernd,movernd)
            Delay Random(1,Delayrnd)
        Next
    End If
End Sub

GetCursorPos xx, yy
TracePrint "最终坐标为：" & xx & "," & yy

Function Random(min, max)
    Randomize
    Random = Int((max - min + 1) * rnd + min)
End Function