如何捕获从局域网其它机器用 net send 发来的消息?(100分)

L

lanny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

通过局域网其它机器用 net send 发来的消息，会在机器上弹出一个 信使服务 的对话框，我想截获这个窗口的消息并把它显示在一个 MEMO 中记录下来，如何做？
运行环境 Win2K.

Thank all.[]

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

可以的。。。

Windows里面的一个什么程序就可以。。分析一下用了什么API吧。。

 

L

lanny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #3

To bubble
你的方法是可以，可是会有消息窗口弹出，我的目的是不要这个窗口出来。

问题再放两天，两天后分赃。[]

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #4

截获消息我不会。实在不行用timer。[：D]
procedure TForm1.Button1Click(Sender: TObject);
var
Handle:THandle;
Buf: array[0..1024] of Char;
begin
Handle:=FindWindow(nil,'信使服务 ');//注意，后面有一个空格
Handle:=FindWindowEX(Handle,0,'static',nil);
SendMessage(Handle, WM_GETTEXT, 1024, Integer(@Buf));
Memo1.Text:=buf;
end;
我试验成功

 

L

lanny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #5

接受答案了.