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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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;implementationfunction 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);

Answer 4

是呀用
 
net send 吧

Answer 5

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

Answer 6

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

Answer 7

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