锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net禁用鼠标左键 vb点击按钮关闭窗口

IT技术鼠标

如何在VB.net中用程序控制鼠标移动和点击调用api
在Visual Baisc.net中vb.net禁用鼠标左键的声明vb.net禁用鼠标左键：
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例vb.net禁用鼠标左键：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10vb.net禁用鼠标左键 ， 10）模拟鼠标左键按下
vb.net中如何禁用键盘和鼠标很简单，你怎么不先问我，还在这提问 。用api函数，钩子，设置成全局钩子，然后对钩取来的message消息不做处理，也不返回，这样屏蔽了键盘了 。钩子函数api好像是什么hook的那个，还有钩子函数的返回函数，以整个自定义函数的指针作参数
VB6.0如何完全禁用或者屏蔽鼠标滚轮的任何输入'==================窗体代码=================
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseHookProc, App.hInstance, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
【vb.net禁用鼠标左键 vb点击按钮关闭窗口】UnhookWindowsHookEx hHook
End Sub
'=============模块代码==================
Public Const WH_MOUSE = 7 '本地钩子
Public Const WH_MOUSE_LL = 14 '全局钩子
Public Const GWL_WNDPROC = (-4)
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
'Public Const WM_LBUTTONDOWN = H201 '窗口中按下鼠标左键
'Public Const WM_LBUTTONUP = H202 '窗口中松开鼠标左键
'Public Const WM_MOUSEMOVE = H200 '窗口中移动鼠标
'Public Const WM_RBUTTONDOWN = H204 '窗口中按下鼠标右键
'Public Const WM_RBUTTONUP = H205 '窗口中松开鼠标右键
Public Const WM_MOUSEWHEEL = H20A '鼠标滚轮
'Public Const WM_NCLBUTTONDOWN = HA1 '窗口标题栏中按下鼠标左键
'Public Const WM_NCLBUTTONUP = HA2 '窗口标题栏中左开鼠标左键
'Public Const WM_NCMOUSEMOVE = HA0'窗口标题栏中移动鼠标
'Public Const WM_NCRBUTTONDOWN = HA4 '窗口标题栏中按下鼠标右键
'Public Const WM_NCRBUTTONUP = HA5 '窗口标题栏中松开鼠标右键
Public hHook As Long
Public Function MouseHookProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case wParam
'Case WM_LBUTTONDOWN, WM_NCLBUTTONDOWN
'Debug.Print "左键按下"
'Case WM_LBUTTONUP, WM_NCLBUTTONUP
'Debug.Print "左键弹起"
'Case WM_RBUTTONDOWN, WM_NCRBUTTONDOWN
'Debug.Print "右键按下"
'Case WM_RBUTTONUP, WM_NCRBUTTONUP
'Debug.Print "右键弹起"
'Case WM_MOUSEMOVE, WM_NCMOUSEMOVE
'Debug.Print "鼠标移动"
Case WM_MOUSEWHEEL
Debug.Print "鼠标滚轮"
MouseHookProc = 1
Exit Function
End Select
MouseHookProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function
怎样解决鼠标左右禁用现在很多的网页设置了禁用鼠标右键，使很多的人没有办法继续操作，现在教你几招 ， 让你轻松破解 。
1、在网页上任意处将右键按下，等跳出对话框时不要放开右键，将鼠标
移至对话框，用鼠标左键点“确定”，在将鼠标移动到想要的连接处，放开右键！OK
2、同“1”，只是将鼠标移至对话框，用回车去“确认”！
3、用组合键“CTRL F10”！
4、在页面中点击右键，当出现警告窗口时，左手按键盘上的CTRL F4键关闭提示窗口！ ————以上的方法适用于仅禁用而没有隐藏右键菜单的网页————
5、先用鼠标左键进入该页，记录下该页地址，用下载工具“添加新任务”强行下载！(该方法适用于可以打开的连接)
6、同“4”，但是可以查看网页源代码，找到该连接后用下载工具“添加新任务”强行下载！(该方法适合比较简单的网页)
7、可以将该网页“另存”到硬盘上，修改后直接下载！(此法适用于有主页基础的人)
8、在IE设置禁用所有的脚本文件，大胆下载后在改回原来的设置！(此方法适用于对IE设置较了解的老鸟)
9、直接将想要的图片用左键拖着 ， 然后按下WIN D键，这样一来就可以拖到桌面上保存！(此方法适用于单手操作较灵活的同志)
10、查看源代码如果发现用了这样的代码：
你可以在地址栏键入：java - script:alert(document.oncontextmenu='')回车，确定对话匡后，直接使用右键！
下面这段批处理怎么改成禁用左键？您好，亲亲
禁用键盘左边的win键法：
1、“开始”-“运行”- 输入“regedit” -- 按下回车 。
2、查找键值：[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] 。
3、修改数键值：没有则新建二进制值，Scancode Map 。
4、注释说明：直接将下面代码保存为.reg 文件，格式不要更改，运行导入 ， 重启后生效 。
注册表文件 。
VB 6.0中的WebBrowser控件如何禁止鼠标左键文字选择？1 在引用中添加引用：microsort html object library
2 在窗体中添加如下代码
Public WithEvents M_Dom As MSHTML.HTMLDocument'屏蔽ie左键选择
Private Function M_Dom_onselectstart() As Boolean
M_Dom_onselectstart = False
End Function
在webbrowser控件的DocumentComplete事件中添加如下代码
Set M_Dom= webContent.Document
vb.net禁用鼠标左键的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb点击按钮关闭窗口、vb.net禁用鼠标左键的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：包含.netmvchtml辅助传值的词条

    下一篇：js获取选中id，js获取选中的内容