VB热键屏蔽

显示全部楼层 · 2020-3-26 06:43:44

怎样评蔽AIT+ESC按键,麻烦写个代码...
Dim d As Single '禁止切换
Private Const MOD_ALT = &H1 '禁止切换
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long '禁止切换
Private Sub Form_Load()

Me.Caption = RegisterHotKey(Me.hwnd, 1, MOD_ALT, vbKeyTab)

Me.Hide
End Sub
这是一段屏蔽的代码,可就是屏蔽不了ESC,帮我修改一下加入屏蔽ESC

千问 · 2020-3-26 06:43:44

任务管理器中找HOTKEY进程，关闭就可以了。但是救护中心的热键就不起作用了，你再用的时候再双击救护中心的图标就可以了。这个进程是随救护中心加载的，需要你每次都这样操作。如果游戏的热键可以改，是最方便的。方正电脑安装方正电脑救护中心后出现的界面。向不用这个的话只有将硬盘的隐藏分区释放删除就可以了！不过那样的话你的这个功能也就无法再用了.如果用好了后这个对你的电脑的系统维护是很有帮助的。建议保留！...

千问 · 2020-3-26 06:43:44

'窗体置顶简单，屏蔽热键有点难度，给你找找资料OptionExplicitPrivateDeclareFunctionSetWindowPosLib"user32"(ByValhWndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,...

千问 · 2020-3-26 06:43:44

这个是完美屏蔽。模块 Option Explicit Private Declare Function GetKeyState Lib "User32" _ (ByVal nVirtKey As Long) As Integer Public Declare Function SetWindowsHookEx Lib "User32...