(VB或C#)即使应用程序未对焦,也可以在系统托盘中运行应用程序并聆听键盘输入

我想制作一个应用程序,它在加载时位于系统托盘中,甚至在我打开另一个程序(比如记事本或vlc或其他任何程序)后,即使应用程序没有对焦,如果我在键盘上按G,托盘图标应显示工具提示 – “按下G键”.
我已经尝试了几个代码但是当应用程序失焦时没有任何效果.我可以使用 Register Hot Key,但它也需要一个修饰符(比如Ctrl或Alt等以及我的键G).那么,有什么办法可以实现这个目标吗?
许多托盘图标像防病毒应用程序等的东西.
我不想使用AutoHotkey应用程序.我想建立一个但需要一些帮助.

解决方法

WindowsHookLib.dll已经多次保存了我.它可以让您轻松地连接鼠标和键盘系统.

http://www.vbforums.com/showthread.php?t=436321

挂钩键盘并在按下’G’时动作:

Imports WindowsHookLib
Public Class frmMain

    Dim WithEvents gkh As New LLKeyboardHook

    Private Sub frmMain_FormClosing(ByVal sender As Object,ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        gkh.RemoveHook()
        ghk.Dispose()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
        gkh.InstallHook()
    End Sub


    Private Sub gkh_KeyDown(ByVal sender As Object,ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyDown
        If e.KeyCode = Keys.G Then
            REM G is pressed!                
        End If
    End Sub
    Private Sub gkh_KeyUp(ByVal sender As Object,ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyUp
        If e.KeyCode = Keys.G Then
            REM G was pressed and now released
        End If
    End Sub

End Class

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...