发新话题
打印

[转载]Kk讲坛:用DELPHI来开发之限制鼠标移动

[转载]Kk讲坛:用DELPHI来开发之限制鼠标移动

信息来源:中国华北黑客联盟(www.hbhacker.net/bbs)文章作者:kaoiki

此文主要是告诉你。如何利用DELPHI来实现鼠标在屏幕上的移动范围

我想美萍这个网吧管理工具大家都知道

在没有登陆计费系统之前。鼠标只能在美萍的登陆窗口内活动

我的这篇文章就是告诉你如何简单的实现这个功能。真的非常简单

今天我还用这个做了一件坏事。

我老婆在用电脑的时候。我入侵了她的电脑。呵呵。

然后为了怕她看到我劫持她的桌面后,害怕,而断网。导致我无法继续操作

我事先上载了这个小程序,并将这个程序的ALPHA设置成0(完全透明)

我在这里并没有限制系统接受键盘输入。呵呵。我下次会告诉你们如何限制系统接受键盘输入

然后启动此程序。这样就有效的限制了我老婆鼠标的活动范围。呵呵

然后我就可以在我劫持的桌面上为所欲为。她都没有办法。呵呵

主要目的可以限制对方的鼠标活动,还有,在做管理方面。可以限制别人随意登陆系统。

好了。废话说完了。。看看代码。非常简单(代码我没有按照任何规则写,很晚了都快4点了,明天还要飞机。呵呵,请大家原谅)

-------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls;

type
  TForm1 = class(TForm)
   bsBusinessSkinForm1: TbsBusinessSkinForm;
   bsSkinData1: TbsSkinData;
   bsCompressedStoredSkin1: TbsCompressedStoredSkin;
   Button1: TbsSkinXFormButton;
   Panel1: TbsSkinPanel;
   bsSkinButton1: TbsSkinButton;
   procedure Button1Click(Sender: TObject);
   procedure Panel1DblClick(Sender: TObject);
   procedure bsSkinButton1Click(Sender: TObject);
  private
   { Private declarations }
  public
   { Public declarations }
  end;

var
  Form1: TForm1;
  pos: TRect;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  pos:=panel1.BoundsRect;
  MapWindowPoints(handle, 0, pos, 2); // 座标换算
  ClipCursor(@pos);
end;

procedure TForm1.Panel1DblClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
  close;
end;

end.
-------------------------------------------------------

效果图如下:(单击限制按钮后。鼠标将只能在黑色矩形框中移动)

http://home.goofar.com/kaoiki/limitmove.jpg

在此下载我编译好的EXE文件,当然你害怕病毒也可以不下载。呵呵
http://www.zpgo.net/pweb11/kaoiki/demo/limitmove.exe

TOP

发新话题