复制粘贴恢复剪贴板【函数形式】

F1::MsgBox % 剪贴板缓存 :=ClipCopy()
F2::ClipPaste(剪贴板缓存)

ClipCopy(piMode := 0) {
  clpBackup := ClipboardAll
  Clipboard=
  if (piMode == 1)
    sCopyKey := "vk58sc02D" ; Cut = x
   else
    sCopyKey := "vk43sc02E" ; Copy = c
  SendInput {Shift Down}{Shift Up}{Ctrl Down}{%sCopyKey% Down}
  ClipWait 1
  SendInput {%sCopyKey% Up}{Ctrl Up}
  sRet := Clipboard
  Clipboard := clpBackup
  return sRet
}

ClipPaste(ByRef psText) {
  if (psText != "") {
    clpBackup := ClipboardAll
    Clipboard := psText
    SendInput {Shift Down}{Shift Up}{Ctrl Down}{vk56sc02F Down}
    ; 等待剪贴板准备好
    iStartTime := A_TickCount
    While (DllCall("GetOpenClipboardWindow") && (A_TickCount-iStartTime<1400)) ; timeout = 1400ms
      Sleep 30
    SendInput {vk56sc02F Up}{Ctrl Up}
    Clipboard := clpBackup
  }
}