Windows2000 关于屏幕保护的问题

Question

很奇怪,在Win2000 下用VB写了一个小程序,扩展名改为 .scr (屏保扩展名) 放在SYSTEM32 目录下后,把定义成默认屏保,可是只要按一下  Ctrl+alt+del 后,进程就会被结束,就算是设置了 
form unload(cancel as interger)
cancel=1
end sub也不可以.于是试着用两个程序来写.一个为.scr 另一个为.exe ,在屏保运行时让 scr 去 shell exe ,结果系统不让运行.我认为可能是Win2000 的系统防止病毒才这么干的.我的系统为: win2000 sp4.vb6.高手们请赐教,能告之为何,以及如何解决呀

Answer 1

屏保可以使用以下内容：
////////////////////////////////////////////////////////////////////禁用ctrl＋del＋alt键 　　有时候编制的程序需要禁用“ctrl＋del＋alt”键，可以通过以下代码实现：　　声明:　　const spi－screensaverrunning = 97　　private declare function systemparametersinfo lib ″user32″alias ″systemparametersinfoa″ (byval uaction as long, byval uparam as long, lpvparam as any, byval fuwinini as long) as long　　private sub form－load()　　dim pold as boolean　　call systemparametersinfo(spi－screen－　　saverrunning, true, pold, 0)　　′禁用“ctrl＋del＋alt”键　　 ……　　call systemparametersinfo(spi－screen－　　saverrunning, false, pold, 0)　　′恢复使用“ctrl＋del＋alt”键　　end sub
------------------------------------
鼠标的隐藏 　　在大多数场合下，鼠标都是可见的。但有些场合需要隐藏鼠标，使之不可见，以免影响屏幕画面的整体效果，如屏幕保护程序。在vb中可通过调用windows api函数showcursor()来轻松地实现鼠标的隐藏。首先在全局模块中声明函数：　　declare function showcursor lib ″user32″(byval bshow asinterger) as interger　　sub form－load()　　temp = showcursor(0) ′隐藏鼠标　　……　　temp = showcursor(1) ′显示鼠标　　end sub

Answer 2

不过这招好像对Win2000无效哟．呵呵，我一直都想知道如何在2000 以上系统上
屏掉热键.