请教怎样收发net send的消息，就是信使服务(100分)

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-01

• #1

怎么样用程序接收别人发来的消息？怎样发出这样的消息？
不要winexec('net send ......')

 

Z

ztaif

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-01

• #2

那你写一个点对点的通信程序吧

 

B

bes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-01

• #3

winexec('net send ......')可以发送，接受我就不知道了，[]

 

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-02

• #4

up

 

S

sunrain_114

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-02

• #5

bes
您说的winexec("net send ....') 我就是没有试出来，您如果
可以做到，望不吝赐教！
var
txts:string;
begin
txts:='net.exe send'+edit1.text+' '+memo1.Text;
winexec(PChar(txts),sw_hide);
showmessage('信息成功发送!');

然而，showmessage执行后，总是显示：
找不到该文件“”

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-02

• #6

接收：监听它的端口，呵呵
发送：有一个API函数
function NetMessageBufferSend(servernameWideChar;
MsgNameWideChar;
FromNameWideChar;
Buf: PWideChar;
var BufLen:integer):integer; stdcall;
external 'netapi32.dll';

 

B

bes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #7

忘记了那天心情好，写过一个破程序，控制台的，如下：（水平太次，不要见笑）
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
var
i:integer;
count:integer;
cmdstr:String;
begin
{ TODO -oUser -cConsole Main : Insert code here }
//netsend 127.0.0.1 hello 100
if paramcount=3 then
begin
count:=strtoint(ParamStr(3));
cmdstr:='net send '+paramstr(1)+' '+paramstr(2);
for i:=1 to count do
winexec(Pchar(cmdstr),0);
end;
end.

 

X

xjxjjx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #8

函数NetMessageBufferSend在WIN98，95下是没有的

 

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #9

OK