Public Class Form1
    Private Declare Function RegisterHotKey Lib "user32.dll" (ByVal hwnd As _
      Int32, ByVal id As Int32, ByVal fsModifiers As Int32, ByVal vk As Int32) _
      As Int32
    Private Const WM_HOTKEY As Int32 = &H312
    Private Const MOD_CONTROL As Int32 = &H2
    Private Const VK_F11 As Int32 = &H7A
    Private Declare Function UnregisterHotKey Lib "user32.dll" (ByVal hwnd As _
      Int32, ByVal id As Int32) As Int32
 
    Private MY_HOTKEY_ID As Integer = 964234
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_HOTKEY Then
            SendKeys.SendWait("^c")
            MsgBox(My.Computer.Clipboard.GetText)
            Return
        End If
        MyBase.WndProc(m)
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        UnregisterHotKey(Me.Handle, MY_HOTKEY_ID)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, MY_HOTKEY_ID, MOD_CONTROL, VK_F11)
    End Sub
End Class

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 29.03.09 um 18:33:32 editiert.