Net Send ohne Absender

[H4ndy]

War ja klar Die wollen wieder nur ihre User verwirren *g*

[Tubos]

Danke für den tollen Code!
(das mit dem NetMsgSend)

Man kann ja bei Net Send auch den Usernamen als Empfänger angeben - zumindest bei uns.
Kann man die Funktion so umbauen, dass es auch mit dem Usernamen funktioniert?

[Hanswurst]

Servus
dumme Frage :
warum wurde mein Thread (NetSend Spoofing) geschlossen , weil "Spoofing" ja soo böse ist und in diesem Thread , in dem es um haargenau das selbe geht , wird Tatkräftig mitgeholfen ?!
worin soll der Unterschied bestehen , ob man schreibt : "Net Send ohne Absender" oder direkter "NetSendSpoofing"

Cu

[H4ndy]

Öhm ich hab nur den Thread hier gesehen *g*
Dafür kann ich ja nix

[Delphi Star]

Wohin muss man denn den Code aus folgendem Thread kopieren?
http://www.delphipraxis.net/internal...ect.php?t=7078

Und wohin muss man dann den folgenden Code zum Aufruf der Funktion kopieren?

Code:

NetMessageBufferSendSubstA('Empfaenger-PC', 'Ist eh egal', 'DerAbsender', 'Die Nachricht');

[Matze]

Herzlich willkommen in der DP!

Zu 2.: Das gehört in's OnClick des Senden-Buttons.


Edit: Ich hatte Hezlich anstatt Herzlich geschrieben.

[Matze]

Zu 1.: Das ist eine ganz normale Funktion, die deklarierst du im private oder public-Bereich und im implementation-Abschnitt gehört der Code dann hin.

[Delphi Star]

Kann man seine eigenen Beiträge nur editieren oder auch löschen?

[Delphi Star]

Es funzt nicht, aber das Problem liegt bestimmt daran das ich was falsches im private oder public-Bereich geschrieben habe, also kannst du bitte schreiben was da rein muss
Kann man auch irgendwie ne Rückmeldung anzeigen ob die Message erfolgreich angekommen ist

[Matze]

Löschen kannst du deine Beiträge nicht, wo kämen wir denn dahin!

Es wäre sinnvill, wenn du in Zukunft den Code posten könntest, denn du bereits selber zusammengestellt hast (mit den Delphi-Tags).

Heute bin ich mal nicht so, so geht's:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    function NetMessageBufferSendSubstA(ServerName, MsgName, FromName, Msg: AnsiString): Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.NetMessageBufferSendSubstA(ServerName, MsgName, FromName, Msg: AnsiString): Boolean;
{.$DEFINE SYNCHRONOUS}
const
  szService = '\mailslot\messngr'; 
  MaxBufLen = $700; 
var
  hFile: THandle; 
  WrittenBytes: DWORD; 
{$IFNDEF SYNCHRONOUS} 
  ovs: OVERLAPPED;
  EventName:String; 
{$ENDIF} 
begin 
  Result := False;
  if Length(Msg) > MaxBufLen then 
    SetLength(Msg, MaxBufLen); 
{$IFNDEF SYNCHRONOUS} 
  EventName:='NetSendEvent_'+ServerName;
{$ENDIF} 
  ServerName := '\\' + Servername + szService; 
  hFile := CreateFileA( 
    @ServerName[1], GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL or FILE_FLAG_NO_BUFFERING or FILE_FLAG_OVERLAPPED, 0); 
  if hFile <> INVALID_HANDLE_VALUE then 
  try 
    Msg := FromName + #0 + MsgName + #0 + Msg;
{$IFNDEF SYNCHRONOUS} 
    ovs.hEvent := CreateEventA(nil, True, False, @EventName[1]); 
    WriteFile(hFile, Pointer(Msg)^, Length(Msg), WrittenBytes, @ovs); 
{$ELSE}
    WriteFile(hFile, Pointer(Msg)^, Length(Msg), WrittenBytes, nil); 
{$ENDIF} 
    Result := GetLastError = ERROR_IO_PENDING;
  finally
{$IFNDEF SYNCHRONOUS}
    if WaitForSingleObject(ovs.hEvent, INFINITE) <> WAIT_TIMEOUT then
{$ENDIF}
      CloseHandle(hFile);
  end;
end;

//Aufruf:
procedure TForm1.Button1Click(Sender: TObject);
begin
  NetMessageBufferSendSubstA(...);
end;