在w2k下禁止ctrl+alt+del,alt+tab要示例，200大元!(200分)

wind_cloudy · 2001-07-11

当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码： Var temp:integer; begin SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); end; 当你要恢复功能键时用以下代码： Var Temp:integer; begin SystemParametersInfo(spi_screensaverrunning,0,@temp,0); end;

wlyft · 2001-07-13

我试过在win9x是可以的，但在w2k是无效的! 要不然我也不会出200分出来!

热血 · 2001-07-13

要写驱动

zgdtxf · 2001-07-13

在W2K下好象是没有什么办法可以屏蔽掉这几个键的，如果知道，也请通知我

Phoenix2000 · 2001-07-13

SystemParametersInfo(Spi_screensaverrunning,1,@temp,0) 函数用于 Win9x/Me 中可以 是系统进入屏幕保护状态，达到屏蔽 Ctrl+Alt+Del 这样的特殊系统组合键，但是在 WinNT /2000 下无效。在 NT 4.0 + SP3/Win 2000 环境下，需要用到低级键盘钩子，才能捕获到 这类按键。程序中需要用到 KBDLLHOOKSTRUCT 这个结构，但在 Delphi 中没有声明，还要 用到几个常量，Delphi 也没有声明，估计是被省略掉了。键盘钩子函数如果要变成全局钩 子，必须存放在 DLL 中；如果仅是对于特定线程有效，可以放在 EXE 中。下面是我的代码 例子，在 Delphi 6 中编译通过： unit Main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TMainForm = class(TForm)     EnableBtn: TButton;     DisableBtn: TButton;     AboutBtn: TButton;     ExitBtn: TButton;     Bell1: TBevel;     Image: TImage;     procedure AboutBtnClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure EnableBtnClick(Sender: TObject);     procedure DisableBtnClick(Sender: TObject);     procedure ExitBtnClick(Sender: TObject);     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   MainForm: TMainForm; implementation uses Hook; {$R *.dfm} type   // Declaration from VC++ WINUSER.H   //   PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;   KBDLLHOOKSTRUCT = record     vkCode: DWORD;     scanCode: DWORD;     flags: DWORD;     time: DWORD;     dwExtraInfo: DWORD;   end; const   LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;   WH_KEYBOARD_LL = 13; var   hhkNTKeyboard: HHOOK; // 钩子句柄 // 低级键盘钩子回调函数 // function LowLevelKeyboardFunc(nCode: Integer; w_Param: WPARAM;   l_Param: LPARAM): LRESULT; stdcall; var   blEatKeystroke: Boolean;   p: PKBDLLHOOKSTRUCT; begin   blEatKeystroke := False;   if nCode = HC_ACTION then   begin     case w_Param of       WM_KEYDOWN,       WM_SYSKEYDOWN,       WM_KEYUP,       WM_SYSKEYUP:         begin           p := PKBDLLHOOKSTRUCT(l_Param);            // 进行按键过滤           blEatKeystroke := (((p^.vkCode = VK_TAB) and                               ((p^.flags and LLKHF_ALTDOWN) <> 0)) or                               ((p^.vkCode = VK_ESCAPE) and                               ((p^.flags and LLKHF_ALTDOWN) <> 0)) or                               ((p^.vkCode = VK_ESCAPE) and                               ((GetKeyState(VK_CONTROL) and $8000) <> 0)) or                               ((p^.vkCode = VK_DELETE) and                               ((p^.flags and LLKHF_ALTDOWN) <> 0) and                               ((GetKeyState(VK_CONTROL) and $8000) <> 0)));         end;     end; // End of Case   end;   if blEatKeystroke then   begin     Result := 1;       // 捕获这些组合键，按键消息由自己处理，必须返回 1     Hook.ShowHookInfo; // 显示一个窗口，你可以改为自己的处理代码   end   else     // 其他的按键，交由别的线程处理（过滤）     Result := CallNextHookEx(0, nCode, w_Param, l_Param); end; procedure TMainForm.AboutBtnClick(Sender: TObject); begin   Application.MessageBox(     PChar('Windows NT 键盘钩子演示程序'#13#10#13#10'作者：Phoenix2000，2001年7月。'),     '关于本程序', 0); end; procedure TMainForm.FormCreate(Sender: TObject); begin   hhkNTKeyboard := 0; // 钩子句柄初值 end; procedure TMainForm.EnableBtnClick(Sender: TObject); begin   // 挂上键盘钩子   //   hhkNTKeyboard := SetWindowsHookEx(WH_KEYBOARD_LL,                                     LowLevelKeyboardFunc,                                     HInstance, 0);   if hhkNTKeyboard <> 0 then     Application.MessageBox('系统键盘钩子已经启动了！', '信息', 64)   else     Application.MessageBox('无法启动系统键盘钩子！', '错误', 16); end; procedure TMainForm.DisableBtnClick(Sender: TObject); begin   // 解除键盘钩子   //   if hhkNTKeyboard = 0 then     Application.MessageBox('系统键盘钩子已经被禁止了！', '警告', 48)   else   begin     UnhookWindowsHookEx(hhkNTKeyboard); // 卸载钩子     hhkNTKeyboard := 0;     Hook.CleanHookForm; // 此行代码与钩子无关，不要误解，是我自己的窗体清除     Application.MessageBox('成功卸载系统键盘钩子！', '信息', 64)   end; end; procedure TMainForm.ExitBtnClick(Sender: TObject); begin   Close; end; procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   CanClose := (hhkNTKeyboard = 0);   if not CanClose then     Application.MessageBox('请先卸载系统键盘钩子，然后再退出本程序！', '警告', 48); end; procedure TMainForm.FormDestroy(Sender: TObject); begin   if hhkNTKeyboard <> 0 then   begin     UnhookWindowsHookEx(hhkNTKeyboard);     hhkNTKeyboard := 0;   end;   Hook.CleanHookForm; end; end. 以上的代码在 NT 4.0 + SP3/Win 2000 下能捕获 Alt + Tab、Alt + ESC、Ctrl + ESC 这 样的组合键，而 Ctrl + Alt + Del 无法捕获。有兴趣的朋友自己研究一下又没有别的办 法，或是我的代码由否不妥之处。另外，NT 环境下用低级键盘钩子，只有在 NT 4.0 + SP3 以上的版本才有效，在 NT 4 + SP2 都是无效的。在 Win2000 下当然有效了。

