7,764
社区成员
发帖
与我相关
我的任务
分享
Private Sub Sleep(i As Long)
Dim N As Long
For N = 1 To i
DoEvents
If AutoDo(1).Checked = False Then Exit Sub
Next N
End Sub
Private Sub MoveStack(N As Integer, P1 As Integer, P2 As Integer, P3 As Integer)
If AutoDo(1).Checked = False Then Exit Sub
Dim i As Integer
If N = 1 Then
MoveCase N, P1, P3
Sleep 100000
Else
MoveStack N - 1, P1, P3, P2
MoveCase N, P1, P3
Sleep 100000
MoveStack N - 1, P2, P1, P3
End If
End Sub
If AutoDo(1).Checked = False Then Exit Sub
If AutoDo(1).Checked = False Then call err.raise(USER_CANCEL)
DoEvents
If AutoDo(1).Checked = False Then Call Err.Raise(USER_CANCEL)