影子是一个会撒谎的精灵,它在虚空中流浪和等待被发现之间;在存在与不存在之间....

您现在的位置是:主页 > 工作记 >

按键精灵_ 滑块验证拖动


  • 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



  • 上一篇:按键精灵_ 在早上8点钟开始工作?

    下一篇:没有了