高手LOOK!关于postmessage的问题？

Question

hehe 现在好多人想写QQ的木马程序！

Answer 1

程序部份源码，请高手指点！此程序的目的是一出现QQ登陆界面就弹出消息框，然后退出！ 
procedure TForm1.Button1Click(Sender:TObject);
var
  hwnd:longword; 
begin
   Timer1.Enabled:=True;
   hwnd:=findWindow(nil,'OICQ用户登陆');
   if hwnd<>0 then
     postMessage(hwnd,WM_CLOSE,0,0);
end;
   

Answer 2

跟SendMessage和PostMessage无关。
我试验后，觉得问题如下：
1、FindWindow(nil,'OICQ用户登录');//不是"用户登陆"，至少我这个版本是这样。
2、Timer1.OnTimer := Button1Click设置了没有？

Answer 3

var
  Form1: TForm1;
  hwind:longword;
implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
begin
 hwind:=findwindow(nil,'OICQ用户登录');
 if hwind<>0 then
  postmessage(hwind,WM_CLOSE    ,0,0);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
源代码全部在此，请高手指点错误！有高手说换成sendmessage，但还是不行?

Answer 4

我终于摆平的了，hwind:=findwindow(nil,'XXXX');把XXXX改为你的QQ号就OK了！