xWolf · 2001-07-13

用Hook LowLevelKeyboardProc，不过对于ctrl+alt+del好像是无效的，下面是一个例子： LRESULT CALLBACK LowLevelKeyboardProc( INT nCode, WPARAM wParam, LPARAM lParam) {     // By returning a non-zero value from the hook procedure, the     // message does not get passed to the target window     KBDLLHOOKSTRUCT *pkbhs = (KBDLLHOOKSTRUCT *)lParam;     BOOL bControlKeyDown = 0;     switch (nCode) { case HC_ACTION: // Check to see if the CTRL key is pressed bControlKeyDown = GetAsyncKeyState(VK_CONTROL) >> ((sizeof(SHORT) * 8) - 1); // Disable CTRL+ESC if (pkbhs->vkCode == VK_ESCAPE && bControlKeyDown) return 1; // Disable ALT+TAB if (pkbhs->vkCode == VK_TAB && pkbhs->flags & LLKHF_ALTDOWN) return 1; // Disable ALT+ESC if (pkbhs->vkCode == VK_ESCAPE && pkbhs->flags & LLKHF_ALTDOWN) return 1; // Disable Win if (pkbhs->vkCode == VK_LWIN || pkbhs->vkCode == VK_RWIN) return 1; break; default: break;     }     return CallNextHookEx(hLLKeyHook, nCode, wParam, lParam); }

乌龙茶 · 2001-07-13

在win2k下面ctrl+alt+del是关系到系统安全性的按键， 例如更改密码，登陆等等。 如果能够截取ctrl+alt+del那么我么就可以假冒一个登 陆窗体而截取密码。win2k的安全性就岌岌可危了。 所以ctrl+alt+del在win2k下面应该是不能截取的。

xWolf · 2001-07-13

不过说回来，我看到过有人模拟了Ctrl+Alt+Delete，主要是在系统里广播消息WM_HOTKEY PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG(MOD_ALT | MOD_CONTROL, VK_DELETE)) 问题在于发消息的这个线程应该是属于WinLogon这个Desktop，所以，需要创建一个线程来发这个 消息。发消息之前，需要用OpenDesktop("Winlongon",...)创建一个Desktop，然后切换到这个创 建好的Desktop。发完消息，再切换回原先的Desktop

