Function 精准划动(stx, sty, endx, endy, stdelay, movedelay, enddelay,id)
TouchDown stx, sty,id
Delay stdelay
If stx >= endx and sty >= endy Then
TouchMove endx-1, endy-1, id, movedelay/2
Delay movedelay/4
TouchMove endx, endy, id, movedelay / 4
ElseIf stx >= endx and sty <= endy Then
TouchMove endx-1, endy+1, id, movedelay/2
Delay movedelay/4
TouchMove endx, endy, id, movedelay / 4
ElseIf stx <= endx and sty <= endy Then
TouchMove endx+1, endy+1, id, movedelay/2
Delay movedelay/4
TouchMove endx, endy, id, movedelay / 4
ElseIf stx <= endx and sty >= endy Then
TouchMove endx+1, endy-1, id, movedelay/2
Delay movedelay/4
TouchMove endx, endy, id, movedelay / 4
End If
Delay enddelay
TouchUp id
End Function
精准划动(100,100,200,200,1000,500,1000,1)