按键精灵_ 滑块验证拖动

Function 滑动拼图(X1, Y1, X2, Y2, 延迟)
    Dim 时间 = TickCount()
    Dim 次数 = Int((X2 - X1)/100)
    TracePrint "次数",次数
    Dim 步进 = Int((X2 - X1)/次数)
    TracePrint "步进",步进
    Dim 延时 = Int(延迟/(次数+3))
    TracePrint "延时",延时
    Dim Px(),Py(),Pt()
    Px(0) = X1
    Py(0) = Y1
    Pt(0) = 延时
    For i = 1 To 次数
        Px(i) = Int(Px(i - 1) + 步进 + cy.RndNum(-30, 30))
        Py(i) = Int(Py(i - 1) + cy.RndNum(-10, 10))
        Pt(i) = cy.RndNum(Int(延时 * 0.8), Int(延时 * 1.2))
    Next
    TouchDown Px(0), Py(0), 0
    Delay Pt(0)
    TracePrint "按下",Px(0), Py(0),Pt(0)
    For i = 1 To 次数
        TouchMove Px(i), Py(i), 0, Pt(i)
        TracePrint "滑动",Px(i), Py(i), Pt(i)
    Next
    TouchMove X2, Y2, 0, 延时
    TracePrint "归位",X2, Y2, 延时
    Delay 延时
    TouchUp 0
    TracePrint "滑动耗时",TickCount() - 时间
End Function