delphi QQ自动发消息源码


本文整理自网络,侵删。

 delphi代码
procedure TForm1.Button1Click(Sender: TObject);
var
hParent,hButton,hMemo: HWND;
begin
Memo1.CopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中
try
//找发送消息的QQ窗口
hParent := FindWindow(nil, '发送消息');
//然后找回话时用的编辑窗口,Point函数用于返回一个TPoint类型变量
hMemo := ChildWindowFromPointEx(hParent, Point(50, 100), CWP_ALL);
//找到“送讯息”按钮的句柄
hButton := FindWindowEx(hParent,0,nil,'送讯息(&S)');
if (hParent = 0) or (hMemo = 0) or (hButton = 0) then
MessageBox(Handle,'没有找到发送窗口,请重试!','错误',MB_ICONWARNING)
else
begin
//向发送消息中的回话编辑框发送粘贴消息
SendMessage(hMemo,WM_PASTE,0,0);
//向“送讯息”按钮送单击消息以模仿按键发送回话
SendMessage(hButton,BM_CLICK,0,0);
end;
except
//如果发生以外错误给出提示
MessageBox(Handle,'发送消息出错,请重试!','错误',MB_ICONWARNING);
end;
end;

相关阅读 >>

Delphi tstreamreader 和tstreamwriter

Delphi中tstringlist分割字符串的用法

Delphi firedac连接mysql的时候报错

Delphi 的内存操作函数(1): 给字符指针分配内存

Delphi 利用vclzip实现分卷压缩

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 向windows窗口发送alt组合键的问题

Delphi format 另类用法

Delphi xe 打开andorid gps设置

Delphi xe5的新功能“ tlistview内置搜索过滤”

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...