开发一个密码查看器

【 tulaoshi.com - 编程语言 】

　　现在有很多软件都有密码输入对话框。上面显示的是*标识符。如果想查看其字符串并不难。下面我们就用delphi使用API函数来开发一个查看其密码字符的程序吧。

　　功能：当鼠标移动到密码处就会在程序的指定地方显示其字符串。

　　问题一：当鼠标移动到密码对话框处时查找出此处的控件句柄。这样才可以对这个对象进行操作.具体实现如下：

　　function gethwnd(): thandle;
　　var
　　  hwnd: thandle;
　　  wndpoint: tpoint;
　　begin
　　  try
　　    GetCursorPos(wndpoint); //获取鼠标指针
　　    hwnd:=WindowFromPoint(wndpoint);
　　    Result:=wndpoint
　　  except
　　    Result:=0;
　　  end;
　　end;

　　问题二: 根据获取的句柄得到此对象的密码字符。具体实现如下：

　　function getpass(var hwnd: thandle): string;
　　var
　　  passbuf: integer;
　　  passlong: longint;
　　  passText: PChar;
　　begin
　　  passlong:=SendMessage(hwnd,WM_GETTEXTLENGTH,0,0)+1; //获取此对象的长度
　　  GetMem(passText,passlong); //开辟一个内存区。存放数据长度为passlong
　　  passbuf:=LongInt(passtext); //获取此数据区的首地址
　　  SendMessage(hwnd,WM_GETTEXT,passlong,passbuf); //发送消息让此对象将密码数据存入首地址为passbuf的数据区。存入长度为passlong
　　  result:=passtext;
　　end;

　　这样主要问题都解决了。还可以使用GetClassName，GetWindowText等API函数将此对象的类、标题等都读出来。以下是源代码，在delphi6.0+winXP测试通过，仅供参考。

　　
　　{-----------------------------pas内容--------------------------------------}
　　unit getwnd;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, StdCtrls, ExtCtrls, Menus;

　　type
　　  TForm1 = class(TForm)
　　    Label1: TLabel;
　　    Label2: TLabel;
　　    Label3: TLabel;
　　    Label4: TLabel;
　　    Timer1: TTimer;
　　    Label5: TLabel;
　　    Label6: TLabel;
　　    PopupMenu1: TPopupMenu;
　　    N1: TMenuItem;
　　    Shape1: TShape;
　　    Shape2: TShape;
　　    Shape3: TShape;
　　    Shape4: TShape;
　　    N2: TMenuItem;
　　    procedure Timer1Timer(Sender: TObject);
　　    procedure N1Click(Sender: TObject);
　　    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
　　      Shift: TShiftState; X, Y: Integer);
　　    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
　　      Shift: TShiftState; X, Y: Integer);
　　    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
　　      Y: Integer);
　　    procedure FormCreate(Sender: TObject);
　　    procedure N2Click(Sender: TObject);
　　  private
　　    { Private declarations }
　　  public
　　     procedure Createparams(Var Params:TCreateParams);override;
　　    { Public declarations }
　　  end;

　　var
　　  Form1: TForm1;
　　  hwnd,htemp:THandle;
　　  point,mouse:TPoint;
　　  wndcaption:array[0..255] of char;
　　  wndclass:array[0..255] of char;
　　  fmove: boolean;

　　implementation

　　{$R *.dfm}

　　procedure TForm1.Timer1Timer(Sender: TObject);
　　var
　　  buf: integer;
　　  ret: longint;
　　  mText:PChar;
　　begin
　　   GetCursorPos(point);
　　   htemp:=WindowFromPoint(point);
　　   if hwndhtemp then
　　   begin
　　      hwnd:=htemp;
　　      GetClassName(hwnd,wndclass,256);
　　      GetWindowText(hwnd,wndcaption,256);
　　      if wndcaption='' then
　　      begin
　　         Ret:=SendMessage(hwnd,WM_GETTEXTLENGTH,0,0)+1;
　　         GetMem(mText,Ret);
　　         buf:=LongInt(mtext);
　　         SendMessage(hwnd,WM_GETTEXT,ret,buf);
　　         label4.Caption:=mText;
　　      end else
　　         label4.Caption:=wndcaption;
　　      label3.Caption:=inttostr(hwnd);
　　      label6.Caption:=wndclass;
　　   end;

　　end;

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

　　procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
　　  Shift: TShiftState; X, Y: Integer);
　　begin
　　  fmove:=true;
　　  mouse.X:=x;
　　  mouse.Y:=y;
　　end;

　　procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
　　  Shift: TShiftState; X, Y: Integer);
　　begin
　　  fmove:=false;
　　end;

