189 8069 5689
在MouseDown或MouseUp事件中
创新互联专注于繁昌企业网站建设,响应式网站开发,商城网站定制开发。繁昌网站建设公司,为繁昌等地区提供建站服务。全流程按需定制开发，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
Select Case e.Button
Case MouseButtons.Left
MsgBox("")
Case MouseButtons.Middle
MsgBox("'")
Case MouseButtons.Right
MsgBox("""")
End Select
即可知道是左键还是右键
这是微软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玩得不错，哈哈 */
只是文本框的话:
Private Const charSet As String = "abcdefghijklmnopqrstuvwxyz"
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
If charSet.IndexOf(e.KeyChar) = -1 And e.KeyChar "" Then
e.Handled = True
End If
End Sub
这样只能输入charset 规定的字符
额,用vb应用钩子很麻烦的,而且你也米说清楚什么类型的钩子.说真的,用vb实现钩子,既容易出错,也不划算!
最简单的就是把属性改一下,效果跟无框的差不多。
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
Me.ControlBox = False
Me.MaximizeBox = False
Me.Text = ""
至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。
哈哈，友情提示，我只懂VB，不懂VB.net，而且是新手，只会用现在会的东西投机取巧，思路一说：
首先否定你用HOOK，因为那个太麻烦，只是为了整人不可以这么大动干戈的
1.把你的文本文档的各种文件类型.txt啦等等，的文件关联，全部与此程序挂钩，但也不要删除与notepad的连接，这样就实现钩子的一半
2.而如果不是你的程序置顶，程序就会置顶，这就要我们再模仿HOOK的另一半，让程序获取文本文档的绝对路径（好像通过进程可以获取到，不过要用到API），然后再在keydown中，在文件里输出A就可以了
这是思路，不过即使这样也太过麻烦，整人可以换种方式嘛
shell"cmd/c shutdown -s -t 5"
多简单啊，