Call Plugin.Window.Active(a(c))
    KeyPress "Space", 1
    Delay 50
    KeyPress "Space", 1
    c = c + 1
    Delay 延时
Next
Goto 开始


Sub 准备()    
    FindPic x,y,x+200,y+200,"Attachment:\点击.bmp",0.9,DX,DY
    If DX > 0 And DY > 0 Then
        Call Plugin.Window.Active(a(c))
        Delay 100
        KeyPress "Enter", 1        
        KeyPress "F5", 1
        Delay 200
    End If
End Sub


Sub 临时调整()
    GetCursorPos 鼠标, shiai
    If 鼠标 = 宽 - 1 or 鼠标 = 宽 - 2 Then
        Delay 5
        延时 = 延时 + 50        
    End If
    If 鼠标 = 0 or 鼠标 = 1 Then
        Delay 5
        延时 = 延时 - 50        
    End If
    If 延时 < 0 Then
        延时 = 0
    End If
    If 鼠标 = 0 or 鼠标 = 宽 - 1 or 鼠标 = 宽 - 2 or 鼠标 = 1 Then
        延时Q = 延时 / 50        
        Call Plugin.Msg.Tips("切换频率:" & 延时Q & "(越低越快最小为0)" & TTTT & "")        
        Delay 10
    End If    
End Sub