这是第二个版本修改了F11漏洞(第一次版点击),请各位帮手测试一下,是否还有漏洞。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then
DoCmd.SelectObject acTable, "a", True
DoCmd.RunCommand acCmdWindowHide
End If
End Sub
这可以禁用F11打开,你可以测试一下。这个非常好,大家帮手测试一下是否还存在漏洞。
显示导航菜单密码为 : admin
附件:
点击这里下载