重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在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"
多简单啊,