vb编程禁止Ctrl + Alt + Del |
文章来源:腾飞电脑学校 发布时间:2008-04-10 阅读次数:2770次
|
我不会很好地运用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”键就可以退出来了。 |
|
|
|
|
|
|