//建议time1=200,time2=800,如果不精准时直接增加time2的值即可
Sub huadongzhun(x1,y1,x2,y2,time1,time2
Dim xx1,yy1,xx2,yy2,timeone,timetwo
xx1=x1
xx2=x2
yy1=y1
yy2=y2
timeone=time1
timetwo=time2
TouchDown xx1,yy1
Delay timeone
TouchMove xx2,yy2
Delay timetwo
TouchUp
End Sub