c # — SendKeys Ctrl + C для внешних приложений (текст в буфер обмена)

У меня есть приложение, которое находится в системном трее как traicicon. Я зарегистрировал горячую клавишу, которая при нажатии фиксирует текущий выделенный текст в любом приложении, даже в веб-браузерах.

Мой подход — отправить комбинацию клавиш {Ctlr + C}, чтобы скопировать текст. Затем получите доступ к буферу обмена и используйте текст в моем собственном приложении.

Я программирую на VB.NET, но любая помощь на C # или даже C ++ с Win32_Api будет высоко оценена.

Я использую AutoHotkey и там, у меня есть скрипт, который получает доступ к тексту буфера обмена и работает нормально.

Pause::
clipboard =  ; Start off empty to allow ClipWait to detect when the text has arrived.
Send ^c
ClipWait, 2  ; Wait for the clipboard to contain text.
if ErrorLevel
{
;Do nothing after 2 seconds timeout
return
}
Run https://translate.google.com/#auto/es/%clipboard%
return

Поскольку AutoHotkey является открытым исходным кодом, я скачал код и попытался повторить поведение ClipWait столько, сколько я мог.

Мой код работает большую часть времени, но иногда возникает важная задержка. Я не могу получить доступ к буферу обмена и функции win32 IsClipboardFormatAvailable () продолжает возвращать Ложь на некоторое время. Это происходит, когда я пытаюсь скопировать из Google Chrome специально в редактируемые текстовые поля.

Я пробовал много разных вещей, включая использование .Net Framework Clipboard Class. Я прочитал, что проблема может заключаться в том, что поток, который выполнял команды, не был установлен как STA, поэтому я сделал это. В отчаянии я также поставил таймер, но ничто не решает проблему полностью.

Я также прочитал вариант установки крючка для мониторинга буфера обмена, но я бы хотел этого избежать, если только это не единственный способ сделать это.

Вот мой код VB.NET:

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading
Imports Hotkeys
Public Class Form1
Public m_HotKey As Keys = Keys.F6

Private Sub RegisterHotkeys()
Try
Dim alreaydRegistered As Boolean = False
' set the hotkey:
''---------------------------------------------------
' add an event handler for hot key pressed (or could just use Handles)
AddHandler CRegisterHotKey.HotKeyPressed, AddressOf hotKey_Pressed
Dim hkGetText As HotKey = New HotKey("hkGetText",
HotKey.GetKeySinModificadores(m_HotKey),
HotKey.FormatModificadores(m_HotKey.ToString),
"hkGetText")
Try
CRegisterHotKey.HotKeys.Add(hkGetText)
Catch ex As HotKeyAddException
alreaydRegistered = True
End Try
Catch ex As Exception
CLogFile.addError(ex)
End Try
End Sub

Private Sub hotKey_Pressed(sender As Object, e As HotKeyPressedEventArgs)
Try
Timer1.Start()
Catch ex As Exception
CLogFile.addError(ex)
End Try
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RegisterHotkeys()
End Sub

Function copyText() As String
Dim result As String = String.Empty
Clipboard.Clear()
Console.WriteLine("Control + C")
SendKeys.SendWait("^c")
Dim Attempts As Integer = 100
Do While Attempts > 0
Try
result = GetText()
If result = String.Empty Then
Attempts -= 1
'Console.WriteLine("Attempts {0}", Attempts)
Thread.Sleep(100)
Else
Attempts = 0
End If

Catch ex As Exception
Attempts -= 1
Console.WriteLine("Attempts Exception {0}", Attempts)
Console.WriteLine(ex.ToString)
Threading.Thread.Sleep(100)
End Try
Loop
Return result
End Function

#Region "Win32"
<DllImport("User32.dll", SetLastError:=True)>
Private Shared Function IsClipboardFormatAvailable(format As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

<DllImport("User32.dll", SetLastError:=True)>
Private Shared Function GetClipboardData(uFormat As UInteger) As IntPtr
End Function

<DllImport("User32.dll", SetLastError:=True)>
Private Shared Function OpenClipboard(hWndNewOwner As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

<DllImport("User32.dll", SetLastError:=True)>
Private Shared Function CloseClipboard() As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

<DllImport("Kernel32.dll", SetLastError:=True)>
Private Shared Function GlobalLock(hMem As IntPtr) As IntPtr
End Function

<DllImport("Kernel32.dll", SetLastError:=True)>
Private Shared Function GlobalUnlock(hMem As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

<DllImport("Kernel32.dll", SetLastError:=True)>
Private Shared Function GlobalSize(hMem As IntPtr) As Integer
End Function

Private Const CF_UNICODETEXT As UInteger = 13UI
Private Const CF_TEXT As UInteger = 1UI

#End Region

Public Shared Function GetText() As String
If Not IsClipboardFormatAvailable(CF_UNICODETEXT) AndAlso Not IsClipboardFormatAvailable(CF_TEXT) Then
Return Nothing
End If

Try
If Not OpenClipboard(IntPtr.Zero) Then
Return Nothing
End If

Dim handle As IntPtr = GetClipboardData(CF_UNICODETEXT)
If handle = IntPtr.Zero Then
Return Nothing
End If

Dim pointer As IntPtr = IntPtr.Zero

Try
pointer = GlobalLock(handle)
If pointer = IntPtr.Zero Then
Return Nothing
End If

Dim size As Integer = GlobalSize(handle)
Dim buff As Byte() = New Byte(size - 1) {}

Marshal.Copy(pointer, buff, 0, size)

Return Encoding.Unicode.GetString(buff).TrimEnd(ControlChars.NullChar)
Finally
If pointer <> IntPtr.Zero Then
GlobalUnlock(handle)
End If
End Try
Finally
CloseClipboard()
End Try
End Function

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Timer1.Stop()
Dim ThreadA As Thread
ThreadA = New Thread(AddressOf Me.copyTextThread)
ThreadA.SetApartmentState(ApartmentState.STA)
ThreadA.Start()
Catch ex As Exception
CLogFile.addError(ex)
End Try
End Sub

Sub copyTextThread()
Dim result As String = copyText()
If result <> String.Empty Then
MsgBox(result)
End If
End Sub
End Class

Я также искал другие похожие вопросы без окончательного решения моей проблемы:

Отправить Ctrl + C в предыдущее активное окно

Как получить выделенный текст из сфокусированного окна, используя собственный Win32 API?