wlyft · 2001-07-13

乌龙茶理解错误! 我意思是在登录完成后的禁止! 或者使鍵盘失效!只用鼠标

icic · 2001-07-24

可不可以用汇编语言来实现切断键盘和机器的联系 ?

base1 · 2001-07-24

>>wlyft, 乌龙茶理解是对的,如果在登陆后可以屏蔽,那么在登陆前也就可以 仿造一个登陆窗口用来窃取密码信息了.98下有不少黑客程序就是 利用了这种方式. 关于在两千下的屏蔽问题,我也很想知道答案 你们不觉得2000下的屏保很奇怪吗?它是怎么屏蔽的?

maming · 2001-07-24

Phoenix2000的办法不行吗?

Phoenix2000 · 2001-07-24

需要说明一个问题，在 NT/2000 下的屏幕保护程序与系统安全是挂钩的，具体使用了什么 方法不知道，比 Win9x 下的屏保安全机制复杂得多。换个思路，也就是在于能否在 NT/2000 下认为触发系统进入屏幕保护状态（当然进入屏保状态而不运行屏保程序），这和在 Win9x 中肯定不一样，要么这方面资料很少，要么就是微软没有公开这个相关的 API 函数接口，君 不见由第三方开发的 NT/2000 的屏幕保护程序少的可怜吗？这也是正常的，如果微软公开这 个接口（或者实现方法），那么NT/2000 的安全将行同虚设。所以说 Ctrl+Alt+Del 在 NT/2000 下理论上是可以捕获的，不一定非要用低级钩子这种方法，因为系统有可能的确对这个组合键作 特殊处理，使它可以不被任何非系统内核处理的钩子所捕获，但是用屏保的老办法可以，但是 不知道 NT/2000 的屏保与系统安全认证机制的接口或者联系，也是枉然。

晨晨 · 2001-07-26

那些隐藏的win api函数是怎么找出来的？

周浩 · 2001-07-27

请问Phoenix2000： Hook单元在什么地方呢？

bjf2001 · 2001-08-10

我想知道hook单元模块在什么地方，另外将alt+esc,ctr+esc,alt+tab键切换到其他应用程序

zv2000 · 2001-08-10

关注

sunhuiNO1 · 2001-08-11

好象用VC可以啊，用WH_KEYBOARD_DLL可以，但是在DELPHI下这个钩子不能用

wlyft · 2001-08-17

多人接受答案了。

在w2k下禁止ctrl+alt+del,alt+tab要示例，200大元!(200分)

wlyft

Unregistered / Unconfirmed

wind_cloudy

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

zgdtxf

Unregistered / Unconfirmed

Phoenix2000

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

乌龙茶

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

icic

Unregistered / Unconfirmed

base1

Unregistered / Unconfirmed

maming

Unregistered / Unconfirmed

Phoenix2000

Unregistered / Unconfirmed

晨晨

Unregistered / Unconfirmed

周浩

Unregistered / Unconfirmed

bjf2001

Unregistered / Unconfirmed

zv2000

Unregistered / Unconfirmed

sunhuiNO1

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

Similar threads