如何从剪贴板复制、擦除,然后粘贴回剪贴板?

SendKeys.SendWait("keys") 转到另一个程序。问题是,有多个字段可能处于活动状态,无法放心地选择单个字段。字段的长度各不相同,所以我的解决方案是复制一个很长的字段,将其复制到剪贴板,然后查看最后一个字符,这样我就知道在另一个程序中选择了哪个字段。不幸的是,这会覆盖剪贴板。

所以,我需要做这些事情。

1. 将剪贴板内容(可以是任何内容)复制到变量中。
2. 发送一堆东西到另一个程序并复制它。然后用它来做其他事情。
3. 将第一个变量复制回剪贴板。

理想情况下,它可以复制剪贴板上的任何内容(图像、文本、富格文本)并将其放回原处,就像什么都没发生一样。这是我到目前为止得到的,但它会删除剪贴板中的任何内容,或者用一些特殊的东西替换它,而这些东西不能粘贴回记事本。

AppActivate("OtherProgram")
Dim oldClipboard As IDataObject = Clipboard.GetDataObject
//'Type long stuff, select all, cut to clipboard
SendKeys.SendWait("{ESC}{F3}1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + "+{HOME}^x")
Dim selectedFieldText As String = Clipboard.GetText
Dim lastChar As String = selectedFieldText.Substring(selectedFieldText.Length - 1, 1)
Select Case lastChar
    Case "4"
        //'do nothing. We're in the correct field.
    Case "J"
        SendKeys.SendWait("+{TAB}")
    Case "O"
        SendKeys.SendWait("+{TAB}+{TAB}")
    //'...and so on
End Select
//'Send data to the correct field in "OtherProgram"
Clipboard.SetDataObject(oldClipboard)