我有一个应用程序，它作为托盘图标存在于系统托盘中。我已经注册了一个热键，当按下时，它将捕获任何应用程序中的当前文本选择，甚至在Web浏览器中也可以。
由于AutoHotkey是开源的，我下载了代码并尽可能地复制了ClipWait的行为。
我的代码大部分时间都能工作，但有时会出现重要的延迟。我无法访问剪贴板，win32函数IsClipboardFormatAvailable()在一段时间内始终返回False。特别是在尝试从Google Chrome中的可编辑文本框中复制时会出现这种情况。
我尝试了很多不同的方法，包括使用.NET Framework Clipboard Class。我读到问题可能是运行命令的线程没有设置为STA，所以我这样做了。在绝望之余，我还放了一个计时器，但没有完全解决问题。
我也读到了通过监视剪贴板来放置钩子的选项，但除非这是唯一的方法，否则我想避免这样做。
以下是我的VB.NET代码：
我在其他类似的问题中也进行了搜索，但没有找到解决我的问题的最终方案： 发送Ctrl+C到先前活动的窗口 如何使用本地Win32 API从聚焦窗口获取所选文本？
我的方法是发送组合键{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()在一段时间内始终返回False。特别是在尝试从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从聚焦窗口获取所选文本？
