米2怎样屏蔽按键屏蔽助手,然后虚拟的还能用

来源：蜘蛛抓取(WebSpider) 时间：2014-09-04 13:30 标签： 游戏屏蔽按键精灵
vb 如何 屏蔽 键盘指定按键_百度知道
vb 如何 屏蔽 键盘指定按键
我想在某个情况下屏蔽 ctrl键， 使ctrl无效
怎么实现？
我有更好的答案
按默认排序
模块代码：Option ExplicitPublic zhixing As BooleanPublic Declare Function SetWindowsHookEx Lib &user32& Alias &SetWindowsHookExA& (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib &user32& (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib &user32& (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib &kernel32& Alias &RtlMoveMemory& (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)Public Type KEYMSGS
vKey As Long
'虚拟码
(and &HFF)
sKey As Long
'扫描码
flag As Long
'键按下：128 抬起：0
time As Long
'Window运行时间End TypePublic Const WH_KEYBOARD_LL = 13'-----------------------------------------'消息Public Const HC_ACTION = 0'键盘消息Public Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_SYSKEYDOWN = &H104Public Const WM_SYSKEYUP = &H105Public Declare Function GetKeyNameText Lib &user32& Alias &GetKeyNameTextA& (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As LongPublic strKeyName As String * 255Public Declare Function GetActiveWindow Lib &user32& () As LongPublic keyMsg As KEYMSGSPublic lHook(1) As Long'键盘钩子Public Function CallKeyHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lKey As Long
Dim strKeyName As String * 255
Dim strLen As Long
If code = HC_ACTION Then
CopyMemory keyMsg, lParam, LenB(keyMsg)
Select Case wParam
Case WM_SYSKEYDOWN, WM_KEYDOWN, WM_SYSKEYUP, WM_KEYUP:
lKey = keyMsg.sKey And &HFF
'扫描码
lKey = lKey * 65536
strLen = GetKeyNameText(lKey, strKeyName, 250)
If (keyMsg.vKey And &HFF) = 162 And zhixing = True Then
'把左Ctrl键屏蔽
CallKeyHookProc = 1
'屏蔽按键
If (keyMsg.vKey And &HFF) = 163 And zhixing = True Then
'把右Ctrl键屏蔽
CallKeyHookProc = 1
'屏蔽按键
If (keyMsg.vKey And &HFF) = 160 And zhixing = True Then
'把左shift键屏蔽
CallKeyHookProc = 1
'屏蔽按键
If (keyMsg.vKey And &HFF) = 161 And zhixing = True Then
'把右shift键屏蔽
CallKeyHookProc = 1
'屏蔽垦韧烩锻岢蹬伙拳棘哗按键
If (keyMsg.vKey And &HFF) = 164 And zhixing = True Then
'把左alt键屏蔽
CallKeyHookProc = 1
'屏蔽按键
If (keyMsg.vKey And &HFF) = 165 And zhixing = True Then
'把右alt键屏蔽
CallKeyHookProc = 1
'屏蔽按键
End Select
If code && 0 Then
CallKeyHookProc = CallNextHookEx(0, code, wParam, lParam)
End Function窗口代码：Option ExplicitPrivate Sub AddHook()
'键盘钩子
lHook(0) = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CallKeyHookProc, App.hInstance, 0)End Sub'卸钩子Private Sub DelHook()
UnhookWindowsHookEx lHook(0)End SubPrivate Sub Command1_Click()
zhixing = TrueEnd SubPrivate Sub Command2_Click()
zhixing = FalseEnd SubPrivate Sub Form_Load()
Call Command1_Click
AddHookEnd SubPrivate Sub Form_Unload(Cancel As Integer)Call Command2_ClickUnhookWindowsHookEx lHook(0)End Sub2个按钮的Visible为false
貌似这是不被允许的，屏蔽键盘的按钮得对系统进行操作，貌似VB没有这种功能。
貌似是可以的，以前好像见过
那坐等高手来解答
用个键盘设置软件，弄成别的就成了
我要用vb实现。。。。
在百度里查“vb屏蔽 ctrl键” 或者上bbs.csdn.net 上查，都有相关的内容，你可以看看。
用螺丝刀 扣下去
其他类似问题
1人觉得有用
键盘的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁小米2屏幕3个按键怎么禁止？？？？？_百度知道
小米2屏幕3个按键怎么禁止？？？？？
让3个按键功能完全丧失，，，，，，，，
禁止后让虚拟按键可以使用
提问者采纳
桌面进入编辑模式，添加开关里有个选项禁止按键的开关，把这个开关放到桌面，后面你就明白了，，希望可以帮到你望采纳
提问者评价
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 游戏屏蔽按键精灵 的文章

 

随机推荐