Win7下怎么禁用Alt+Esc的组合键及功能？

End If

End Function

'add a checkbox named chkDisable.caption="&Disable ALT-TAB, ALT-ESC, CTRL-ESC,LWin,RWin,Win+Any"

'to a new from named frmMain.frm in new project hook_kb_LL.vbp

'add code below:

Option Explicit

Dim hhkLowLevelKybd As Long

Private Sub chkDisable_Click()

If chkDisable = vbChecked Then

hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)

Else

UnhookWindowsHookEx hhkLowLevelKybd

hhkLowLevelKybd = 0

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

If hhkLowLevelKybd <>0 Then UnhookWindowsHookEx hhkLowLevelKybd

End Sub

这些代码复制到记事本中，然后更改拓展名为cmd，放在桌面运行即可，不行的话欢迎追问

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]

"NoWinKeys"=dword:00000001

将上面的代码COPY到文本文件里，再“另存为”—"Xwin.reg"文件，双击导入注册表里即可，你也可以运行regedit，打开注册表，然后自己创建NoWinKeys值。

[注]此设置禁用了WIN+E、WIN+D、WIN+F、WIN+R等Windows快捷键。要改回时，可以将最后的"1" 改成"0"。再重新导入，切记！

如果想让设置生效，可以按下：ctrl+alt+delete调出任务管理器。

找到进程选项，里面有一个Explorer.exe，结束它。然后再新建Explorer.exe，就可以了。

依次展开HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer分支，然后在右侧，新建一个dword值，将其数值数据设为 "1"。

用REG文件多快啊！

fscommand("fullScreen", true)//全屏

var keyListener_obj:Object = new Object()//定义对象

keyListener_obj.onKeyDown = function()

{

if (Key.getCode() == 27)//如果按下Esc键

{

fscommand("fullScreen", true)//全屏

}

}

Key.addListener(keyListener_obj)//添加侦听器

AS2.0的，自己写的，本人win7 64位测试通过，但是会先退出全屏然后再进入全屏，也就是会闪一下，不建议你使用因为如果你没有添加退出按钮的话，似乎只能用任务管理器结束了…………

不好意思，修改一下，我测试的是本地的，没测试网页中的……

---