把timer1过程改为如下：
Private Sub Timer1_Timer()
Dim hw
hw = FindWindow(vbNullString, "Windows 任务管理器")
If hw <> 0 Then
SendMessage hw, &H10, 0, 0
SendKeys "%"
Me.SetFocus
End If
End Sub
加了if判断语句，屏蔽无效重复动作
这个貌似没法直接禁用。
我以前写的都是开一个线程，while死循环用来扼杀任务管理器。
lz如果有更好的方法给我说声啊！
比较高深，学习了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024