Net Send, NetMessageBufferSend

Имам зорове да подкарам една програма дето праща съобщения с net send. Самия net send си работи, но когато викам API фунцкията NetMessageBufferSend получавам грешки ERROR_ACCESS_DENIED и ERROR_BAD_NETPATH. Подозирам че ми играе лоша услуга проксито, ама не съм сигурен.
Благодаря предварително за всяка информация по въпроса.

чети и дишай по-леко

Не е това което ти обещах ама го пробвай - ако не работи ще търся другото...

------------------------------

Question/Problem/Abstract:

How can I send Messages from an application, as like NT command net send?
Answer:


Well here it goes. The Program uses a Function not declared in the standard units in Delphi 5 Enterprise (Update). So we have to include our own file with constant's and the function.
Here it goes:


unit lmmsg;

// Thanks to Win2k4u for providing me with this file. (dalNet, #delphi.se)

interface

//uses lmglobal;

const
//
// Values for msgi1_forward_flag.
//

MSGNAME_NOT_FORWARDED = 0; // Name not forwarded
MSGNAME_FORWARDED_TO = $04; // Name forward to remote station
MSGNAME_FORWARDED_FROM = $10; // Name forwarded from remote station

type

MSG_INFO_0 = record
msgi0_name : PWideChar
end;
PMSG_INFO_0 = ^MSG_INFO_0;

MSG_INFO_1 = record
msgi1_name : PWideChar;
msgi1_forward_flag : Integer;
msgi1_forward : PWideChar
end;
PMSG_INFO_1 = ^MSG_INFO_1;


function NetMessageNameAdd (
serverName, msgName : PWideChar) : Integer; stdcall;

function NetMessageNameEnum (
serverName : PWideChar;
level : Integer;
var buffer : Pointer;
prefMaxLen : Integer;
var entriesRead, totalEntries, resumeHandle : Integer) : Integer; stdcall;

function NetMessageNameGetInfo (
servername, msgname : PWideChar;
level : Integer;
var buffer : Pointer) : Integer; stdcall;

function NetMessageNameDel (
serverName, msgName : PWideChar) : Integer; stdcall;

function NetMessageBufferSend (
serverName, msgName, fromName : PWideChar;
buf : Pointer;
bufLen : Integer) : Integer; stdcall; //NetAPIStatus == Integer

implementation

function NetMessageNameAdd; external 'NETAPI32.DLL';
function NetMessageNameEnum; external 'NETAPI32.DLL';
function NetMessageNameGetInfo; external 'NETAPI32.DLL';
function NetMessageNameDel; external 'NETAPI32.DLL';
function NetMessageBufferSend; external 'NETAPI32.DLL';
end.

Copy above code and save it as the unit lmmsg.pas.

Then place following components on your Form.
* TLabel (Caption, Receiver)
* TLabel (Caption, '');
* TComboBox
* TButton (Caption, Send)
* TMemo

Woo! Half way done now.. Create an event for the Button you just created, call it Button1 and paste this code:

procedure TForm1.Button1Click(Sender: TObject);
var
MsgBuff : pWideChar;
Size, NewSize, Code : Integer;
User, UName : Array[0..127] Of WideChar;
begin

Size := Length(Memo1.Text);
StringToWideChar(ComboBox1.Text, User, SizeOf(User) div 2);
StringToWideChar(UserName, UName, SizeOf(UName) div 2);

NewSize := Size * 2;
MsgBuff := VirtualAlloc(nil, Size, Mem_Commit, Page_ReadWrite);
MultiByteToWideChar(CP_ACP, 0, PChar(Memo1.Text), Size, MsgBuff, NewSize);
Code := NetMessageBufferSend('', User, UName, MsgBuff, lStrLenW(MsgBuff)* SizeOf(pWideChar));

If Code = 0 Then
Label3.Caption := 'Message was sent Successfully!'
Else
Label3.Caption := 'Returned Error Code: ' + IntToStr(Code);

End;

---
Е т'ва е живот!

и двете са извадки от Делфи 3xxx
--------------------------------------------

Question/Problem/Abstract:

The article "Sending Messages as the Microsoft NT command, net send" by Chris Viklund prompted me to look at the Net functions a little more closely. The first problem being that trying to run on a 95/98 machine will fail at program startup complaining about the DLL which it cannot link to. My solution was to create a TNetSend class which will attempt to load the DLL at creation time, if it fails (Win 95/98) then any calls to SendMessage will simply return false and no application crash occurs. I have played around with the other functions declared by Chris, but cannot actually get them to do anything useful. ie. TFGetNameEnum = function(ServerName : PWideChar;Level : integer; var Buffer : Pointer; PrefMaxLen : integer; var EntriesRead,TotalEntries,ResumeHandle : integer) : integer; stdcall; TFNameAdd = function(ServerName,MsgName : PWideChar) : integer; stdcall; TFNameDel = function(ServerName,MsgName : PWideChar) : integer; stdcall; The class currently has 1 method function SendMessage(ToName,NetMessage : string; ServerName : string = '') : boolean; ServerName is NullStr by default (LOCAL SERVER), I have not managed to use it with any servername except '' as ADMIN privileges are required for remote servers. Example var NS : TNetSend; procedure ????? begin NS := TNetSend.Create; ... end; procedure ????? begin NS.SendMessage('mikeh','Testing Net Send'); NS.SendMessage('harryj','Home Time at 6.00'); ... end; procedure ????? begin NS.Free; ... end; I Have included the expanded version I have been playing with as well, but not having much joy in getting any results (Privileges ????), maybe someone out there can debug and expand on them.
Answer:


