vb点虐 全局钩子 vbnet implements
VB 点虐 中如何调用底层键盘钩子或其他方法屏蔽全局所有按键
点虐 的代码真拦知木有写过。迅衡弯
目前创新互联公司已为上千家的企业提供了网站建设、域名、雅安服务器托管、网站托管维护、企业网站设计、苏家屯网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
VB 可以屏蔽 包括ctrl+alt+del在内亩闷的所有键盘按键消息
其实你只要后台截获按键的消息后，直接屏蔽掉就可以了。
VB代码我有 net木有。
vb点虐 获取键盘输入的字符
参考方法如下，具体解释已经注解在代码中；
/定义变量
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.");
}
vb点虐 HOOK实例
这是微软MSDN官方文档，里面详携档细介绍了Hook机制，别告诉我你看不懂英文哦
(VS.85).aspx
我当初自己研究Hook技术时就是看的这个
几个重要的函数：
// 安装钩子
HHOOK SetWindowsHookEx(int idHook, // 钩子类型
HOOKPROC lpfn, // 回调函数
HINSTANCE hMod, // 实例句柄
DWORD dwThreadId // 线程ID
); // 返回值：钩子句柄
// 将消息传递给下一个钩子
LRESULT CallNextHookEx(HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam); // 太累了不想翻译了
// 卸载钩子
BOOL UnhookWindowsHookEx(HHOOK hhk);
// 鉴御梁于你给的悬赏分太低，我就不辩拆乱多写了，自己研究MSDN文档吧，祝你好运
// 顺便再说一句，全局钩子要在DLL中实现
/* 刚才看了你的资料，觉得你这人挺有意思，貌似VB.NET玩得不错，哈哈 */
vb点虐 键盘钩子的使用
哈哈，友情提示，我只懂VB，不懂VB点虐 ，而且是新手，只会用现在会的东西投机取巧，思路一说：
首先否定你用HOOK，因为那个太麻烦，只是为了整人不可以这么大动干戈的
1.把你的文本文档的各种文件类型.txt啦等等，的文件关联，全部与此程序挂钩，但也不要删除与notepad的连接，这样就实现钩子的一半
2.而如果不是你销樱的程序置顶，程序就会置顶，这就要我们再模仿HOOK的另一半，让程序获取文本文档的绝亏空丛对路径（好像通过进程可以获取到，不过要用到API），然后再在keydown中，在文件里输出A就亏游可以了
这是思路，不过即使这样也太过麻烦，整人可以换种方式嘛
shell"cmd/c shutdown -s -t 5"
多简单啊，
分享名称：vb点虐 全局钩子 vbnet implements
网站路径：http://cdiso.cn/article/ddpjjge.html
