請問怎么禁用alt鍵？

第一、先要搞清楚是哪種種情況，一共三種：

1.是想讓所有的程序不接受ALT鍵：用SetWindowsHookEx設置一個全局鍵盤鉤子

2.指定的某個程序不接受ALT鍵：用SetWindowsHookEx設置某個進程的鍵盤鉤子

3.你正在編寫的程序不接受ALT鍵:在keyDown事件中過濾掉ALT鍵的ASCII碼

第二、扣下ALT鍵

第三：編寫如下程序

試一下直接將代碼復制到窗體中測試即可

Dim a As Object

Private Sub Form_Load()

Set a = CreateObject("WScript.shell")

Timer1.Interval = 1

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

a.SendKeys "{%}" '按ALT鍵

End Sub