// Simplified Class (single method only)unit NetSend;

interface
uses Windows,Classes;

type
// DLL Prototype declaration
TFSendMessage = function(ServerName,MsgName,FromName : PWideChar;
Buf : Pointer; BufLen : integer) : integer;
stdcall;

// TNetSend Class
TNetSend = class(TObject)
private
FLibHandle : THandle;
FSendMessage : TFSendMessage;
public
constructor Create;
destructor Destroy; override;
function SendMessage(ToName,NetMessage : string;
ServerName : string = '') : boolean;
end;

// -----------------------------------------------------------------------------
implementation

// ================================================
// Supplementarty functions
// ================================================

function GetLogonName : string;
var Buffer : string;
Retvar : string;
ASize : dword;
begin
RetVar := '';
SetLength(Buffer,50);
Asize := length(Buffer);
if GetUserName(PChar(Buffer),ASize) then begin
Retvar := string(PChar(Buffer));
end
else
Retvar := '';

Result := RetVar;
end;

function ComputerName : string;
var Name : PChar;
WName : string;
Size : DWORD;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(Name,Size);
GetComputerName(Name,Size);
WName := string(Name);
FreeMem(Name);
Result := WName;
end;

// ================================================
// Dynamically attempt to load library
// ================================================

constructor TNetSend.Create;
begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle <> 0 then
@FSendMessage := GetProcAddress(FLibHandle,'NetMessageBufferSend');
end;

destructor TNetSend.Destroy;
begin
inherited Destroy;
if FLibHandle <> 0 then FreeLibrary(FLibHandle);
end;

// =============================================================
// Send a message to a user/application name
// ServerName is '' by default and equates to LOCAL COMPUTER
// Admin privilige is required to send from a remote server
// ==============================================================

function TNetSend.SendMessage(ToName,NetMessage : string;
ServerName : string = '') : boolean;
var MsgBuff : PWideChar;
Size,NewSize : integer;
User,MyName,SName : array [0..127] of WideChar;
RetVar : boolean;
begin
RetVar := false;

if @FSendMessage <> nil then begin
Size := length(NetMessage);
StringToWideChar(ServerName,SName,SizeOf(SName) div 2);
StringToWideChar(ToName,User,SizeOf(User) div 2);
StringToWideChar(GetLogonName+'@'+ComputerName,MyName,
SizeOf(MyName) div 2);
NewSize := Size * 2;
MsgBuff := VirtualAlloc(nil,Size,MEM_COMMIT,PAGE_READWRITE);
MultiByteToWideChar(CP_ACP,0,PChar(NetMessage),Size,
MsgBuff,NewSize);
RetVar := (FSendMessage(SName,User,MyName,MsgBuff,
lStrLenW(MsgBuff) * SizeOf(PWideChar)) = 0);
VirtualFree(MsgBuff,0,MEM_RELEASE);
end;

Result := RetVar;
end;

end.





// =============================================================================
// Additional functionality - ANYONE HELP OR EXPAND HERE PLEASE ???
// =============================================================================

unit NetSend;

interface
uses Windows,Classes;

type
// DLL Prototype declarations
TFSendMessage = function(ServerName,MsgName,FromName : PWideChar;
Buf : Pointer; BufLen : integer) : integer;
stdcall;

TFGetNameEnum = function(ServerName : PWideChar;Level : integer;
var Buffer : Pointer; PrefMaxLen : integer;
var EntriesRead,TotalEntries,ResumeHandle : integer) : integer;
stdcall;

TFNameAdd = function(ServerName,MsgName : PWideChar) : integer;
stdcall;

TFNameDel = function(ServerName,MsgName : PWideChar) : integer;
stdcall;

// TNetSend Class
TNetSend = class(TObject)
private
FLibHandle : THandle;
FSendMessage : TFSendMessage;
FGetNameEnum : TFGetNameEnum;
FNameAdd : TFNameAdd;
FNameDel : TFNameDel;
public
constructor Create;
destructor Destroy; override;
procedure DelMsgName(MsgName : string;
ServerName : string = '');
procedure AddMsgName(MsgName : string;
ServerName : string = '');
procedure GetReceipients(ToNames : TStrings;
ServerName : string = '');
function SendMessage(ToName,NetMessage : string;
ServerName : string = '') : boolean;
end;

// -----------------------------------------------------------------------------
implementation

const BUF_SIZE = 10;

type
MSG_INFO = record
MsgName : PWideChar
end;


// Methods

constructor TNetSend.Create;
begin
FLibHandle := LoadLibrary('NETAPI32.DLL');

