最后我们来封装个函数
Dim x0=5,y0=312
Dim 段数=28
Dim 返回值="183,74|342,177|205,223|332,76"
Call 分段滑动(返回值, x0, y0, 段数)
Function 分段滑动(返回值, x0, y0, 段数)
Dim x,y
Dim 点数组=split(返回值,"|")
For i = 0 To UBOUND(点数组)
Dim 坐标=split(点数组(i),",")
If i = 0 Then
x = 坐标(0) x0
y = 坐标(1) y0
TouchDown x, y, 1
Else
For j = 1 To 段数
TouchMove x (坐标(0) x0 - x) * (j/段数) rand(), y (坐标(1) y0 - y) * (j/段数) rand(), 1, int(2000/段数)
Next
x = 坐标(0) x0
y = 坐标(1) y0
End If
Next
End Function
Function rand()
rand=int(11*rnd()-5)
End Function
大功告成，整篇文章的内容就是我在编写这段代码时的思考过程。有时候代码不是一撮而就的，而是不断修改完善，最终实现自己想要的效果。
好了内容就这些，最后还是老规矩，觉得文章还行的话，点赞、转发、留言一条龙服务。
,
