VB.NET
* My.Computer.Clipboard.GetText() 

        SendKeys.SendWait("^a")

        Delay(2) : SendKeys.SendWait("^c")

        Delay(3)

        SendKeys.Flush()

 

        If Clipboard.ContainsText() Then

            File.WriteAllText("c:\A.txt", Clipboard.GetText()) : Clipboard.Clear()

        End If