本文主要講解的是delphi編程模擬發(fā)送QQ消息！即利用外部程序發(fā)送QQ消息，代碼很少，其實原理就是，找到QQ消息輸入框，然后利用sendmessage傳送一個文本信息進去,再找到發(fā)送按鈕，模擬點擊按下發(fā)送按鈕就可以：

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

???? //學Delphi網(wǎng)群 － 群
?? hwnd1:=FindWindow(nil,'學Delphi網(wǎng)群 － 群');//根據(jù)標題名找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','發(fā)送(S)');?? //找到送信息按鈕，
??????? SendMessage?? (hwnd4,WM_LBUTTONDOWN ,?? 0,?? 0);???? //模擬按下
??????? SendMessage?? (hwnd4,WM_LBUTTONUp,0,0);?
?????? end
????? else??
??? end;
end;

2009/2011/2010不能使用;

轉載于:https://www.cnblogs.com/sunsoft/archive/2011/02/25/1964962.html

總結

以上是生活随笔為你收集整理的delphi编程模拟发送QQ2008消息！的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。