　　procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
　　  Y: Integer);
　　begin
　　   if fmove then
　　   begin
　　      top:=top+y-mouse.Y;
　　      left:=left+x-mouse.X;
　　   end;
　　end;

　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　   left:=screen.Width-width-3;
　　   top :=screen.Height-height-34;
　　end;

　　procedure TForm1.Createparams(var Params: TCreateParams);
　　var
　　  wndParnet: THandle;
　　begin
　　  Inherited CreateParams(Params);
　　  With Params do
　　  begin
　　   EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES;
　　   wndParnet:=GetDesktopWindow;
　　  end;
　　end;

　　procedure TForm1.N2Click(Sender: TObject);
　　begin
　　   timer1.Enabled:=not timer1.Enabled;
　　   if timer1.Enabled then
　　      n2.Caption:='暂停'
　　   else
　　      n2.Caption:='开始';
　　end;

　　end.
　　{-------------------------------------------------------------------------}

　　
　　{----------------------------dfm内容--------------------------------------}
　　object Form1: TForm1
　　  Left = 308
　　  Top = 302
　　  BorderStyle = bsNone
　　  Caption = 'xiewh_open'
　　  ClientHeight = 59
　　  ClientWidth = 179
　　  Color = clBtnFace
　　  Font.Charset = DEFAULT_CHARSET
　　  Font.Color = clWindowText
　　  Font.Height = -11
　　  Font.Name = 'MS Sans Serif'
　　  Font.Style = []
　　  OldCreateOrder = False
　　  PopupMenu = PopupMenu1
　　  OnCreate = FormCreate
　　  OnMouseDown = FormMouseDown
　　  OnMouseMove = FormMouseMove
　　  OnMouseUp = FormMouseUp
　　  PixelsPerInch = 96
　　  TextHeight = 13
　　  object Shape1: TShape
　　    Left = 0
　　    Top = 0
　　    Width = 179
　　    Height = 2
　　    Align = alTop
　　    Pen.Color = clBlue
　　    OnMouseDown = FormMouseDown
　　    OnMouseMove = FormMouseMove
　　    OnMouseUp = FormMouseUp
　　  end
　　  object Label1: TLabel
　　    Left = 8
　　    Top = 11
　　    Width = 57
　　    Height = 13
　　    AutoSize = False
　　    Caption = #21477#26564#21495#65306
　　    Transparent = True
　　  end
　　  object Label2: TLabel
　　    Left = 8
　　    Top = 26
　　    Width = 64
　　    Height = 13
　　    AutoSize = False
　　    Caption = #26631#39064#21517#65306
　　    Transparent = True
　　  end
　　  object Label3: TLabel
　　    Left = 56
　　    Top = 12
　　    Width = 117
　　    Height = 13
　　    AutoSize = False
　　    Transparent = True
　　  end
　　  object Label4: TLabel
　　    Left = 56
　　    Top = 25
　　    Width = 117
　　    Height = 13
　　    AutoSize = False
　　    Transparent = True
　　  end
　　  object Label5: TLabel
　　    Left = 8
　　    Top = 40
　　    Width = 56
　　    Height = 13
　　    Caption = #31867#12288#21517#65306
　　    Transparent = True
　　  end
　　  object Label6: TLabel
　　    Left = 56
　　    Top = 39
　　    Width = 117
　　    Height = 13
　　    AutoSize = False
　　    Transparent = True
　　  end
　　  object Shape2: TShape
　　    Left = 0
　　    Top = 0
　　    Width = 2
　　    Height = 73
　　    Pen.Color = clActiveCaption
　　    Pen.Width = 2
　　  end
　　  object Shape3: TShape
　　    Left = 0
　　    Top = 57
　　    Width = 179
　　    Height = 2
　　    Align = alBottom
　　    Pen.Color = clBlue
　　    Pen.Width = 2
　　  end
　　  object Shape4: TShape
　　    Left = 177
　　    Top = -1
　　    Width = 2
　　    Height = 71
　　    Pen.Color = clBlue
　　    Pen.Width = 2
　　  end
　　  object Timer1: TTimer
　　    Interval = 100
　　    OnTimer = Timer1Timer
　　    Left = 120
　　    Top = 32
　　  end
　　  object PopupMenu1: TPopupMenu
　　    Left = 88
　　    Top = 32
　　    object N2: TMenuItem
　　      Caption = #26242#20572
　　      OnClick = N2Click
　　    end
　　    object N1: TMenuItem
　　      Caption = #36864#20986
　　      OnClick = N1Click
　　    end
　　  end
　　end

　　{--------------------------------------------------------------------------}