if FLibHandle <> 0 then begin
@FSendMessage := GetProcAddress(FLibHandle,'NetMessageBufferSend');
@FGetNameEnum := GetProcAddress(FLibHandle,'NetMessageNameEnum');
@FNameAdd := GetProcAddress(FLibHandle,'NetMessageNameNameAdd');
@FNameDel := GetProcAddress(FLibHandle,'NetMessageNameNameDel');
end;
end;

destructor TNetSend.Destroy;
begin
inherited Destroy;
if FLibHandle <> 0 then FreeLibrary(FLibHandle);
end;

// =============================================================
// Send a message to a user/application name
// ServerName is '' by default and equates to LOCAL COMPUTER
// Admin privilige is required to send from a remote server
// ==============================================================

function TNetSend.SendMessage(ToName,NetMessage : string;
ServerName : string = '') : boolean;
var MsgBuff : PWideChar;
Size,NewSize : integer;
User,MyName,SName : array [0..127] of WideChar;
RetVar : boolean;
begin
RetVar := false;

if @FSendMessage <> nil then begin
Size := length(NetMessage);
StringToWideChar(ServerName,SName,SizeOf(SName) div 2);
StringToWideChar(ToName,User,SizeOf(User) div 2);
StringToWideChar(GetLogonName+'@'+ComputerName,MyName,
SizeOf(MyName) div 2);
NewSize := Size * 2;
MsgBuff := VirtualAlloc(nil,Size,MEM_COMMIT,PAGE_READWRITE);
MultiByteToWideChar(CP_ACP,0,PChar(NetMessage),Size,MsgBuff,NewSize);
RetVar := (FSendMessage(SName,User,MyName,MsgBuff,
lStrLenW(MsgBuff) * SizeOf(PWideChar)) = 0);
VirtualFree(MsgBuff,0,MEM_RELEASE);
end;

Result := RetVar;
end;


// ====================================================================
// Return list of msg names (only returns myself on local computer ?)
// other server names I get a blank list ??
// ====================================================================

procedure TNetSend.GetReceipients(ToNames : TStrings;
ServerName : string = '');
const LEN = 20;

var InfPtr : pointer;
InfArr : array [1..BUF_SIZE] of MSG_INFO;
EntriesRead,TotalEntries,ResumeHandle : integer;
SName : array [0..127] of WideChar;
i : integer;
begin
ToNames.Clear;

if @FGetNameEnum <> nil then begin
EntriesRead := 0;
TotalEntries := 0;
ResumeHandle := 0;
StringToWideChar(ServerName,SName,SizeOf(SName) div 2);
InfPtr := VirtualAlloc(nil,SizeOf(MSG_INFO_ARR),MEM_COMMIT,PAGE_READWRITE);
FGetNameEnum(SName,0,InfPtr,LEN,EntriesRead,TotalEntries,ResumeHandle);
if EntriesRead > 0 then begin
move(InfPtr^,InfArr[1],SizeOf(MSG_INFO_ARR));
for i := 1 to EntriesRead do ToNames.Add(InfArr.MsgName);
end;

VirtualFree(InfPtr,0,MEM_RELEASE);
end;
end;

procedure TNetSend.AddMsgName(MsgName : string;
ServerName : string = '');
var UName,SName : array [0..127] of WideChar;
begin
if @FNameAdd <> nil then begin
StringToWideChar(MsgName,UName,SizeOf(UName) div 2);
StringToWideChar(ServerName,SName,SizeOf(SName) div 2);
FNameAdd(SName,UName);
end;
end;

procedure TNetSend.DelMsgName(MsgName : string;
ServerName : string = '');
var UName,SName : array [0..127] of WideChar;
begin
if @FNameDel <> nil then begin
StringToWideChar(MsgName,UName,SizeOf(UName) div 2);
StringToWideChar(ServerName,SName,SizeOf(SName) div 2);
FNameDel(SName,UName);
end;
end;

end.

---
Е т'ва е живот!

btw ima mnogo po-lesen i prenosim (win98) nachin za net-send toj e chrez izpolzwane na mailslot nqkade mi se tarkalqshe dokumentaciq po waprosa inachge w sf.net mojehs da si namerish NewPopper - proekt na delphi kojto wse se kanq da pooprawq ama neznam dali avtora mu se e otkazal ot nego a i wreme nqmam....

ako ti trqbwa oskydnata dokumentaciq po waprosa sfirkaj sha prashtam..

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Има, ама не става. Щото с mailslot се праща само през LAN, не и през Internet. А на мен за Internet ми трябва

чети и дишай по-леко

znaewsh li kwa e weroqtnostta da te filtrirat po patq? a prez mail slot toje mojesh da zadawash ip kato name na target-a koeto maj ti reshawa problema

------------------------------
I got a COMPILER, and I'm not afraid to use it!

В клуб Програмисти ми дадоха код, ма за C... Не ми се пренатутуртва. Ако имаш код с тоя маилслот ще го пробвам. Мерси за помощта

чети и дишай по-леко

[линк]

ako towa ne ti swarshi rabota imam nqkade lichen ama ne e dowarshern ...

------------------------------
I got a COMPILER, and I'm not afraid to use it!