DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: luoj0902
今日帖子: 13
在线用户: 15
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 fan (孤独求爱) ★☆☆☆☆ -
盒子活跃会员
2003/4/25 19:58:30
标题:
关于QQ发送消息的代码,谁帮看一下! 浏览:1343
加入我的收藏
楼主: 这段代码的本意是通过这个自动发送消息,可是不知道为什么!粘贴板上的东西就是粘贴不到QQ的memo中,好象sendmessage(hMemo,wM_PASTE,0,0);没有起到作用似的!大家帮忙解决一下!谢谢了,
procedure TForm1.Button1Click(Sender: TObject);
var
hParent,hButton,hMemo:HWND;
begin
text1.SelectAll;
text1.CopyToClipboard;
try
hParent:=FindWindow(nil,'发送消息');
hMemo:=ChildWindowFromPointEx(hParent, Point(50, 100),CWP_ALL);
hbutton:=FindWindowEx(hparent,0,nil,'送讯息(&S)');
if (hParent=0)or(hMemo=0)or(hButton=0)then begin
messagebox(Handle,'没有找到QQ“发送消息”窗口!','错误',MB_ICONWARNING);
end
else
begin
sendmessage(hMemo,wM_PASTE,0,0);
sendmessage(hButton,BM_CLICK,0,0);
end;
except
showmessage('发送出错,请重试!')
end;
end;
----------------------------------------------
我不懂就发帖子!大家帮我哦!
作者:
男 fan (孤独求爱) ★☆☆☆☆ -
盒子活跃会员
2003/5/5 23:27:35
1楼: 有人帮看一下吗?
----------------------------------------------
我不懂就发帖子!大家帮我哦!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行35.15625毫秒 RSS