delphi编程模拟发送QQ2008消息！

本文主要讲解的是delphi编程模拟发送QQ消息！即利用外部程序发送QQ消息，代码很少，其实原理就是，找到QQ消息输入框，然后利用sendmessage传送一个文本信息进去,再找到发送按钮，模拟点击按下发送按钮就可以：

var hd,hwnd1,hwnd2,hwnd3,hwnd4:DWORD;

begin

//学Delphi网群 － 群

hwnd1:=FindWindow(nil,'学Delphi网群 － 群');//根据标题名找handle

if hwnd1<>0 then

begin

hwnd2 := FindWindowEx(hwnd1, THandle(nil),'AfxWnd42',nil);

hwnd2 := FindWindowEx(hwnd1,hwnd2,'AfxWnd42',nil);

hwnd2 := Findwindowex(hwnd2,0,'RichEdit20A',nil);

if Memo1.Text<>'' then

begin

SendMessage(hwnd2, EM_ReplaceSel, 0, Integer(pchar(Memo1.Text)));

hwnd4:= findwindowex(hwnd1,0,'Button','发送(S)'); //找到送信息按钮，

SendMessage (hwnd4,WM_LBUTTONDOWN , 0, 0); //模拟按下

SendMessage (hwnd4,WM_LBUTTONUp,0,0);

end

else

end;

end;

2009/2011/2010不能使用;