猫
Delphi技术
日志阅读：1998
日志评论：0

上一篇日志 «
下一篇日志 »

QQ自动发消息源码

该日志由 samool 发表于 2007-11-15 5:23 PM



这里面有的到窗口句柄，输入框句柄和按钮句柄的方法！
你可以结合使用的到你想的到的功能！
这是一个qq自动发送的功能，你看看，应该有点用吧！：）

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

 

 

 傻猫网络日志标签:    qq, 消息  tiffany jewelry  
网摘： Yahoo Baidu Google Bolaa 365Key Yesky Wozhai POCO ViVi YouNote Hexun Del.icio.us Yeeyoo igooi I2Key Cn3 Bytemen Furl Blinklist Blogmarks Technorati 分享到饭否
相关文章： (最多只显示5条记录)

腾讯TM 2008 Beta 正式发布 (浏览：2219, 评论：0)
号召网友：请把QQ头像换为国旗 (浏览：19089, 评论：94)
又一款显IP QQ外挂：功夫显IP 2.0 发布 (浏览：2569, 评论：1)
TM2008 Preview2 已经发布内测版本下载 (浏览：2128, 评论：0)
想念珊瑚虫的日子 (浏览：2277, 评论：3)
发表评论：( 来了就留个脚印吧！你的参与是我最大的动力！)

    

(单击图片换张图片)