https://bbs.anjian.com/showtopic-210940-1.aspx
Call 鼠标慢慢跑(1000,450,100,1)
Sub 鼠标慢慢跑(x1,y1,振幅,周期)
//程序功能：鼠标 按正弦曲线 从当前点 移动到右侧的指定坐标
Dim x0,y0,x,y, 距离,q0,q1,r,t,a
GetCursorPos x0, y0
距离=sqr((x1-x0)^2+(y1-y0)^2)
q1 = 角度计算((x1-x0),(y1-y0))
pi = Atn(1)*8
a = 距离/pi
t=周期/pi
For i=0 To pi step 0.001
x=x1-距离+i*a
y =y1+振幅*sin(i)
q0 = 角度计算(x-x1,y-y1)
r=sqr((x-x1)^2+(y-y1)^2)
x =x1+r*con((q0+q1))
y =y1+r*sin((q0+q1))
MoveTo x, y
Delay t
Next
End Sub
Function 角度计算(x, y)
If x = 0 Then
x = 0.0001
End If
If x > 0 and y >= 0 Then
角度计算 = (Atn(y / x))
ElseIf x > 0 and y < 0 Then
角度计算 = (Atn(y / x))+pi
ElseIf x < 0 Then
角度计算 = (Atn(y / x)) + pi/2
End If
End Function
闽公网安备 35010002000112号