delphi 怎么把键盘搞死?

Posted 2023-05-11

用delphi 代码 怎么把键盘搞死?
就像挂机锁那样的程序！

转来的程序，你试着用下吧。。function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin Result := false;
LibPointer := NIL;
if LoadLibrary(PChar(LibName)) = 0 then exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> NIL then Result := true;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var xBlockInput :
function (Block: BOOL): BOOL; stdcall;
begin
if FunctionDetect (’USER32.DLL’, ‘BlockInput’, @xBlockInput) then
begin xBlockInput (True); // 禁止键盘鼠标
Sleep(10000); // 等待10秒
xBlockInput (False); // 允许键盘鼠标
end;
end 参考技术A 搜索注册表里的键盘驱动程序，就是从设备管理器看到的那个键盘的驱动程序详细信息，然后编个程序给随便找个文件给它替换掉，下次重启动键盘就玩完了。

五分钟搞死一台服务器

今天买了一台Linux云服务器，整整买一年的，打算把自己的网站部署上去，由于之前已经部署过了，轻车熟路，还有点小兴奋……五分钟后，登录不进去了……瞬间感觉好悲催……下面详细说说事情是怎么发生的，总结一下教训。

事件发生：

在安装svn服务的时候，需要首先安装依赖包openssl,系统自带的有openssl，我先卸载了它，然后开始安装另外一个高版本的openssl，在make时报错说需要zlib包，然后我就开始上传zlib包，发现远程 ftp连接不上了（这时已有的连接未断开，还可以使用），我找不到原因就重启了一下系统，结果再也连接不上服务器了……

openssl作用：

简单来说，openssl 是对连接、传输进行加密的技术。正因为此，我卸载它之后，就影响到了远程连接。

经验总结：

1. 进行系统更改前，需要进行备份，可以是整个系统的备份，也可以是某个具体操作的备份，以便在出现问题后立即还原。

2. 系统的重启被很多人认为是解决问题的一大法宝，事情的确如此，但不全是这样，要慎重。

3. 当由于误操作或者未者原因出现故障时，如果保持现状不变，不会再造成更坏的影响，那么最好先保持现状不变。不要想到一个解决方案就开始尝试解决，要强制自己先冷静下来，回忆故障出现前做了哪些操作，分析故障出现的原因，也可以网上搜索或者与相关技术人员进行讨论，然后再进行补救。

临近年关，生产总是出故障，虽然不是自己搞出来的，但每次听到故障的消息，会不自然的有一种心惊肉跳的感觉，要养成认真操作的习惯，加强安全意识！