杭州交通信息网去医院祛痣要多少钱:怎样在VB中实现ctrl+alt+del无效,即打不开任务管理器,还有怎样实现ctrl和alt之间的那个键按下去无效?
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 12:43:12
怎样在VB中实现ctrl+alt+del无效,即打不开任务管理器,还有怎样实现ctrl和alt之间的那个键按下去无效?高分酬谢!!!
把代码写下来.
把代码写下来.
我不会很好地运用API。
但可以实现达到任务管理器打开就关闭,开始菜单一弹出就消失。
（几乎有点失效的感觉）
先添一个Timer，Interval属性可以设成10。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Timer1_Timer()
hw = FindWindow(vbNullString, "Windows 任务管理器")
SendMessage hw, &H10, 0, 0
SendKeys "%"
Me.SetFocus
End Sub
'好恐怖啊～～～差点退不出来。
'如果不是在VB中运行，真不知怎么退出来。
'如果将将Form的样式设成none,将开始状态设成最大化，更爽。
'要是你担心退不出来，可以这样：
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'If KeyCode = Asc("I") Then End
'End Sub
'那么一按“I”键就可以退出来了。