189 8069 5689
参考方法如下，具体解释已经注解在代码中；
创新互联主要从事网站设计制作、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务双清,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
/定义变量
public delegate int HookProc(int nCode, Int32 wParam, IntPtr lParam);
static int hKeyboardHook = 0;
HookProc KeyboardHookProcedure;
/*************************
* 声明API函数
* ***********************/
// 安装钩子 （using System.Runtime.InteropServices;）
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]
public static extern int SetWindowsHookEx(int idHook,HookProc lpfn, IntPtr hInstance, int threadId);
// 卸载钩子
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]
public static extern bool UnhookWindowsHookEx(int idHook);
// 继续下一个钩子
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]
public static extern int CallNextHookEx(int idHook, int nCode, Int32 wParam, IntPtr lParam);
// 取得当前线程编号（线程钩子需要用到）
[DllImport("kernel32.dll")]
static extern int GetCurrentThreadId();
//钩子子程：就是钩子所要做的事情
private int KeyboardHookProc(int nCode, Int32 wParam, IntPtr lParam)
{
if (nCode = 0)
{
/****************
//线程键盘钩子判断是否按下键
Keys keyData = (Keys)wParam;
if(lParam.ToInt32() 0)
{
// 键盘按下
}
if(lParam.ToInt32() 0)
{
// 键盘抬起
}
****************/
/****************
//全局键盘钩子判断是否按下键
wParam = = 0x100 // 键盘按下
wParam = = 0x101 // 键盘抬起
****************/
KeyMSG m = (KeyMSG) Marshal.PtrToStructure(lParam, typeof(KeyMSG));//键盘
// 在这里添加你想要做是事情(比如把键盘nCode记录下来,搞个邮件发送程序发到自己的邮箱去)
return 0;//如果返回1，则结束消息，这个消息到此为止，不再传递。如果返回0或调用CallNextHookEx函数则消息出了这个钩子继续往下传递，也就是传给消息真正的接受者
}
return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
}
//键盘结构
public struct KeyMSG
{
public int vkCode; //键值
public int scanCode;
public int flags;
public int time;
public int dwExtraInfo;
}
// 安装钩子
public void HookStart()
{
if(hKeyboardHook == 0)
{
// 创建HookProc实例
KeyboardHookProcedure = new HookProc(KeyboardHookProc);
// 设置线程钩子
hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);
//************************************
//键盘线程钩子
//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtr.Zero, GetCurrentThreadId()); //GetCurrentThreadId()为要监视的线程ID,你完全可以自己写个方法获取QQ的线程哦
//键盘全局钩子,需要引用空间(using System.Reflection;)
//SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);
//
//关于SetWindowsHookEx (int idHook, HookProc lpfn, IntPtr hInstance, int threadId)函数将钩子加入到钩子链表中，说明一下四个参数：
//idHook 钩子类型，即确定钩子监听何种消息，上面的代码中设为2，即监听键盘消息并且是线程钩子，如果是全局钩子监听键盘消息应设为13，
//线程钩子监听鼠标消息设为7，全局钩子监听鼠标消息设为14。
//
//lpfn 钩子子程的地址指针。如果dwThreadId参数为0 或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。 除此以外，lpfn可
//以指向当前进程的一段钩子子程代码。钩子函数的入口地址，当钩子钩到任何消息后便调用这个函数。
//
//hInstance应用程序实例的句柄。标识包含lpfn所指的子程的DLL。如果threadId 标识当前进程创建的一个线程，而且子程代码位于当前
//进程，hInstance必须为NULL。可以很简单的设定其为本应用程序的实例句柄。
//
//threadedId 与安装的钩子子程相关联的线程的标识符。如果为0，钩子子程与所有的线程关联，即为全局钩子。
//************************************
// 如果设置钩子失败
if(hKeyboardHook == 0 )
{
HookStop();
throw new Exception("SetWindowsHookEx failed.");
}
}
}
// 卸载钩子
public void HookStop()
{
bool retKeyboard = true;
if(hKeyboardHook != 0)
{
retKeyboard = UnhookWindowsHookEx(hKeyboardHook);
hKeyboardHook = 0;
}
if (!( retKeyboard))
throw new Exception("UnhookWindowsHookEx failed.");
}
左键是1
右键是2
中键是4
可以组合相加
左右同时就是3，也可以写做：vbleftbutton+vbrightbutton
执行键盘事件方法如下：
第一步，点击VS工具。
第二步，打开后，新建一个Windows窗体应用程序。
第三步，请看右下方Form的属性栏。
第四步，双击KeyDown。
第五步，输入提示按键代码，如图所示。
第六步，再次输入代码，设置属性KeyPreview为true。
第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。
将窗体KeyPreview属性设置为True并对Form_KeyDown事件编程，可以获取键盘箭头键的键值。实现方法如下：
Option Explicit
Private Sub Form_Load()
'允许窗体拦截键盘按键
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' KeyCode 键盘码是键盘上每个按键的唯一编码
' 在VB中，符号常数表示键盘码，例如 vbKeyF1 表示F1键,
' vbKeyHome 表示HOME键……
Select Case KeyCode
Case vbKeyLeft: Print "左箭头键值：" + CStr(KeyCode)
Case vbKeyRight: Print "右箭头键值：" + CStr(KeyCode)
Case vbKeyUp: Print "上箭头键值：" + CStr(KeyCode)
Case vbKeyDown: Print "下箭头键值：" + CStr(KeyCode)
End Select
End Sub
你要添加窗口的keydown事件，判断e.keycode=keys.q如果满足条件则调用button1的click事件，调用的话你要这样写call button1_click(sender,e)
VB键盘代码数值表可在代码中的任何地方用下列VB键盘代码常数代替实际值：VB键盘代码常量值
(0x为16进制，其他为10进制)键盘说明vbKeyLButton0x1鼠标左键vbKeyRButton0x2鼠标右键vbKeyCancel0x3CANCEL键vbKeyMButton0x4鼠标中键vbKeyBack0x8退格键vbKeyTab0x9TAB键vbKeyClear0xCCLEAR健vbKeyReturn0xD回车键vbKeyShift0x10SHIFT键vbKeyControl0x11CTRL键vbKeyMenu0x12MENU键vbKeyPause0x13PAUSE键vbKeyCapital0x14CAPS LOCK 键vbKeyEscape0x1BESC键vbKeySpace0x20空格键vbKeyPageUp0x21Page Up 键vbKeyPageDown0x22Page Down 键vbKeyEnd0x23END键vbKeyHome0x24HOME键vbKeyLeft0x25光标左键vbKeyUp0x26光标上键vbKeyRight0x27光标右键vbKeyDown0x28光标下键vbKeySelect0x29SELECT键vbKeyPrint0x2APrint Screen 键vbKeyExecute0x2BEXECUTE键vbKeySnapshot0x2CSnapShot键vbKeyInsert0x2DINSERT键vbKeyDelete0x2EDELETE键vbKeyHelp0x2FHELP键vbKeyNumlock0x90NUM LOCK 键vbKeyA65字母A键vbKeyB66字母B键vbKeyC67字母C键vbKeyD68字母D键vbKeyE69字母E键vbKeyF70字母F键vbKeyG71字母G键vbKeyH72字母H键vbKeyI73字母I键vbKeyJ74字母J键vbKeyK75字母K键vbKeyL76字母L键vbKeyM77字母M键vbKeyN78字母N键vbKeyO79字母O键vbKeyP80字母P键vbKeyQ81字母Q键vbKeyR82字母R键vbKeyS83字母S键vbKeyT84字母T键vbKeyU85字母U键vbKeyV86字母V键vbKeyW87字母W键vbKeyX88字母X键vbKeyY89字母Y键vbKeyZ90字母Z键vbKey048数字0键vbKey149数字1键vbKey250数字2键vbKey351数字3键vbKey452数字4键vbKey553数字5键vbKey654数字6键vbKey755数字7键vbKey856数字8键vbKey957数字9键vbKeyF10x70F1功能键vbKeyF20x71F2功能键vbKeyF30x72F3功能键vbKeyF40x73F4功能键vbKeyF50x74F5功能键vbKeyF60x75F6功能键vbKeyF70x76F7功能键vbKeyF80x77F8功能键vbKeyF90x78F9功能键vbKeyF100x79F10功能键vbKeyF110x7AF11功能键vbKeyF120x7BF12功能键vbKeyF130x7CF13功能键vbKeyF140x7DF14功能键vbKeyF150x7EF15功能键vbKeyF160x7FF16功能键vbKeyNumpad00x60小键盘0键vbKeyNumpad10x61小键盘1键vbKeyNumpad20x62小键盘2键vbKeyNumpad30x63小键盘3键vbKeyNumpad40x64小键盘4键vbKeyNumpad50x65小键盘5键vbKeyNumpad60x66小键盘6键vbKeyNumpad70x67小键盘7键vbKeyNumpad80x68小键盘8键vbKeyNumpad90x69小键盘9键vbKeyMultiply0x6A小键盘*键vbKeyAdd0x6B小键盘+键vbKeySeparator0x6C小键盘回车键vbKeySubtract0x6D小键盘-键vbKeyDecimal0x6E小键盘.键vbKeyDivide0x6F小键盘/键