我想做个传奇2的外挂,只要能自动发言就可以了。
开始我用发信息的方法无果。
============
var
hMir:Hwnd;
hEdit:Hwnd;
MessageName:String;
begin
MessageName:='信息'; //文字信息
hMir := FindWindow(nil,'legend of mir2'); //mir2的句柄
PostMessage(hMir,WM_CHAR,13,0); //给窗口发回车信息
hEdit := FindWindowEx(hMir,0,'Edit',nil); //查找发言Edit的句柄 2
SendMessage(hEdit, wm_SetText, 0,Integer(Pchar(MessageName)));//给Edit发文字信息 3 PostMessage(hMir,WM_CHAR,13,0); //再发回车信息 4
end;
===========
第一次给窗口发回车信息 的时候,窗口可以接收,当发言Edit没法接收,不知道这里错再哪里了。 当再次发回车信息的时候窗口也没法接收了。 有没有大虾能帮我改改。
或者能提供 给mir2 发包方式 的原代码,我找了很久也没有delphi的。 我的油箱 [email protected]
谢谢。
开始我用发信息的方法无果。
============
var
hMir:Hwnd;
hEdit:Hwnd;
MessageName:String;
begin
MessageName:='信息'; //文字信息
hMir := FindWindow(nil,'legend of mir2'); //mir2的句柄
PostMessage(hMir,WM_CHAR,13,0); //给窗口发回车信息
hEdit := FindWindowEx(hMir,0,'Edit',nil); //查找发言Edit的句柄 2
SendMessage(hEdit, wm_SetText, 0,Integer(Pchar(MessageName)));//给Edit发文字信息 3 PostMessage(hMir,WM_CHAR,13,0); //再发回车信息 4
end;
===========
第一次给窗口发回车信息 的时候,窗口可以接收,当发言Edit没法接收,不知道这里错再哪里了。 当再次发回车信息的时候窗口也没法接收了。 有没有大虾能帮我改改。
或者能提供 给mir2 发包方式 的原代码,我找了很久也没有delphi的。 我的油箱 [email protected]
谢谢。
解决方案 »
- A窗口里打开一B窗口,然后B窗口里又打开C窗口,一直打开下去,那每个窗口间怎么互相错位?
- 数据库文件加密
- delphi里有没有截取字符的涵数
- 怎么用程序来设置报表的自定义纸张的大小呢?(用delphi或vfp)
- RegisterWindowMessage的消息注册问题!!!!
- 关于
- 为什么不能在Delphi5中捕获异常事件?
- 小弟想编一套公司管理软件 ,可是客户提出了像EXCEL里面的公式输入 ,小弟现在没有足够的时间写公式编译器了不知哪位大哥有现成的代码借给小弟参考以下
- 怎样在delphi编程中列出所有函数成员,以供调用?
- 内存泄露了,大家帮帮忙吧。
- 500分求QQ客户端源码
- 送分了.控讨delphi中的非可视组件制作成ocx
PostMessage(hMir,WM_CHAR,13,0);//发送给窗口
有没有用?
也有用呀 ,就算以后再怎么发回车信息,窗体都没有响应。