dekphi QQ自动发消息源码


本文整理自网络,侵删。

  

QQ自动发消息源码


这里面有的到窗口句柄,输入框句柄和按钮句柄的方法!
你可以结合使用的到你想的到的功能!
这是一个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 xe2 - 点点滴滴

Delphi 什么是堆、栈?

Delphi tfdquery提交tfdmemtable修改的数据

Delphi 高速替换大文本字符串内容

Delphi模仿“千千静听”滚动标题栏,非常简单!

Delphi 判断文件是否正在被使用

Delphi cpu窗口的扩展学习

Delphi 控制台 输入输出实例代码

Delphi调用rest

Delphi & c++ 安卓使用权限

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



打赏

取消

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

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

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

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

评论

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