连续复制

可以连续复制内容，然后再连续粘贴。

copyArr := []
index := 1

F4::
    Send ^c
    copyArr.Insert(Clipboard)
    str := "已复制 " copyArr.Length() 
    MsgBox, , ,%str%,0.5
Return


F5::
    Clipboard := copyArr[index]    
    send ^v
    surplus := copyArr.Length() - index
    str := "已粘贴 " index "，剩余 " surplus
    MsgBox, , ,%str%,0.5
    if (index < copyArr.Length()){
         index := index + 1
    }
Return

F6::
    copyArr := []
    index := 1
    MsgBox, , ,已清空,1
Return

F7::
    ExitApp
Return