怎么利用API发送消息给远程一个主机

[bingbing2008]

如何利用netmessagebuffersend函数给一个远程主机发送一句话
不用对方回复不要C/S模式
我就这些分了 帮帮我好吗？急用！
代码要写的详细些 谢谢

[deanchang]

你不如调用net命令

[sunssc]

使用net send servername msg 命令不更好么？

[longlonger]

直接用net send把这个函数调用
procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec(Pchar('Net send Local Hello'),SW_HIDE );
end;

[DelphiStudy]

unit SendUse;

interface
uses SysUtils,Classes;
function ToUnicode(str:string;dest:PWideChar):integer;
function SendMsg(Toh,From,Msg:string):integer;
function NetMessageBufferSend(servername:PWideChar;
MsgName:PWideChar;
FromName:PWideChar;
Buf: PWideChar;
var BufLen:integer):integer;cdecl;

implementation

function ToUnicode(str:string;dest:PWideChar):integer;
var
len:integer;
begin
StringToWideChar(str,dest,len);
Result:=len;
end;

function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend';

function SendMsg(Toh,From,Msg:string):integer;
var
ToName :array [0..64] of WideChar;
FromName :array [0..64] of WideChar;
WMsgText:array [0..1000] of WideChar;
MsgLen, i:integer;
begin
for i := 0 to 64 do ToName[i] := #0;
ToUnicode(Toh,ToName);
for i := 0 to 64 do FromName[i] := #0;
ToUnicode(From,FromName);
for i := 0 to 1000 do WMsgText[i] := #0;
ToUnicode(Msg,WMsgText);
Result:=NetMessageBufferSend(nil,ToName,FromName,@WMsgText,MsgLen);
end;

end.


UserName : string;
MessageHeader : TStringList;


var
strUser : PChar;
strSize : DWord;
begin
strUser := StrAlloc(100);
strSize := 100;
GetUserName(strUser,strSize);
UserName := strUser;
StrDispose(strUser);
MessageHeader := TStringList.Create;
MessageHeader.Add('---------------------------------');
MessageHeader.Add(' From Hacker'{+UserName});
MessageHeader.Add('---------------------------------');
end;

SendMsg(AddrBox.Text,'HackerPC',MessageHeader.Text+Memo1.Text);

[DelphiStudy]

可以吓吓不太懂电脑的，呵呵

[easyboot]

是呀用

net send 吧

[honkily]

学习的

[microjuz]

学习
想问:怎么了解某个dll提供了那些方法

[DelphiBoy2003]

楼上的，用VC自带的一个工具可以知道，但是只能知道这个DLL引出了哪些函数，但是函数的参数全部不知道。

[888888888888]

关注

[d0347]

我打算写一个Send函数，请大家多交流
Send(CompterName:String; Message:String ;....) ;