HanDs
管理员

[Delphi文章] 如何写一个聊天辅助程序 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

procedure TForm1.Button1Click(Sender: TObject);
var
hParent,hButton,hMemo: HWND;
begin
Memo1.SelectAll;//Memo内容全选
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;

procedure TForm1.Button2Click(Sender: TObject);
var
hParent,hButton,hMemo: HWND;
begin
Memo1.SelectAll;
Memo1.CopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中
try
//找对话模式中窗口
hParent := FindWindow(nil, '对话模式');
//找到对话模式中的回话编辑框
hMemo := ChildWindowFromPointEx(hParent, Point(50, 300), 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;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
如何 一个 聊天 辅助 程序
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复