(100分)关于2000或XP下如何关闭Ctrl+Alt+Del后出现的窗体

Question

关于2000或XP下如何关闭Ctrl+Alt+Del后出现的窗体   小弟解决此问题解决了差不多1年，实在没办法，麻烦各位老师，，，     我在网上看了N偏文章，都没有地方真正解决过，，，，             高分哦。。
        先谢谢各位

Answer 1

补充一句：
   就像网吧的万象一样  在按Ctrl+Alt+Del时会自动关闭出现的窗体     谢。

Answer 2

这是我做的一个VB控件，不过其核心也是用VC做的
http://www.bjjr.com.cn/yefan/SourceCode/YFSysKey.rar
++++++++++++++++++++++++++++++++++++++++++++++++++++
以上是引用叶帆的话。

Answer 3

终于下下来了    试过  感觉还可以  但我有一个问题  是不是把任务栏隐藏了  Ctrl+Alt+Del就不起作用喃/?

Answer 4

1 custom MSGINA
or 
2 trap Ctrl+Alt+Del before it calls GINA

Answer 5

我用win32 汇编写了一个, Email??

Answer 6

要做坏事,屏蔽Ctrl+Alt+Del 也没用, 人家用进程killer 就可以把你的进程Kill 
,一般的隐藏都没用的,查得出来的,我用win32 进程注册,很高明的,把你的进程注入到一个系统进程中,比如exporer 你只能到 这个进程,但一看就是合法的, 只是它体积大了哟

Answer 7

qscandwh(思成) 好 能在VB里用吗 
[email protected]

Answer 8

Win2000下屏蔽Ctrl+Alt+Del需要编写自己的Gina.dll
请参考http://www.0934.net.cn/bbs/dispbbs.asp?Boardid=17&ID=9608

Answer 9

http://www.applevb.com/sourcecode/disable%20task%20Manager%20and%20many%20more.rar
这个好象很简单修改注册表

Answer 10

rise139  提供的代码可以
    但是在按Ctrl + Alt + Del 时会出消息窗体,提示 此功能被管理员禁用(不爽)
    继续请教

Answer 11

// 但是在按Ctrl + Alt + Del 时会出消息窗体,提示 此功能被管理员禁用(不爽)这个可以用钩子钩之，不让它显示

Answer 12

在xp下还可以这样屏蔽任务管理器：
Private Sub Form_Load()
    Dim s As String
    s = Environ("windir")
    s = s + "\system32\taskmgr.exe"
    Open s For Random Lock Read As #1
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Close #1
End Sub

Answer 13

就是一直不会用 钩子 所以 做不出来     
      在XP下屏蔽Ctrl + Alt + Del  我也经实现  谁能贴个2000 Server 的代码给我   谢了   继续请教

Answer 14

http://www.m5home.com/bbs/viewFile.asp?Boardid=2&ID=208
VB的全局钩子,没看懂 楼主会用了教我

Answer 15

'翻了翻自己收集的一些代码,,发现了其中一个代码可以关掉任务管理器,有空可以试试.Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10Private Target As StringPublic Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
Dim buf As String * 256
Dim title As String
Dim length As Long    ' 获取窗口标题
    length = GetWindowText(app_hWnd, buf, Len(buf))
    title = Left$(buf, length)    ' 查看是否是目标窗口
    If InStr(title, Target) <> 0 Then
        ' 关闭该窗口
        SendMessage app_hWnd, WM_CLOSE, 0, 0
    End If
    
    ' 继续搜索
    EnumCallback = 1
End Function' 用法 :   TerminateTask 窗口标题
Public Sub TerminateTask(app_name As String)
    Target = app_name
    EnumWindows AddressOf EnumCallback, 0
End Sub

Answer 16

//http://www.m5home.com/bbs/viewFile.asp?Boardid=2&ID=208
VB的全局钩子,没看懂 楼主会用了教我这个不是消息钩子，是API HOOK